Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
1d07d15f
Commit
1d07d15f
authored
Oct 22, 2012
by
Uwe Schulzweida
Browse files
Fortran interface update
parent
1e8469b8
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
1d07d15f
!
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
...
...
src/cdiFortran.c
View file @
1d07d15f
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment