Turn Lapack errors into warnings.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@16 b716e942-a2de-43ad-8f52-f3dfe468e4e7

2 files changed, 6 insertions, 6 deletions

diff --git a/src/matdet.F90 b/src/matdet.F90
index 2aaa754..27d452e 100644
--- a/src/matdet.F90
+++ b/src/matdet.F90
@@ -26,7 +26,7 @@ contains
     
     if (info < 0) then
        write (msg, '("Error in call to SYTRF, info=",i4)') info
-       call CCTK_WARN (0, trim(msg))
+       call CCTK_WARN (1, trim(msg))
     end if
     
     if (info > 0) then
diff --git a/src/matinv.F90 b/src/matinv.F90
index e6fc6a3..24bed20 100644
--- a/src/matinv.F90
+++ b/src/matinv.F90
@@ -30,7 +30,7 @@ contains
     
     if (info /= 0) then
        write (msg, '("Error in call to POSV, info=",i4)') info
-       call CCTK_WARN (0, trim(msg))
+       call CCTK_WARN (1, trim(msg))
     end if
   end subroutine calc_posinv3
   
@@ -51,7 +51,7 @@ contains
     
     if (info /= 0) then
        write (msg, '("Error in call to SYSV, info=",i4)') info
-       call CCTK_WARN (0, trim(msg))
+       call CCTK_WARN (1, trim(msg))
     end if
   end subroutine calc_syminv3
   
@@ -69,7 +69,7 @@ contains
     
     if (info /= 0) then
        write (msg, '("Error in call to GESV, info=",i2)') info
-       call CCTK_WARN (0, trim(msg))
+       call CCTK_WARN (1, trim(msg))
     end if
   end subroutine calc_inv3
   
@@ -92,7 +92,7 @@ contains
     
     if (info /= 0) then
        write (msg, '("Error in call to SYSV, info=",i4)') info
-       call CCTK_WARN (0, trim(msg))
+       call CCTK_WARN (1, trim(msg))
     end if
   end subroutine calc_syminv4
   
@@ -110,7 +110,7 @@ contains
     
     if (info /= 0) then
        write (msg, '("Error in call to GESV, info=",i2)') info
-       call CCTK_WARN (0, trim(msg))
+       call CCTK_WARN (1, trim(msg))
     end if
   end subroutine calc_inv4