Commit 24a2fcc6 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

removed unused function streamNtsteps()

parent cb6041fd
......@@ -318,7 +318,6 @@ int streamInqCurTimestepID(int streamID);
char *streamFilename(int streamID);
char *streamFilesuffix(int filetype);
int streamNtsteps(int streamID);
off_t streamNvals(int streamID);
int streamInqNvars ( int streamID );
......
......@@ -571,10 +571,6 @@
! (INTEGER filetype)
EXTERNAL streamFilesuffix
INTEGER streamNtsteps
! (INTEGER streamID)
EXTERNAL streamNtsteps
INTEGER streamInqNvars
! (INTEGER streamID)
EXTERNAL streamInqNvars
......
......@@ -119,7 +119,6 @@ FCALLSCFUN2 (INT, streamInqTimestep, STREAMINQTIMESTEP, streaminqtimestep, INT,
FCALLSCFUN1 (INT, streamInqCurTimestepID, STREAMINQCURTIMESTEPID, streaminqcurtimestepid, INT)
FCALLSCFUN1 (STRING, streamFilename, STREAMFILENAME, streamfilename, INT)
FCALLSCFUN1 (STRING, streamFilesuffix, STREAMFILESUFFIX, streamfilesuffix, INT)
FCALLSCFUN1 (INT, streamNtsteps, STREAMNTSTEPS, streamntsteps, INT)
FCALLSCFUN1 (INT, streamInqNvars, STREAMINQNVARS, streaminqnvars, INT)
/* STREAM var I/O routines */
......
......@@ -432,13 +432,6 @@ module mo_cdi
integer(kind=c_int) :: streamInqCurTimestepID
end function streamInqCurTimestepID
end interface
interface
function streamNtsteps(streamID) bind(c,name='streamNtsteps')
import :: c_int
integer(kind=c_int), value :: streamID
integer(kind=c_int) :: streamNtsteps
end function streamNtsteps
end interface
interface
function streamInqNvars(streamID) bind(c,name='streamInqNvars')
import :: c_int
......@@ -2969,7 +2962,6 @@ module mo_cdi
public :: streamInqCurTimestepID
public :: streamFilename
public :: streamFilesuffix
public :: streamNtsteps
public :: streamInqNvars
public :: streamWriteVar
public :: streamWriteVarF
......
......@@ -565,7 +565,7 @@ streamOpenID(const char *filename, const char *filemode, int filetype,
status = cdiInqContents(streamptr);
if ( status < 0 ) return (status);
vlist_t *vlistptr = vlist_to_pointer(streamptr->vlistID);
vlistptr->ntsteps = streamNtsteps(streamID);
vlistptr->ntsteps = streamptr->ntsteps;
}
}
......@@ -1980,16 +1980,6 @@ void streamWriteContents(int streamID, char *cname)
fclose(cnp);
}
int streamNtsteps(int streamID)
{
stream_t *streamptr = stream_to_pointer(streamID);
stream_check_ptr(__func__, streamptr);
return (int)streamptr->ntsteps;
}
// This function is used in CDO!
off_t streamNvals(int streamID)
{
......
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