[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[netCDF #CQM-787807]: netCDF4 f90 interface - problem with
- To: Martin.Dix@xxxxxxxx
- Subject: [netCDF #CQM-787807]: netCDF4 f90 interface - problem with
- From: "Unidata netCDF Support" <support-netcdf@xxxxxxxxxxxxxxxx>
- Date: Wed, 30 Apr 2008 08:09:34 -0600
- Delivered-to: support-netcdf@unidata.ucar.edu by laraine.unidata.ucar.edu (Postfix) with ESMTP id A558FCB184; Wed, 30 Apr 2008 08:09:34 -0600 (MDT) id 91D8DD4FBA; Wed, 30 Apr 2008 08:09:34 -0600 (MDT)
> I'm using netcdf-4.0-snapshot2008042720.
>
> I've been trying to convert the ftst_vars.F program to use the F90
> interface and struck a problem with file open modes. The original
> program uses
>
> mode_flag = IOR(NF_NETCDF4, NF_CLASSIC_MODEL);
> retval = nf_create(FILE_NAME, mode_flag, ncid)
>
> If I use
>
> mode_flag = IOR(NF90_NETCDF4, NF90_CLASSIC_MODEL)
> retval = nf90_create(FILE_NAME, mode_flag, ncid)
>
> I get an error with return value of -36.
>
> The problem seems to be that in netcdf4_constants.f90
> nf90_classic_model = 8
> while in netcdf.inc
> nf_classic_model = 256
>
> If I use the mode from the f77 values in the f90 call everything works
> properly.
>
> Regards
>
> Martin Dix
>
>
Howdy Martin!
Thanks for pointing this out. I have corrected it in the codebase. It will be
in the next snapshot I generate.
I have also added a test for this, so that if I break it I will notice. ;-)
Thanks, and keep on netCDFing!
Ed
Ticket Details
===================
Ticket ID: CQM-787807
Department: Support netCDF
Priority: Normal
Status: Closed
