"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "nf_test/test_get.m4" 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).

test_get.m4  (netcdf-fortran-4.4.4):test_get.m4  (netcdf-fortran-4.4.5)
skipping to change at line 313 skipping to change at line 313
+ call errore('bad ncid: ', err) + call errore('bad ncid: ', err)
err = nf_get_vara_$1(ncid, BAD_VARID, err = nf_get_vara_$1(ncid, BAD_VARID,
+ start, edge, value) + start, edge, value)
if (err .ne. NF_ENOTVAR) if (err .ne. NF_ENOTVAR)
+ call errore('bad var id: ', err) + call errore('bad var id: ', err)
do 11, j = 1, var_rank(i) do 11, j = 1, var_rank(i)
if (var_dimid(j,i) .gt. 1) then !/* skip record dim */ if (var_dimid(j,i) .gt. 1) then !/* skip record dim */
start(j) = var_shape(j,i) + 1 start(j) = var_shape(j,i) + 1
err = nf_get_vara_$1(ncid, i, err = nf_get_vara_$1(ncid, i,
+ start, edge, value) + start, edge, value)
#ifndef NF_RELAX_COORD_BOUND
if (canConvert .and. err .ne. NF_EINVALCOORDS) if (canConvert .and. err .ne. NF_EINVALCOORDS)
+ call errore('bad start: ', err) + call errore('bad start: ', err)
#endif
start(j) = 1 start(j) = 1
endif endif
11 continue 11 continue
err = nf_get_vara_$1(ncid, i, start, err = nf_get_vara_$1(ncid, i, start,
+ edge, value) + edge, value)
if (canConvert) then if (canConvert) then
if (err .ne. 0) if (err .ne. 0)
+ call error(nf_strerror(err)) + call error(nf_strerror(err))
else else
if (err .ne. NF_ECHAR) if (err .ne. NF_ECHAR)
 End of changes. 2 change blocks. 
0 lines changed or deleted 2 lines changed or added

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