blob: 0e2cf58d4f36b943a91e43e1f2de19f276e9bb03 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- TIMING/EIG/ctimee.f.orig Tue Jun 22 13:57:47 1999
+++ TIMING/EIG/ctimee.f Wed Oct 6 11:04:27 1999
@@ -299,7 +299,7 @@
EXTERNAL LSAMEN, SECOND
* ..
* .. External Subroutines ..
- EXTERNAL CTIM21, CTIM22, CTIM26, CTIM51
+ EXTERNAL CTIM21, CTIM22, CTIM26, CTIM51, FPMCLR
* ..
* .. Scalars in Common ..
REAL ITCNT, OPS
@@ -327,6 +327,7 @@
* ..
* .. Executable Statements ..
*
+ CALL FPMCLR( )
S1 = SECOND( )
FATAL = .FALSE.
NEP = .FALSE.
|
