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

update fortran interface

parent 60736ec5
Hide whitespace changes
Inline Side-by-side
src/cdi.inc
View file @ 91894b63
......@@ -509,19 +509,12 @@
! INTEGER nmiss)
EXTERNAL streamWriteVar
! streamWriteVarDouble
! (INTEGER streamID,
! INTEGER varID,
! DOUBLEPRECISION data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteVarDouble
! streamWriteVarFloat
! streamWriteVarF
! (INTEGER streamID,
! INTEGER varID,
! REAL data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteVarFloat
EXTERNAL streamWriteVarF
! streamReadVarSlice
! (INTEGER streamID,
......@@ -539,21 +532,13 @@
! INTEGER nmiss)
EXTERNAL streamWriteVarSlice
! streamWriteVarSliceDouble
! (INTEGER streamID,
! INTEGER varID,
! INTEGER levelID,
! DOUBLEPRECISION data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteVarSliceDouble
! streamWriteVarSliceFloat
! streamWriteVarSliceF
! (INTEGER streamID,
! INTEGER varID,
! INTEGER levelID,
! REAL data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteVarSliceFloat
EXTERNAL streamWriteVarSliceF
!
! STREAM record I/O routines
......@@ -582,17 +567,11 @@
! INTEGER nmiss)
EXTERNAL streamWriteRecord
! streamWriteRecordDouble
! (INTEGER streamID,
! DOUBLEPRECISION data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteRecordDouble
! streamWriteRecordFloat
! streamWriteRecordF
! (INTEGER streamID,
! REAL data_vec,
! INTEGER nmiss)
EXTERNAL streamWriteRecordFloat
EXTERNAL streamWriteRecordF
! streamCopyRecord
! (INTEGER streamIDdest,
......
src/cdiFortran.c
View file @ 91894b63
......@@ -103,12 +103,10 @@ FCALLSCFUN1 (INT, streamNtsteps, STREAMNTSTEPS, streamntsteps, INT)
FCALLSCSUB4 (streamReadVar, STREAMREADVAR, streamreadvar, INT, INT, PDOUBLE, PINT)
FCALLSCSUB4 (streamWriteVar, STREAMWRITEVAR, streamwritevar, INT, INT, PDOUBLE, INT)
FCALLSCSUB4 (streamWriteVarDouble, STREAMWRITEVARDOUBLE, streamwritevardouble, INT, INT, PDOUBLE, INT)
FCALLSCSUB4 (streamWriteVarFloat, STREAMWRITEVARFLOAT, streamwritevarfloat, INT, INT, PFLOAT, INT)
FCALLSCSUB4 (streamWriteVarF, STREAMWRITEVARF, streamwritevarf, INT, INT, PFLOAT, INT)
FCALLSCSUB5 (streamReadVarSlice, STREAMREADVARSLICE, streamreadvarslice, INT, INT, INT, PDOUBLE, PINT)
FCALLSCSUB5 (streamWriteVarSlice, STREAMWRITEVARSLICE, streamwritevarslice, INT, INT, INT, PDOUBLE, INT)
FCALLSCSUB5 (streamWriteVarSliceDouble, STREAMWRITEVARSLICEDOUBLE, streamwritevarslicedouble, INT, INT, INT, PDOUBLE, INT)
FCALLSCSUB5 (streamWriteVarSliceFloat, STREAMWRITEVARSLICEFLOAT, streamwritevarslicefloat, INT, INT, INT, PFLOAT, INT)
FCALLSCSUB5 (streamWriteVarSliceF, STREAMWRITEVARSLICEF, streamwritevarslicef, INT, INT, INT, PFLOAT, INT)
/* STREAM record I/O routines */
......@@ -116,8 +114,7 @@ FCALLSCSUB3 (streamInqRecord, STREAMINQRECORD, streaminqrecord, INT, PINT, PINT)
FCALLSCSUB3 (streamDefRecord, STREAMDEFRECORD, streamdefrecord, INT, INT, INT)
FCALLSCSUB3 (streamReadRecord, STREAMREADRECORD, streamreadrecord, INT, PDOUBLE, PINT)
FCALLSCSUB3 (streamWriteRecord, STREAMWRITERECORD, streamwriterecord, INT, PDOUBLE, INT)
FCALLSCSUB3 (streamWriteRecordDouble, STREAMWRITERECORDDOUBLE, streamwriterecorddouble, INT, PDOUBLE, INT)
FCALLSCSUB3 (streamWriteRecordFloat, STREAMWRITERECORDFLOAT, streamwriterecordfloat, INT, PFLOAT, INT)
FCALLSCSUB3 (streamWriteRecordF, STREAMWRITERECORDF, streamwriterecordf, INT, PFLOAT, INT)
FCALLSCSUB2 (streamCopyRecord, STREAMCOPYRECORD, streamcopyrecord, INT, INT)
FCALLSCSUB3 (streamInqGinfo, STREAMINQGINFO, streaminqginfo, INT, PINT, PFLOAT)
......
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