1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- TESTING/LIN/schkaa.f.orig Thu Nov 4 19:27:00 1999
+++ TESTING/LIN/schkaa.f Wed Dec 22 10:03:15 1999
@@ -118,7 +118,7 @@
$ SCHKQP, SCHKQR, SCHKRQ, SCHKSP, SCHKSY, SCHKTB,
$ SCHKTP, SCHKTR, SCHKTZ, SDRVGB, SDRVGE, SDRVGT,
$ SDRVLS, SDRVPB, SDRVPO, SDRVPP, SDRVPT, SDRVSP,
- $ SDRVSY
+ $ SDRVSY, FPMCLR
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
@@ -138,6 +138,7 @@
* ..
* .. Executable Statements ..
*
+ CALL FPMCLR( )
S1 = SECOND( )
LDA = NMAX
FATAL = .FALSE.
|
