diff options
Diffstat (limited to 'Carpet/CarpetLib/src/checkindex.F77')
| -rw-r--r-- | Carpet/CarpetLib/src/checkindex.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Carpet/CarpetLib/src/checkindex.F77 b/Carpet/CarpetLib/src/checkindex.F77 index 026d9c2bd..0df62994f 100644 --- a/Carpet/CarpetLib/src/checkindex.F77 +++ b/Carpet/CarpetLib/src/checkindex.F77 @@ -18,6 +18,6 @@ c $Header:$ $ .or. k.lt.1 .or. k+dk-1.gt.kmax) then write (msg, '(a, " array index out of bounds: shape is (",i4,",",i4,",",i4,"), index is (",i4,",",i4,",",i4,"), extent is (",i4,",",i4,",",i4,")")') $ where, imax,jmax,kmax, i,j,k, di,dj,dk - call CCTK_WARN (0, msg(1:len_trim(msg))) + call CCTK_WARN (0, msg) end if end |