01:       REAL             FUNCTION SECOND( )
02: *
03: *  -- LAPACK auxiliary routine (version 3.2) --
04: *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
05: *     February 2007
06: *
07: *  Purpose
08: *  =======
09: *
10: *  SECOND returns nothing instead of returning the user time for a process in seconds.
11: *  If you are using that routine, it means that neither EXTERNAL ETIME,
12: *  EXTERNAL ETIME_, INTERNAL ETIME, INTERNAL CPU_TIME is available  on
13: *  your machine.
14: *
15: * =====================================================================
16: *
17:       SECOND = 0.0E+0
SECOND -> second_EXT_ETIME.f:1
SECOND -> second_EXT_ETIME_.f:1
SECOND -> second_INT_CPU_TIME.f:1
SECOND -> second_INT_ETIME.f:1
SECOND -> second_NONE.f:1
18:       RETURN
19: *
20: *     End of SECOND
21: *
22:       END
23: