From 23e8aafa953c384d8a2244ecf66731aed7c61a19 Mon Sep 17 00:00:00 2001 From: schnetter Date: Mon, 2 Aug 2004 14:03:23 +0000 Subject: Turn Lapack errors into warnings. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@16 b716e942-a2de-43ad-8f52-f3dfe468e4e7 --- src/matdet.F90 | 2 +- src/matinv.F90 | 10 +++++----- 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 -- cgit v1.2.3