--- TESTING/EIG/dchkee.f.orig	Tue Jun 22 13:54:21 1999
+++ TESTING/EIG/dchkee.f	Wed Oct  6 11:04:27 1999
@@ -1013,7 +1013,7 @@
      $                   DCKGLM, DCKGQR, DCKGSV, DCKLSE, DDRGES, DDRGEV,
      $                   DDRGSX, DDRGVX, DDRVBD, DDRVES, DDRVEV, DDRVGG,
      $                   DDRVSG, DDRVST, DDRVSX, DDRVVX, DERRBD, DERRED,
-     $                   DERRGG, DERRHS, DERRST, XLAENV
+     $                   DERRGG, DERRHS, DERRST, XLAENV, FPMCLR
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          LEN, MIN
@@ -1042,6 +1042,7 @@
 *     ..
 *     .. Executable Statements ..
 *
+      CALL FPMCLR( )
       S1 = DSECND( )
       FATAL = .FALSE.
       NUNIT = NOUT