LAPACK 3.3.0

second_INT_CPU_TIME.f

Go to the documentation of this file.
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
 All Files Functions