"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "nf_test/util.F" between
netcdf-fortran-4.4.4.tar.gz and netcdf-fortran-4.4.5.tar.gz

About: NetCDF (network Common Data Form) is a set of software libraries and machine-independent data formats that support the creation, access, and sharing of array-oriented scientific data (Fortran library).

util.F  (netcdf-fortran-4.4.4):util.F  (netcdf-fortran-4.4.5)
skipping to change at line 890 skipping to change at line 890
end end
! Create & write all of specified file using global variables */ ! Create & write all of specified file using global variables */
subroutine write_file(filename) subroutine write_file(filename)
implicit none implicit none
character*(*) filename character*(*) filename
#include "tests.inc" #include "tests.inc"
integer ncid !/* netCDF id */ integer ncid !/* netCDF id */
integer err !/* netCDF status */ integer err !/* netCDF status */
integer cmode
err = nf_create(filename, NF_CLOBBER, ncid) cmode = IOR(NF_CLOBBER, FILE_CMODE)
err = nf_create(filename, cmode, ncid)
if (err .ne. 0) then if (err .ne. 0) then
call errore('nf_create: ', err) call errore('nf_create: ', err)
end if end if
call def_dims(ncid) call def_dims(ncid)
call def_vars(ncid) call def_vars(ncid)
call put_atts(ncid) call put_atts(ncid)
err = nf_enddef(ncid) err = nf_enddef(ncid)
if (err .ne. 0) then if (err .ne. 0) then
call errore('nf_enddef: ', err) call errore('nf_enddef: ', err)
 End of changes. 2 change blocks. 
1 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)