**********************************************************************
      SUBROUTINE SECOND(SS)
**********************************************************************
* Returns CPU-time                                                   *
**********************************************************************
C
      IMPLICIT NONE
C
C --- Transfer variables
C
      REAL*8  SS
C
C --- Local variables
C
      INTEGER ICALL,ITICKS
      REAL*4  S,SOLD
 
      SAVE SOLD

      DATA ICALL/0/
 
      ICALL=ICALL+1
      IF(ICALL.EQ.1) WRITE(11,7999)
 7999 FORMAT(6X,'CPUSEC   1.0       5 MARCH     1996',6X,
     &       '#--: RETURNS CPU-TIME (VERSION PC)')

      CALL TIMER(ITICKS)
      S=FLOAT(ITICKS)/1.0E2
      IF (ICALL.EQ.1) SOLD=S
      SS=S-SOLD
      END
 
C --  End of CPUSEC