d5/d59/second__INT__CPU__TIME_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 the user time for a process in seconds.
00011 *  This version gets the time from the INTERNAL function CPU_TIME.
00012 *
00013 * =====================================================================
00014 *
00015 *     .. Local Scalars ..
00016 *
00017       REAL T
00018 *
00019 * .. Intrinsic Functions ..
00020 *
00021       INTRINSIC CPU_TIME
00022 *
00023 * .. Executable Statements .. *
00024 *
00025       CALL CPU_TIME( T )
00026       SECOND = T
00027       RETURN
00028 *
00029 *     End of SECOND
00030 *
00031       END