[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: 20001012: netCDF for FORTRAN 90

This archive contains answers to questions sent to Unidata support through mid-2025. Note that the archive is no longer being updated. We provide the archive for reference; many of the answers presented here remain technically correct, even if somewhat outdated. For the most up-to-date information on the use of NSF Unidata software and data services, please consult the Software Documentation first.

  • Subject: Re: 20001012: netCDF for FORTRAN 90
  • Date: Thu, 12 Oct 2000 14:04:59 -0600
>To: "'Unidata Support'" <address@hidden>
>From: Michael Redetzky <address@hidden>
>Subject: AW: 20001011: netCDF for FORTRAN 90 
>Organization: WASY GmbH NL Dresden
>Keywords: 200010111046.e9BAkv410389

Hi Michael,

Thanks very much for the bug fixes you sent for netcdf_dims.f90 and
netcdf_file.f90.  We'll include your fixes in the next release:

--Russ

Index: netcdf_dims.f90
===================================================================
RCS file: /upc/share/CVS/netcdf-3/f90/netcdf_dims.f90,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
30c30
<     nf90_rename_dim = nf_rename_dim(ncid, name, dimid)
---
>     nf90_rename_dim = nf_rename_dim(ncid, dimid, name)


Index: netcdf_file.f90
===================================================================
RCS file: /upc/share/CVS/netcdf-3/f90/netcdf_file.f90,v
retrieving revision 1.1
retrieving revision 1.2
diff -c -r1.1 -r1.2
*** netcdf_file.f90     2000/04/05 19:33:21     1.1
--- netcdf_file.f90     2000/10/12 19:58:36     1.2
***************
*** 143,151 ****
      nf90_close = nf_close(ncid)
    end function nf90_close
    ! -------
!   function nf90_delete(ncid)
!     integer, intent( in) :: ncid
!     integer              :: nf90_delete
    
      nf90_delete = nf_delete(ncid)
    end function nf90_delete
--- 143,151 ----
      nf90_close = nf_close(ncid)
    end function nf90_close
    ! -------
!   function nf90_delete(name)
!     character*(*), intent( in) :: name
!     integer                    :: nf90_delete
    
      nf90_delete = nf_delete(ncid)
    end function nf90_delete