26 lines
520 B
Fortran
26 lines
520 B
Fortran
SUBROUTINE TIMING(MOD,ITER)
|
|
C ===========================
|
|
C
|
|
C Timing procedure (call machine dependent routine!!)
|
|
C
|
|
CHARACTER ROUT*6
|
|
dimension dummy(2)
|
|
common/timeta/dtim
|
|
DATA T0/0./
|
|
SAVE T0
|
|
C
|
|
TIME=etime(dummy)
|
|
DT=TIME-T0
|
|
T0=TIME
|
|
IP=ITER
|
|
IF(MOD.EQ.1) THEN
|
|
ROUT=' TABLE'
|
|
ELSE IF(MOD.EQ.2) THEN
|
|
ROUT=' FINAL'
|
|
ENDIF
|
|
WRITE(69,600) IP,TIME,DT,ROUT
|
|
dtim=dt
|
|
600 FORMAT(I6,2F11.2,2X,A6)
|
|
RETURN
|
|
END
|