From 30a24b5a6b572257327c01d3c5ab577d4669722b Mon Sep 17 00:00:00 2001 From: diener Date: Sat, 8 Feb 2003 02:54:56 +0000 Subject: The routine AHFinder_InitOutput (scheduled at CCTK_INITIAL) was using myproc before it was assigned a value in the routine AHFinder (scheduled at CCTK_ANALYSIS) leading to (on seaborg) that all processors attempted to create files. This worked sometimes on few processors, but failed on many processors. This assignment is now done in AHFinder_InitOutput. I have no idea why this became a problem now. In the past I have been able to run the AHFinder on seaborg. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@330 89daf98e-ef62-4674-b946-b8ff9de2216c --- src/AHFinder_output.F | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index 1369dcb..58bbbec 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -16,6 +16,7 @@ implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_FUNCTIONS character(len=3) :: ext character(len=200) :: almf,areaf,massf,radf,circeqf,merip1f,merip2f @@ -23,6 +24,7 @@ character(len=200) :: disf character(len=200) :: gaussf, gauss0f, gauss1f, gauss2f + myproc = CCTK_MyProc(cctkGH) if (myproc.ne.0) then return end if @@ -77,10 +79,6 @@ c some compilers cannot trim an empty string, so we add at least one char write(11,"(A27)") '" Length of meridian, phi=0' close(11) - open(11,file=merip1f,form='formatted',status='replace') - write(11,"(A27)") '" Length of meridian, phi=0' - close(11) - open(11,file=merip2f,form='formatted',status='replace') write(11,"(A30)") '" Length of meridian, phi=pi/2' close(11) -- cgit v1.2.3