20 lines
706 B
Plaintext
20 lines
706 B
Plaintext
--- TESTING/EIG/zchkee.f.orig Tue Jun 22 13:54:55 1999
|
|
+++ TESTING/EIG/zchkee.f Wed Oct 6 11:04:27 1999
|
|
@@ -1009,7 +1009,7 @@
|
|
$ ZCHKST, ZCKGLM, ZCKGQR, ZCKGSV, ZCKLSE, ZDRGES,
|
|
$ ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, ZDRVEV,
|
|
$ ZDRVGG, ZDRVSG, ZDRVST, ZDRVSX, ZDRVVX, ZERRBD,
|
|
- $ ZERRED, ZERRGG, ZERRHS, ZERRST
|
|
+ $ ZERRED, ZERRGG, ZERRHS, ZERRST, FPMCLR
|
|
* ..
|
|
* .. Intrinsic Functions ..
|
|
INTRINSIC LEN, MIN
|
|
@@ -1038,6 +1038,7 @@
|
|
* ..
|
|
* .. Executable Statements ..
|
|
*
|
|
+ CALL FPMCLR( )
|
|
S1 = DSECND( )
|
|
FATAL = .FALSE.
|
|
NUNIT = NOUT
|