From 2b30fc57cdcf954592e1c3b3de38efd7784e3952 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Wed, 18 Oct 2023 16:05:30 -0700
Subject: [PATCH] remove errquit from xerbla

---
 src/blas/double/xerbla.F | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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' )