diff --git a/src/blas/double/xerbla.F b/src/blas/double/xerbla.F
index d2354efeb9..a8346ddc61 100644
--- a/src/blas/double/xerbla.F
+++ b/src/blas/double/xerbla.F
@@ -1,5 +1,4 @@
       SUBROUTINE XERBLA( SRNAME, INFO )
-#include "errquit.fh"
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -40,8 +39,7 @@ c
 *
       WRITE( *, FMT = 9999 )SRNAME, INFO
 *
-*      STOP
-      call errquit('xerbla:double: lapack error',911, BASIS_ERR)
+      STOP
 *
  9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
      $      'an illegal value' )