**********************************************************************
      SUBROUTINE SECOND(SS)
**********************************************************************
* Returns CPU-time version STARDENT 3020                             *
**********************************************************************
C
      IMPLICIT NONE
C
C --- Transfer variables
C
      REAL*8    SS
C
C --- Functions
C
      REAL*4   CPUTIM
      EXTERNAL CPUTIM
C
C --- Local variables
C
      INTEGER  ICALL
      REAL*4   S,SOLD
 
      DATA ICALL/0/
 
      ICALL=ICALL+1
      IF(ICALL.EQ.1) WRITE(11,7999)
 7999 FORMAT(6X,'CPUSEC   1.0      10 AUGUST    1993',6X,
     &       '#--: RETURNS CPU-TIME (VERSION STARDENT)')
 
      S = CPUTIM(SOLD)
      IF (ICALL.EQ.1) S=0.E0
      SS=S
      END
 
C --  End of CPUSEC