C-----------------------------------------------------------------------
C IMSL Name:  CPSEC (Single precision version)
C
C Purpose:    Return CPU time used in seconds.
C
C Usage:      CPSEC ()
C
C Example 1:
      INTEGER    I, NOUT
      REAL       A, CPSEC, TIME0, TIME1, X, Y
      EXTERNAL   CPSEC, UMACH
C
      X     = 1.414
      Y     = 3.142
      TIME0 = CPSEC()
      DO 10  I=1, 1000000
         A = X + Y
   10 CONTINUE
      TIME1 = CPSEC()
      CALL UMACH (2, NOUT)
      WRITE (NOUT,*) 'CPU time (seconds) = ', TIME1 - TIME0
      END
C CPU time (seconds) =     1.09000