"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

---