Use channel 11 rather than 1 for all output to files, since 1 may be

reserved for stdout on some machines.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@329 89daf98e-ef62-4674-b946-b8ff9de2216c

1 files changed, 7 insertions, 7 deletions

diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F
index 8005843..ad79044 100644
--- a/src/AHFinder_gau.F
+++ b/src/AHFinder_gau.F
@@ -1180,13 +1180,13 @@
 
          else
 
-            open(1,file=gaussf,form='formatted', status='old',
+            open(11,file=gaussf,form='formatted', status='old',
      .          position='append')
 
-            write(1,*)
-            write(1,"(A11,I4)")    '# Time step',cctk_iteration
-            write(1,"(A6,ES11.3)") '# Time',cctk_time
-            write(1,"(A6,I4)")     '# Call',ahf_ncall
+            write(11,*)
+            write(11,"(A11,I4)")    '# Time step',cctk_iteration
+            write(11,"(A6,ES11.3)") '# Time',cctk_time
+            write(11,"(A6,I4)")     '# Call',ahf_ncall
 
          end if
 
@@ -1194,13 +1194,13 @@
 
          do i=1,ntheta+1
             do j=1,nphi+1
-               write(1,"(ES11.3)") gaussian(i,j)
+               write(11,"(ES11.3)") gaussian(i,j)
             end do
          end do
 
 !        Close file.
 
-         close(1)
+         close(11)
 
       end if