Changeset 701

Show
Ignore:
Timestamp:
10/30/09 09:22:21 (3 weeks ago)
Author:
robl
Message:

declare some bindings for the multi-variable appraoches.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/src/libf/pnetcdf.inc.in

    r674 r701  
    1515      integer nf_real 
    1616      integer nf_double 
     17      integer nf_request 
    1718 
    1819      parameter (nf_byte = 1) 
    … …  
    867868!                          character(*)        text) 
    868869      external        nfmpi_put_vara 
     870 
     871      integer         nfmpi_iput_vara_all 
     872!                         (integer             ncid, 
     873!                          integer             varid, 
     874!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1), 
     875!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1), 
     876!                          character(*)        text, 
     877!                          integer            req) 
     878      external        nfmpi_iput_vara_all 
     879 
     880      integer         nfmpi_wait 
     881!                         (integer             req) 
     882      external        nfmpi_wait 
     883 
     884      integer         nfmpi_waitall 
     885!                         (integer            count, 
     886!                         integer             req(1)) 
     887      external        nfmpi_waitall 
     888 
     889 
    869890 
    870891      integer         nfmpi_put_vara_all