Logo Search packages:      
Sourcecode: nec version File versions  Download package

secnds.f

      SUBROUTINE SECNDS(X)
C     INTEGER*4 IHR,IMIN,ISEC,I100TH
C     CALL GETTIM (IHR,IMIN,ISEC,I100TH)
C     X=IHR*3600 + IMIN*60 + ISEC + I100TH*.01
      X = 0
      RETURN
      END

Generated by  Doxygen 1.6.0   Back to index