Skip to content
GitLab
Commit f334dad2 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

update Fortran interface

parent d41a436a
Hide whitespace changes
Inline Side-by-side
src/cdi.inc
View file @ f334dad2
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, February 2015
! Uwe Schulzweida, MPI-MET, Hamburg, March 2015
!
INTEGER CDI_MAX_NAME
......@@ -578,14 +578,6 @@
! (INTEGER streamID)
EXTERNAL streamInqCurTimestepID
CHARACTER(80) streamFilename
! (INTEGER streamID)
EXTERNAL streamFilename
CHARACTER(80) streamFilesuffix
! (INTEGER filetype)
EXTERNAL streamFilesuffix
INTEGER streamInqNvars
! (INTEGER streamID)
EXTERNAL streamInqNvars
......@@ -1794,12 +1786,6 @@
! DOUBLEPRECISION ybounds_vec)
EXTERNAL gridInqYbounds
! gridDefRowlon
! (INTEGER gridID,
! INTEGER nrowlon,
! INTEGER rowlon_vec)
EXTERNAL gridDefRowlon
! gridInqRowlon
! (INTEGER gridID,
! INTEGER rowlon_vec)
......@@ -1969,15 +1955,6 @@
! (INTEGER zaxisID)
EXTERNAL zaxisInqLtype
! zaxisDefLtype2
! (INTEGER zaxisID,
! INTEGER ltype)
EXTERNAL zaxisDefLtype2
INTEGER zaxisInqLtype2
! (INTEGER zaxisID)
EXTERNAL zaxisInqLtype2
! zaxisDefVct
! (INTEGER zaxisID,
! INTEGER size,
......@@ -2198,10 +2175,6 @@
! (INTEGER taxisID)
EXTERNAL taxisInqNumavg
CHARACTER(80) tunitNamePtr
! (INTEGER tunitID)
EXTERNAL tunitNamePtr
!
! Institut routines
!
......@@ -2234,10 +2207,6 @@
! (INTEGER instID)
EXTERNAL institutInqNamePtr
CHARACTER(80) institutInqLongnamePtr
! (INTEGER instID)
EXTERNAL institutInqLongnamePtr
!
! Model routines
!
......@@ -2288,10 +2257,6 @@
! CHARACTER*(*) tablename)
EXTERNAL tableDef
CHARACTER(80) tableInqNamePtr
! (INTEGER tableID)
EXTERNAL tableInqNamePtr
! tableDefEntry
! (INTEGER tableID,
! INTEGER code,
......
src/cdiFortran.c
View file @ f334dad2
......@@ -124,8 +124,6 @@ FCALLSCFUN1 (INT, streamInqCompLevel, STREAMINQCOMPLEVEL, streaminqcomplevel, IN
FCALLSCFUN2 (INT, streamDefTimestep, STREAMDEFTIMESTEP, streamdeftimestep, INT, INT)
FCALLSCFUN2 (INT, streamInqTimestep, STREAMINQTIMESTEP, streaminqtimestep, INT, INT)
FCALLSCFUN1 (INT, streamInqCurTimestepID, STREAMINQCURTIMESTEPID, streaminqcurtimestepid, INT)
FCALLSCFUN1 (STRING, streamFilename, STREAMFILENAME, streamfilename, INT)
FCALLSCFUN1 (STRING, streamFilesuffix, STREAMFILESUFFIX, streamfilesuffix, INT)
FCALLSCFUN1 (INT, streamInqNvars, STREAMINQNVARS, streaminqnvars, INT)
/* STREAM var I/O routines */
......@@ -382,7 +380,6 @@ FCALLSCSUB2 (gridDefXbounds, GRIDDEFXBOUNDS, griddefxbounds, INT, PDOUBLE)
FCALLSCFUN2 (INT, gridInqXbounds, GRIDINQXBOUNDS, gridinqxbounds, INT, PDOUBLE)
FCALLSCSUB2 (gridDefYbounds, GRIDDEFYBOUNDS, griddefybounds, INT, PDOUBLE)
FCALLSCFUN2 (INT, gridInqYbounds, GRIDINQYBOUNDS, gridinqybounds, INT, PDOUBLE)
FCALLSCSUB3 (gridDefRowlon, GRIDDEFROWLON, griddefrowlon, INT, INT, INTV)
FCALLSCSUB2 (gridInqRowlon, GRIDINQROWLON, gridinqrowlon, INT, PINT)
FCALLSCSUB2 (gridChangeType, GRIDCHANGETYPE, gridchangetype, INT, INT)
FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking, INT, INT)
......@@ -421,8 +418,6 @@ FCALLSCSUB2 (zaxisDefPositive, ZAXISDEFPOSITIVE, zaxisdefpositive, INT, INT)
FCALLSCFUN1 (INT, zaxisInqPositive, ZAXISINQPOSITIVE, zaxisinqpositive, INT)
FCALLSCSUB2 (zaxisDefLtype, ZAXISDEFLTYPE, zaxisdefltype, INT, INT)
FCALLSCFUN1 (INT, zaxisInqLtype, ZAXISINQLTYPE, zaxisinqltype, INT)
FCALLSCSUB2 (zaxisDefLtype2, ZAXISDEFLTYPE2, zaxisdefltype2, INT, INT)
FCALLSCFUN1 (INT, zaxisInqLtype2, ZAXISINQLTYPE2, zaxisinqltype2, INT)
FCALLSCSUB3 (zaxisDefVct, ZAXISDEFVCT, zaxisdefvct, INT, INT, PDOUBLE)
FCALLSCSUB2 (zaxisInqVct, ZAXISINQVCT, zaxisinqvct, INT, PDOUBLE)
FCALLSCFUN1 (INT, zaxisInqVctSize, ZAXISINQVCTSIZE, zaxisinqvctsize, INT)
......@@ -472,7 +467,6 @@ FCALLSCFUN1 (DOUBLE, taxisInqForecastPeriod, TAXISINQFORECASTPERIOD, taxisinqfor
FCALLSCSUB2 (taxisDefNumavg, TAXISDEFNUMAVG, taxisdefnumavg, INT, INT)
FCALLSCFUN1 (INT, taxisInqType, TAXISINQTYPE, taxisinqtype, INT)
FCALLSCFUN1 (INT, taxisInqNumavg, TAXISINQNUMAVG, taxisinqnumavg, INT)
FCALLSCFUN1 (STRING, tunitNamePtr, TUNITNAMEPTR, tunitnameptr, INT)
/* Institut routines */
......@@ -482,7 +476,6 @@ FCALLSCFUN0 (INT, institutInqNumber, INSTITUTINQNUMBER, institutinqnumber)
FCALLSCFUN1 (INT, institutInqCenter, INSTITUTINQCENTER, institutinqcenter, INT)
FCALLSCFUN1 (INT, institutInqSubcenter, INSTITUTINQSUBCENTER, institutinqsubcenter, INT)
FCALLSCFUN1 (STRING, institutInqNamePtr, INSTITUTINQNAMEPTR, institutinqnameptr, INT)
FCALLSCFUN1 (STRING, institutInqLongnamePtr, INSTITUTINQLONGNAMEPTR, institutinqlongnameptr, INT)
/* Model routines */
......@@ -498,7 +491,6 @@ FCALLSCSUB2 (tableWriteC, TABLEWRITEC, tablewritec, STRING, INT)
FCALLSCSUB2 (tableWrite, TABLEWRITE, tablewrite, STRING, INT)
FCALLSCFUN1 (INT, tableRead, TABLEREAD, tableread, STRING)
FCALLSCFUN3 (INT, tableDef, TABLEDEF, tabledef, INT, INT, STRING)
FCALLSCFUN1 (STRING, tableInqNamePtr, TABLEINQNAMEPTR, tableinqnameptr, INT)
FCALLSCSUB5 (tableDefEntry, TABLEDEFENTRY, tabledefentry, INT, INT, STRING, STRING, STRING)
FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING)
FCALLSCFUN0 (INT, tableInqNumber, TABLEINQNUMBER, tableinqnumber)
......
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

Imprint | Privacy Policy