**********************************************************************
      SUBROUTINE SECOND(SS)
**********************************************************************
* Returns CPU-time version HP735                                     *
**********************************************************************
C
      IMPLICIT NONE
C
C --- Transfer variables
C
      REAL*8  SS
C
C --- Functions
C
      REAL*4  ETIME
C
C --- Local variables
C
      INTEGER ICALL
      REAL*4  TARRAY
 
      SAVE ICALL,TARRAY
 
      DATA ICALL/0/
 
      ICALL=ICALL+1
      IF(ICALL.EQ.1) WRITE(11,899)
  899 FORMAT(6X,'SECOND   1.0      19 APRIL     1995',6X,
     x'HP SUBROUTINE FOR CPU TIMING FUNCTION')
      SS = ETIME(TARRAY)
      END
 
C --  End of CPUSEC