?? second.f
字號:
SUBROUTINE SECOND( T )* REAL T** -- LAPACK auxiliary routine (preliminary version) --* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,* Courant Institute, Argonne National Lab, and Rice University* July 26, 1991** Purpose* =======** SECOND returns the user time for a process in seconds.* This version gets the time from the system function ETIME.** .. Local Scalars .. REAL T1* ..* .. Local Arrays .. REAL TARRAY( 2 )* ..* .. External Functions .. REAL ETIME EXTERNAL ETIME* ..* .. Executable Statements ..* T1 = ETIME( TARRAY ) T = TARRAY( 1 ) RETURN** End of SECOND* END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -