diff options
| author | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-11-05 20:31:57 +0000 |
|---|---|---|
| committer | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-11-05 20:31:57 +0000 |
| commit | 5c2e8c71ff02174ae7d9f5d5de9b7c2e4b843415 (patch) | |
| tree | 45e17a91be46190d8c447110d081d6cc2f4f8661 | |
| parent | 7ce729799d3bf56ea66b14c93e14023b342b77d6 (diff) | |
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
| -rw-r--r-- | src/AHFinder_dis.F | 5 | ||||
| -rw-r--r-- | src/AHFinder_flow.F | 4 | ||||
| -rw-r--r-- | src/AHFinder_int.F | 2 | ||||
| -rw-r--r-- | src/AHFinder_leg.F | 2 | ||||
| -rw-r--r-- | 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 |