Removing warnings

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

1 files changed, 33 insertions, 33 deletions

diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F
index 90392ba..a4e5ed7 100644
--- a/src/AHFinder_pow.F
+++ b/src/AHFinder_pow.F
@@ -102,11 +102,11 @@
 
       if ((myproc.eq.0).and.logfile) then
          logf = filestr(1:nfile)//"/ahf_logfile"
-         open(unit=1,file=logf,form='formatted',status='old',
+         open(11,file=logf,form='formatted',status='old',
      .   position='append')
-         write(1,*)
-         write(1,"(A20,I2)") 'POWELL ITERATION  = ',ITER
-         close(1)
+         write(11,*)
+         write(11,"(A20,I2)") 'POWELL ITERATION  = ',ITER
+         close(11)
       end if
 
       FP = FRET
@@ -711,7 +711,7 @@
       logf = filestr(1:nfile)//"/ahf_logfile"
 
       if (logfile.and.(myproc.eq.0)) then
-         open(1,file=logf,form='formatted',status='old',
+         open(12,file=logf,form='formatted',status='old',
      .   position='append')
       end if
 
@@ -868,8 +868,8 @@
          end if
 
          if (logfile) then
-            write(1,*)
-            write(1,"(A13,I5)") 'FUNC CALL  =',iter
+            write(12,*)
+            write(12,"(A13,I5)") 'FUNC CALL  =',iter
          end if
 
       end if
@@ -912,13 +912,13 @@
 !        Logfile.
 
          if (logfile) then
-            write(1,*)
-            write(1,"(A21,ES14.6)") ' Surface area       =',intarea
-            write(1,"(A21,ES14.6)") ' Mean value of H    =',aux*intexp
-            write(1,"(A21,ES14.6)") ' Mean value of H^2  =',aux*intexp2
-            write(1,*) 'Number of interpolated points:     ',
+            write(12,*)
+            write(12,"(A21,ES14.6)") ' Surface area       =',intarea
+            write(12,"(A21,ES14.6)") ' Mean value of H    =',aux*intexp
+            write(12,"(A21,ES14.6)") ' Mean value of H^2  =',aux*intexp2
+            write(12,*) 'Number of interpolated points:     ',
      .         inside_min_count
-            write(1,*) 'Number of those that are negative: ',
+            write(12,*) 'Number of those that are negative: ',
      .         inside_min_neg_count
          end if
 
@@ -956,20 +956,20 @@
 
          if (logfile) then
 
-            write(1,*)
-            write(1,"(A20)") ' Shape coefficients:'
+            write(12,*)
+            write(12,"(A20)") ' Shape coefficients:'
 
             if (offset) then
-               write(1,*)
-               write(1,"(A8,ES14.6)") '   xc  =',xc
-               write(1,"(A8,ES14.6)") '   yc  =',yc
-               write(1,"(A8,ES14.6)") '   zc  =',zc
+               write(12,*)
+               write(12,"(A8,ES14.6)") '   xc  =',xc
+               write(12,"(A8,ES14.6)") '   yc  =',yc
+               write(12,"(A8,ES14.6)") '   zc  =',zc
             end if
 
-            write(1,*)
-            write(1,*) '  l            c0_l'
-            write(1,*)
-            write(1,"(I4,A6,ES14.6)") 0,'      ',c0(0)
+            write(12,*)
+            write(12,*) '  l            c0_l'
+            write(12,*)
+            write(12,"(I4,A6,ES14.6)") 0,'      ',c0(0)
 
          end if
 
@@ -980,7 +980,7 @@
                write(*,"(I4,A6,ES14.6)") l,'      ',c0(l)
             end if
             if (logfile) then
-               write(1,"(I4,A6,ES14.6)") l,'      ',c0(l)
+               write(12,"(I4,A6,ES14.6)") l,'      ',c0(l)
             end if
          end do
 
@@ -999,9 +999,9 @@
                end if
 
                if (logfile) then
-                  write(1,*)
-                  write(1,*) '  l   m       cc_lm          cs_lm'
-                  write(1,*)
+                  write(12,*)
+                  write(12,*) '  l   m       cc_lm          cs_lm'
+                  write(12,*)
                end if
 
                do l=1,lmax
@@ -1011,7 +1011,7 @@
                            write(*,10) l,m,'  ',cc(l,m),' ',cs(l,m)
                         end if
                         if (logfile) then
-                           write(1,10) l,m,'  ',cc(l,m),' ',cs(l,m)
+                           write(12,10) l,m,'  ',cc(l,m),' ',cs(l,m)
                         end if
  10                     format(I4,I4,A2,ES14.6,A1,ES14.6)
                      end if
@@ -1029,9 +1029,9 @@
                end if
 
                if (logfile) then
-                  write(1,*)
-                  write(1,*) '  l   m       cc_lm'
-                  write(1,*)
+                  write(12,*)
+                  write(12,*) '  l   m       cc_lm'
+                  write(12,*)
                end if
 
                do l=1,lmax
@@ -1041,7 +1041,7 @@
                            write(*,20) l,m,'  ',cc(l,m)
                         end if
                         if (logfile) then
-                           write(1,20) l,m,'  ',cc(l,m)
+                           write(12,20) l,m,'  ',cc(l,m)
                         end if
  20                     format(I4,I4,A2,ES14.6)
                      end if
@@ -1077,7 +1077,7 @@
 !     *************************
 
       if (logfile.and.(myproc.eq.0)) then
-         close(1)
+         close(12)
       end if