25 lines
538 B
Fortran
25 lines
538 B
Fortran
SUBROUTINE TIMING(MOD,ITER)
|
|
C ===========================
|
|
C
|
|
C Timing procedure (call machine dependent routine!!)
|
|
C
|
|
CHARACTER ROUT*20
|
|
dimension dummy(2)
|
|
DATA T0/0./
|
|
SAVE T0
|
|
C
|
|
TIME=etime(dummy)
|
|
DT=TIME-T0
|
|
T0=TIME
|
|
IF(MOD.EQ.1) THEN
|
|
IP=ITER-1
|
|
ROUT=' FORMAL SOLUTION'
|
|
ELSE IF(MOD.EQ.2) THEN
|
|
IP=ITER
|
|
ROUT=' LINEARIZATION'
|
|
ENDIF
|
|
WRITE(69,600) IP,MOD,TIME,DT,ROUT
|
|
600 FORMAT(2I4,2F11.2,2X,A20)
|
|
RETURN
|
|
END
|