"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "fortran/netcdf4_eightbyte.f90" 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).

netcdf4_eightbyte.f90  (netcdf-fortran-4.4.4):netcdf4_eightbyte.f90  (netcdf-fortran-4.4.5)
skipping to change at line 23 skipping to change at line 23
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_1D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_1D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_1D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_1D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_1D_EightByteInt = & nf90_put_var_1D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_1D_EightByteInt = & nf90_put_var_1D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_1D_EightByteInt = & nf90_put_var_1D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 74 skipping to change at line 75
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_2D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_2D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_2D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_2D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_2D_EightByteInt = & nf90_put_var_2D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_2D_EightByteInt = & nf90_put_var_2D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_2D_EightByteInt = & nf90_put_var_2D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 126 skipping to change at line 128
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_3D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_3D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_3D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_3D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_3D_EightByteInt = & nf90_put_var_3D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_3D_EightByteInt = & nf90_put_var_3D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_3D_EightByteInt = & nf90_put_var_3D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 177 skipping to change at line 180
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_4D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_4D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_4D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_4D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_4D_EightByteInt = & nf90_put_var_4D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_4D_EightByteInt = & nf90_put_var_4D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_4D_EightByteInt = & nf90_put_var_4D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 228 skipping to change at line 232
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_5D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_5D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_5D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_5D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_5D_EightByteInt = & nf90_put_var_5D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_5D_EightByteInt = & nf90_put_var_5D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_5D_EightByteInt = & nf90_put_var_5D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 279 skipping to change at line 284
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_6D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_6D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_6D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_6D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_6D_EightByteInt = & nf90_put_var_6D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_6D_EightByteInt = & nf90_put_var_6D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_6D_EightByteInt = & nf90_put_var_6D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 330 skipping to change at line 336
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_put_var_7D_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_7D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_7D_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_7D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_put_var_7D_EightByteInt = & nf90_put_var_7D_EightByteInt = &
nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values) nf_put_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, values)
else if(present(stride)) then else if(present(stride)) then
nf90_put_var_7D_EightByteInt = & nf90_put_var_7D_EightByteInt = &
nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values) nf_put_vars_int64(ncid, varid, localStart, localCount, localStri de, values)
else else
nf90_put_var_7D_EightByteInt = & nf90_put_var_7D_EightByteInt = &
nf_put_vara_int64(ncid, varid, localStart, localCount, values) nf_put_vara_int64(ncid, varid, localStart, localCount, values)
skipping to change at line 383 skipping to change at line 390
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_1D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_1D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_1D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_1D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_1D_EightByteInt = & nf90_get_var_1D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_1D_EightByteInt = & nf90_get_var_1D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_1D_EightByteInt = & nf90_get_var_1D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 438 skipping to change at line 446
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_2D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_2D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_2D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_2D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_2D_EightByteInt = & nf90_get_var_2D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_2D_EightByteInt = & nf90_get_var_2D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_2D_EightByteInt = & nf90_get_var_2D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 493 skipping to change at line 502
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_3D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_3D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_3D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_3D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_3D_EightByteInt = & nf90_get_var_3D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_3D_EightByteInt = & nf90_get_var_3D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_3D_EightByteInt = & nf90_get_var_3D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 548 skipping to change at line 558
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_4D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_4D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_4D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_4D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_4D_EightByteInt = & nf90_get_var_4D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_4D_EightByteInt = & nf90_get_var_4D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_4D_EightByteInt = & nf90_get_var_4D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 603 skipping to change at line 614
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_5D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_5D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_5D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_5D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_5D_EightByteInt = & nf90_get_var_5D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_5D_EightByteInt = & nf90_get_var_5D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_5D_EightByteInt = & nf90_get_var_5D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 658 skipping to change at line 670
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_6D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_6D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_6D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_6D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_6D_EightByteInt = & nf90_get_var_6D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_6D_EightByteInt = & nf90_get_var_6D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_6D_EightByteInt = & nf90_get_var_6D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 713 skipping to change at line 726
localCount (:numDims ) = shape(values) localCount (:numDims ) = shape(values)
localCount (numDims+1:) = 1 localCount (numDims+1:) = 1
localStride(: ) = 1 localStride(: ) = 1
localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /) localMap (:numDims ) = (/ 1, (product(localCount(:counter)), counter = 1, n umDims - 1) /)
if(present(start)) localStart (:size(start) ) = start(:) if(present(start)) localStart (:size(start) ) = start(:)
if(present(count)) localCount (:size(count) ) = count(:) if(present(count)) localCount (:size(count) ) = count(:)
if(present(stride)) localStride(:size(stride)) = stride(:) if(present(stride)) localStride(:size(stride)) = stride(:)
nf90_get_var_7D_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_7D_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_7D_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_7D_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
if(present(map)) then if(present(map)) then
localMap (:size(map)) = map(:) localMap (:size(map)) = map(:)
nf90_get_var_7D_EightByteInt = & nf90_get_var_7D_EightByteInt = &
nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array) nf_get_varm_int64(ncid, varid, localStart, localCount, localStri de, localMap, defaultInt8Array)
else if(present(stride)) then else if(present(stride)) then
nf90_get_var_7D_EightByteInt = & nf90_get_var_7D_EightByteInt = &
nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array) nf_get_vars_int64(ncid, varid, localStart, localCount, localStri de, defaultInt8Array)
else else
nf90_get_var_7D_EightByteInt = & nf90_get_var_7D_EightByteInt = &
nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array) nf_get_vara_int64(ncid, varid, localStart, localCount, defaultIn t8Array)
skipping to change at line 759 skipping to change at line 773
integer, dimension(nf90_max_var_dims) :: localIndex integer, dimension(nf90_max_var_dims) :: localIndex
integer :: counter, format_num integer :: counter, format_num
! Set local arguments to default values ! Set local arguments to default values
localIndex(:) = 1 localIndex(:) = 1
if(present(start)) localIndex(:size(start)) = start(:) if(present(start)) localIndex(:size(start)) = start(:)
nf90_put_var_EightByteInt = nf_inq_format(ncid, format_num) nf90_put_var_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_put_var_EightByteInt .eq. nf90_noerr) then if (nf90_put_var_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
nf90_put_var_EightByteInt = nf_put_var1_int64(ncid, varid, localIndex, v alues) nf90_put_var_EightByteInt = nf_put_var1_int64(ncid, varid, localIndex, v alues)
else else
nf90_put_var_EightByteInt = nf_put_var1_int(ncid, varid, localIndex, int (values)) nf90_put_var_EightByteInt = nf_put_var1_int(ncid, varid, localIndex, int (values))
endif endif
endif endif
end function nf90_put_var_EightByteInt end function nf90_put_var_EightByteInt
function nf90_get_var_EightByteInt(ncid, varid, values, start) function nf90_get_var_EightByteInt(ncid, varid, values, start)
integer, intent( in) :: ncid, varid integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), intent(out) :: values integer (kind = EightByteInt), intent(out) :: values
skipping to change at line 784 skipping to change at line 799
integer :: counter, format_num integer :: counter, format_num
integer :: defaultInteger integer :: defaultInteger
integer (kind = EightByteInt) :: defaultInteger8 integer (kind = EightByteInt) :: defaultInteger8
! Set local arguments to default values ! Set local arguments to default values
localIndex(:) = 1 localIndex(:) = 1
if(present(start)) localIndex(:size(start)) = start(:) if(present(start)) localIndex(:size(start)) = start(:)
nf90_get_var_EightByteInt = nf_inq_format(ncid, format_num) nf90_get_var_EightByteInt = nf_inq_format(ncid, format_num)
if (nf90_get_var_EightByteInt .eq. nf90_noerr) then if (nf90_get_var_EightByteInt .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then if (format_num .eq. nf90_format_netcdf4 .OR. &
format_num .eq. nf90_format_cdf5) then
nf90_get_var_EightByteInt = nf_get_var1_int64(ncid, varid, localIndex, d efaultInteger8) nf90_get_var_EightByteInt = nf_get_var1_int64(ncid, varid, localIndex, d efaultInteger8)
values = defaultInteger8 values = defaultInteger8
else else
nf90_get_var_EightByteInt = nf_get_var1_int(ncid, varid, localIndex, def aultInteger) nf90_get_var_EightByteInt = nf_get_var1_int(ncid, varid, localIndex, def aultInteger)
values = defaultInteger values = defaultInteger
endif endif
endif endif
end function nf90_get_var_EightByteInt end function nf90_get_var_EightByteInt
 End of changes. 16 change blocks. 
16 lines changed or deleted 32 lines changed or added

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