[netcdfgroup] spurious print in nf90_put_var_2D_FourByteInt()

• To: <netcdfgroup@xxxxxxxxxxxxxxxx>
• Subject: [netcdfgroup] spurious print in nf90_put_var_2D_FourByteInt()
• From: Matthew West <mwest@xxxxxxxxxxxx>
• Date: Sat, 20 Aug 2011 20:07:50 -0500

Hi all,

It seems that in version 4.1.3 of NetCDF a spurious print statement was 
inserted in the nf90_put_var_2D_FourByteInt() function in 
f90/netcdf_expanded.f90.

This causes our code to segfault as it is writing a 2D integer array with less 
than 4 columns.

I've included a patch below that removes the problem line. This extra print 
statement is still in netcdf-fortran-4.2-beta2.

Best regards,
Matt.



--- f90/netcdf_expanded.f90.old 2011-08-20 19:19:19.000000000 -0500
+++ f90/netcdf_expanded.f90     2011-08-20 19:20:05.000000000 -0500
@@ -731,7 +731,6 @@
         nf90_put_var_2D_FourByteInt = &
              nf_put_vars_int(ncid, varid, localStart, localCount, localStride, 
int(values))
      else
-        print *, values(1, 1), values(1, 2), values(1, 3), values(1, 4)
         nf90_put_var_2D_FourByteInt = &
              nf_put_vara_int(ncid, varid, localStart, localCount, values)
      end if

• Follow-Ups:
  • Re: [netcdfgroup] spurious print in nf90_put_var_2D_FourByteInt()
    • From: Ed Hartnett