Commit 1d07d15f authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update

parent 1e8469b8
! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 1.5.7
! Fortran interface for CDI library version 1.5.8
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, August 2012
! Uwe Schulzweida, MPI-MET, Hamburg, October 2012
!
INTEGER CDI_MAX_NAME
......@@ -336,6 +336,9 @@
PARAMETER (CALENDAR_366DAYS = 4)
INTEGER CALENDAR_NONE
PARAMETER (CALENDAR_NONE = 5)
!
! parallel IO IOMode
!
INTEGER PIO_NONE
PARAMETER (PIO_NONE = 0)
INTEGER PIO_MPI
......@@ -346,6 +349,9 @@
PARAMETER (PIO_ASYNCH = 3)
INTEGER PIO_FPGUARD
PARAMETER (PIO_FPGUARD = 4)
!
! parallel IO routines
!
! pioEndDef
EXTERNAL pioEndDef
......@@ -383,6 +389,12 @@
! INTEGER )
EXTERNAL pioWriteTimestep
!
! CDI control routines
!
! cdiReset
EXTERNAL cdiReset
CHARACTER*80 cdiStringError
! (INTEGER cdiErrno)
EXTERNAL cdiStringError
......
......@@ -53,6 +53,12 @@
/* CALENDAR types */
/* parallel IO IOMode */
/* parallel IO routines */
FCALLSCSUB0 (pioEndDef, PIOENDDEF, pioenddef)
FCALLSCSUB0 (pioEndTimestepping, PIOENDTIMESTEPPING, pioendtimestepping)
FCALLSCSUB0 (pioFinalize, PIOFINALIZE, piofinalize)
......@@ -61,6 +67,10 @@ FCALLSCFUN2 (INT, pioInqVarDecoChunk, PIOINQVARDECOCHUNK, pioinqvardecochunk, IN
FCALLSCFUN2 (INT, pioInqVarDecoOff, PIOINQVARDECOOFF, pioinqvardecooff, INT, INT)
FCALLSCSUB1 (pioNamespaceSetActive, PIONAMESPACESETACTIVE, pionamespacesetactive, INT)
FCALLSCSUB3 (pioWriteTimestep, PIOWRITETIMESTEP, piowritetimestep, INT, INT, INT)
/* CDI control routines */
FCALLSCSUB0 (cdiReset, CDIRESET, cdireset)
FCALLSCFUN1 (STRING, cdiStringError, CDISTRINGERROR, cdistringerror, INT)
FCALLSCSUB1 (cdiDebug, CDIDEBUG, cdidebug, INT)
FCALLSCFUN0 (STRING, cdiLibraryVersion, CDILIBRARYVERSION, cdilibraryversion)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment