From 5c2e8c71ff02174ae7d9f5d5de9b7c2e4b843415 Mon Sep 17 00:00:00 2001
From: diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Wed, 5 Nov 2003 20:31:57 +0000
Subject: Slight formatting changes to make the red hat C preprocessor work
 without any special options.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@359 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 src/AHFinder_dis.F  |  5 +++--
 src/AHFinder_flow.F |  4 ++--
 src/AHFinder_int.F  |  2 +-
 src/AHFinder_leg.F  |  2 +-
 src/AHFinder_pow.F  | 10 +++++-----
 5 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/src/AHFinder_dis.F b/src/AHFinder_dis.F
index f0516a5..44b3bfd 100644
--- a/src/AHFinder_dis.F
+++ b/src/AHFinder_dis.F
@@ -8,9 +8,10 @@
 @@*/
 
 #include "cctk.h"
-#include "cctk_Parameters.h"
+
 #include "cctk_Arguments.h"
 #include "cctk_Functions.h"
+#include "cctk_Parameters.h"
 
       subroutine AHFinder_dis(CCTK_ARGUMENTS)
 
@@ -594,7 +595,7 @@
 !     ***   OUTPUT   ***
 !     ******************
 
- 100  continue
+  100 continue
 
       disf = filestr(1:nfile) // "/ahf_d12" // ".tl"
       if (myproc.eq.0) then
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F
index 89e4f9b..377255c 100644
--- a/src/AHFinder_flow.F
+++ b/src/AHFinder_flow.F
@@ -499,7 +499,7 @@
 
                   end if
 
- 10               format(I4,I4,A2,ES14.6,A1,ES14.6)
+   10             format(I4,I4,A2,ES14.6,A1,ES14.6)
 
                else
 
@@ -533,7 +533,7 @@
 
                   end if
 
- 20               format(I4,I4,A2,ES14.6)
+   20             format(I4,I4,A2,ES14.6)
 
                end if
             end if
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F
index 4e3c1b4..71a9deb 100644
--- a/src/AHFinder_int.F
+++ b/src/AHFinder_int.F
@@ -1283,7 +1283,7 @@
 !     ***   DEALLOCATE MEMORY   ***
 !     *****************************
 
- 10   continue
+   10 continue
 
       deallocate(costheta,sintheta)
       deallocate(cosphi,sinphi)
diff --git a/src/AHFinder_leg.F b/src/AHFinder_leg.F
index 654963b..c805d74 100644
--- a/src/AHFinder_leg.F
+++ b/src/AHFinder_leg.F
@@ -237,7 +237,7 @@
 !     ***   SAVE OLD VALUES   ***
 !     ***************************
 
- 10   continue
+   10 continue
 
       LOLD2   = LOLD1
       MOLD2   = MOLD1
diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F
index a928f76..a8b94d5 100644
--- a/src/AHFinder_pow.F
+++ b/src/AHFinder_pow.F
@@ -96,7 +96,7 @@
 
       ITER = 0
 
- 10   ITER = ITER + 1
+   10 ITER = ITER + 1
 
       if ((myproc.eq.0).and.veryver) then
          write(*,*)
@@ -142,7 +142,7 @@
             IBIG = I
          end if
 
- 20      continue
+   20   continue
 
       end do
 
@@ -652,7 +652,7 @@
 
       write(*,*) 'PARABOLA exceeded maximum number of iterations.'
 
- 3    XMIN = XX
+    3 XMIN = XX
       PARABOLA = FX
 
 
@@ -1014,7 +1014,7 @@
                         if (logfile) then
                            write(12,10) l,m,'  ',cc(l,m),' ',cs(l,m)
                         end if
- 10                     format(I4,I4,A2,ES14.6,A1,ES14.6)
+   10                   format(I4,I4,A2,ES14.6,A1,ES14.6)
                      end if
                   end do
                end do
@@ -1044,7 +1044,7 @@
                         if (logfile) then
                            write(12,20) l,m,'  ',cc(l,m)
                         end if
- 20                     format(I4,I4,A2,ES14.6)
+   20                   format(I4,I4,A2,ES14.6)
                      end if
                   end do
                end do
-- 
cgit v1.2.3