Changeset 674

Timestamp:

10/26/09 11:33:35 (4 weeks ago)

Author:

robl

Message:

update fortran bindings: new error codes have been added, typos. still need
prototypes for nonblocking routines

Files:

• trunk/src/libf/pnetcdf.inc.in (modified) (5 diffs)

trunk/src/libf/pnetcdf.inc.in

@@ -82 +82 @@
       parameter (nf_format_classic = 1)
       parameter (nf_format_64bit = 2)
-      parameter (nf_format_64bit_data = 3)
+      parameter (nf_format_64bit_data = 5)
 
 !
@@ -158 +158 @@
       integer nf_evarsize
       integer nf_edimsize
+      integer nf_edims_multdefine 
+      integer nf_edims_size_multdefine 
+      integer nf_evars_nelms_multdefine 
+      integer nf_evars_ndims_multdefine 
+      integer nf_evars_dimids_multdefine
+      integer nf_evars_type_multdefine 
+      integer nf_evars_len_multdefine 
+      integer nf_evars_begin_multdefine 
+      integer nf_enumrecs_multdefine 
+
 
       integer nf_emultitypes
@@ -213 +223 @@
       parameter (nf_enegativecnt = -72)
       parameter (nf_eunsptetype = -73)
+      parameter (nf_edims_multdefine = -74)
+      parameter (nf_edims_size_multdefine = -75)
+      parameter (nf_evars_nelms_multdefine = -76)
+      parameter (nf_evars_ndims_multdefine = -77)
+      parameter (nf_evars_dimids_multdefine = -78)
+      parameter (nf_evars_type_multdefine = -79)
+      parameter (nf_evars_len_multdefine = -80)
+      parameter (nf_evars_begin_multdefine = -81)
+      parameter (nf_enumrecs_multdefine = -82)
 !
 ! error handling modes:
@@ -256 +275 @@
 
       integer         nfmpi_get_file_info
-!                          integer             ncid,
+!                          (integer             ncid,
 !                          integer             mpi_info)
       external        nfmpi_get_file_info
 
       integer         nfmpi_delete
-!                          character*(*)       path,
+!                          (character*(*)       path,
 !                          integer             mpi_info)
       external        nfmpi_delete
@@ -1603 +1622 @@
 !                          doubleprecision     dvals(1))
       external        nfmpi_get_varm_double_all
+
+! could use nonblocking prototypes here, but unsure how to prototype
+! NCMPI_Request type
 
 !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc