diff options
Diffstat (limited to 'src/matinv.F90')
-rw-r--r-- | src/matinv.F90 | 10 |
1 files changed, 5 insertions, 5 deletions
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 |