diff options
-rw-r--r-- | src/matdet.F90 | 2 | ||||
-rw-r--r-- | 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 |