From 3f36efd72d54db682a9f7cfd786ac2df1c55ccd8 Mon Sep 17 00:00:00 2001 From: hawke Date: Mon, 7 Jul 2003 11:02:47 +0000 Subject: 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 --- src/AHFinder_output.F | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- cgit v1.2.3