blob: 6875be5f26a4bc408d55c974d6ff5d089bfe42a1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- TIMING/EIG/stimee.f.orig Tue Jun 22 13:57:53 1999
+++ TIMING/EIG/stimee.f Wed Oct 6 12:13:17 1999
@@ -275,7 +275,7 @@
EXTERNAL LSAMEN, SECOND
* ..
* .. External Subroutines ..
- EXTERNAL STIM21, STIM22, STIM26, STIM51
+ EXTERNAL STIM21, STIM22, STIM26, STIM51, FPMCLR
* ..
* .. Scalars in Common ..
REAL ITCNT, OPS
@@ -299,6 +299,7 @@
* ..
* .. Executable Statements ..
*
+ CALL FPMCLR( )
S1 = SECOND( )
FATAL = .FALSE.
NEP = .FALSE.
|
