diff options
author | hawke <hawke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-07-07 11:02:47 +0000 |
---|---|---|
committer | hawke <hawke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-07-07 11:02:47 +0000 |
commit | 3f36efd72d54db682a9f7cfd786ac2df1c55ccd8 (patch) | |
tree | 7641b9a830ecc0991a14955745dca64fb94664f3 /src | |
parent | 84a91684c788cb371d4e33021e4494d25882a148 (diff) |
Check the return code of OutputVarByMethod and give a level 2 warning if the 2D or 3D output fails (probably due to a missing IOFlexIO). Fixes PR1160.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@340 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
-rw-r--r-- | src/AHFinder_output.F | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index 58bbbec..ba3ef9d 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -232,6 +232,9 @@ c some compilers cannot trim an empty string, so we add at least one char call CCTK_OutputVarByMethod(ierror,cctkGH, . "ahfinder::ahf_exp3","IOFlexIO_2D") end if + if (ierror < 0) then + call CCTK_WARN(2, "Failed to output 2D data! For this to work, you must have IOFlexIO enabled") + end if end if if (ahf_3Doutput.ne.0) then @@ -246,6 +249,9 @@ c some compilers cannot trim an empty string, so we add at least one char call CCTK_OutputVarByMethod(ierror,cctkGH, . "ahfinder::ahf_exp","IOFlexIO_3D") end if + if (ierror < 0) then + call CCTK_WARN(2, "Failed to output 3D data! For this to work, you must have IOFlexIO enabled") + end if end if |