diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-12-08 08:13:14 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-12-08 08:13:14 +0000 |
commit | 1b8c0cf5e3f579ec5a8f99151123e9b1820abc28 (patch) | |
tree | 1d2a9ebc69fb8a2fd317fe49784851a294cda29c | |
parent | 93462ac843e2b6a91fef984c7782dbff894326ca (diff) |
Add missing argument ierr for CCTK_CoordRange.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@23 51d2df92-0e4f-0410-a727-bd43d766d6b6
-rw-r--r-- | src/cctk_Coord.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/cctk_Coord.F90 b/src/cctk_Coord.F90 index 93a2db0..6075bca 100644 --- a/src/cctk_Coord.F90 +++ b/src/cctk_Coord.F90 @@ -40,7 +40,8 @@ module cctk_Coord end subroutine CCTK_CoordName subroutine CCTK_CoordRange & - (GH, coord_lower, coord_upper, coord_dir, coord_name, system_name) + (ierr, GH, coord_lower, coord_upper, & + coord_dir, coord_name, system_name) implicit none integer ierr CCTK_POINTER_TO_CONST GH |