removed unused function streamNtsteps()

src/cdi.h

@@ -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 );

src/cdi.inc

@@ -571,10 +571,6 @@
 !                                    (INTEGER         filetype)
       EXTERNAL        streamFilesuffix
 
-      INTEGER         streamNtsteps
-!                                    (INTEGER         streamID)
-      EXTERNAL        streamNtsteps
-
       INTEGER         streamInqNvars
 !                                    (INTEGER         streamID)
       EXTERNAL        streamInqNvars

src/cdiFortran.c

@@ -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  */

src/mo_cdi.f90

@@ -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

src/stream.c

@@ -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)
 {