"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "nf03_test/f03tst_open_mem.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).

f03tst_open_mem.F  (netcdf-fortran-4.4.4):f03tst_open_mem.F  (netcdf-fortran-4.4.5)
skipping to change at line 125 skipping to change at line 125
C For non-zero length files ALLOCATED memfile to size returned by INQUIRE C For non-zero length files ALLOCATED memfile to size returned by INQUIRE
C Then do an unformatted read on file. If no read errors (iostat==0) C Then do an unformatted read on file. If no read errors (iostat==0)
C then call nf_open_mem in NF_DISKLESS mode C then call nf_open_mem in NF_DISKLESS mode
If (ncsize > 0) Then If (ncsize > 0) Then
ALLOCATE(memfile(ncsize)) ALLOCATE(memfile(ncsize))
Read(7, iostat=iostat) memfile(1:ncsize) Read(7, iostat=iostat) memfile(1:ncsize)
If (iostat == 0) then If (iostat == 0) then
Close(7) Close(7)
mode = IOR(NF_DISKLESS, NF_INMEMORY) mode = NF_INMEMORY
retval = nf_open_mem(FILE_NAME, mode, ncsize, memfile, ncid) retval = nf_open_mem(FILE_NAME, mode, ncsize, memfile, ncid)
Else Else
retval = iostat retval = iostat
EndIf EndIf
if (retval .ne. 0) stop 41 if (retval .ne. 0) stop 41
Else Else
stop 42 stop 42
EndIf EndIf
retval = check_file(ncid, var_name, dim_name) retval = check_file(ncid, var_name, dim_name)
if (retval .ne. 0) stop 4 if (retval .ne. 0) stop 4
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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