Commit 5c55626f authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Apply changes of make_fint to documentation.

parent 8c500581
This diff is collapsed.
! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 1.5.6.1
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, July 2012
! Uwe Schulzweida, MPI-MET, Hamburg, January 2013
!
INTEGER CDI_MAX_NAME
......@@ -335,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
......@@ -345,6 +349,9 @@
PARAMETER (PIO_ASYNCH = 3)
INTEGER PIO_FPGUARD
PARAMETER (PIO_FPGUARD = 4)
!
! parallel IO routines
!
! pioEndDef
EXTERNAL pioEndDef
......@@ -382,6 +389,9 @@
! INTEGER )
EXTERNAL pioWriteTimestep
!
! CDI control routines
!
CHARACTER*80 cdiStringError
! (INTEGER cdiErrno)
EXTERNAL cdiStringError
......@@ -433,6 +443,12 @@
! INTEGER pdis)
EXTERNAL cdiEncodeParam
!
! date format: YYYYMMDD
!
!
! time format: hhmmss
!
! cdiDecodeDate
! (INTEGER date,
! INTEGER year,
......@@ -601,6 +617,14 @@
! INTEGER nmiss)
EXTERNAL streamWriteVarSliceF
! streamWriteVarChunk
! (INTEGER streamID,
! INTEGER varID,
! INTEGER rect,
! DOUBLEPRECISION data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteVarChunk
!
! STREAM record I/O routines
!
......
......@@ -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,9 @@ 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 */
FCALLSCFUN1 (STRING, cdiStringError, CDISTRINGERROR, cdistringerror, INT)
FCALLSCSUB1 (cdiDebug, CDIDEBUG, cdidebug, INT)
FCALLSCFUN0 (STRING, cdiLibraryVersion, CDILIBRARYVERSION, cdilibraryversion)
......@@ -77,6 +86,12 @@ FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT)
FCALLSCSUB3 (cdiParamToString, CDIPARAMTOSTRING, cdiparamtostring, INT, PSTRING, INT)
FCALLSCSUB4 (cdiDecodeParam, CDIDECODEPARAM, cdidecodeparam, INT, PINT, PINT, PINT)
FCALLSCFUN3 (INT, cdiEncodeParam, CDIENCODEPARAM, cdiencodeparam, INT, INT, INT)
/* date format: YYYYMMDD */
/* time format: hhmmss */
FCALLSCSUB4 (cdiDecodeDate, CDIDECODEDATE, cdidecodedate, INT, PINT, PINT, PINT)
FCALLSCFUN3 (INT, cdiEncodeDate, CDIENCODEDATE, cdiencodedate, INT, INT, INT)
FCALLSCSUB4 (cdiDecodeTime, CDIDECODETIME, cdidecodetime, INT, PINT, PINT, PINT)
......@@ -114,6 +129,7 @@ FCALLSCSUB4 (streamWriteVarF, STREAMWRITEVARF, streamwritevarf, INT, INT, PFLOAT
FCALLSCSUB5 (streamReadVarSlice, STREAMREADVARSLICE, streamreadvarslice, INT, INT, INT, PDOUBLE, PINT)
FCALLSCSUB5 (streamWriteVarSlice, STREAMWRITEVARSLICE, streamwritevarslice, INT, INT, INT, PDOUBLE, INT)
FCALLSCSUB5 (streamWriteVarSliceF, STREAMWRITEVARSLICEF, streamwritevarslicef, INT, INT, INT, PFLOAT, INT)
FCALLSCSUB5 (streamWriteVarChunk, STREAMWRITEVARCHUNK, streamwritevarchunk, INT, INT, INTVV, PDOUBLE, INT)
/* STREAM record I/O routines */
......
Supports Markdown
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