diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/AHFinder_output.F | 6 |
1 files changed, 2 insertions, 4 deletions
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) |