d6/d63/second__NONE_8f_source.html

00001       REAL             FUNCTION SECOND( )
00002 *
00003 *  -- LAPACK auxiliary routine (version 3.2) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     February 2007
00006 *
00007 *  Purpose
00008 *  =======
00009 *
00010 *  SECOND returns nothing instead of returning the user time for a process in seconds.
00011 *  If you are using that routine, it means that neither EXTERNAL ETIME,
00012 *  EXTERNAL ETIME_, INTERNAL ETIME, INTERNAL CPU_TIME is available  on
00013 *  your machine.
00014 *
00015 * =====================================================================
00016 *
00017       SECOND = 0.0E+0
00018       RETURN
00019 *
00020 *     End of SECOND
00021 *
00022       END