diff options
author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 14:55:50 +0000 |
---|---|---|
committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 14:55:50 +0000 |
commit | ac099068da91d9528088af849caa7aa2e6e1758a (patch) | |
tree | f8837bb58d475eb0492f4a6a604a0d51bba94423 /src | |
parent | d72eb352c6182603bde73125f71c4313f22cea28 (diff) |
Modified Files:
make.code.defn
Added Files:
Bona_Masso_data.F77 blended_boundary.F77 boundary.F77
decode_pars.F77 gauge.F77 initialize.F77 metric.F77
xyz_blended_boundary.F77
Removed Files:
Bona_Masso_data.F blended_boundary.F boundary.F decode_pars.F
gauge.F initialize.F metric.F xyz_blended_boundary.F
Rename files which really are Fortran 77
from foo.F (= Cactus Fortran 90 fixed form)
to foo.F77 (= Fortran 77)
This means they're now compiled with a Fortran 77 compiler.
This should make no difference to the semantics (they were already
Fortran 77 code), but makes it easier to compile this thorn on
platforms which have a Fortran 77 compiler but no Fortran 90 compiler.
Also small bugfix:
blended_boundary.F --> .F77
xyz_blended_boundary.F --> .F77
* change declaration of ierr from CCTK_REAL --> integer
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@135 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
-rw-r--r-- | src/Bona_Masso_data.F77 (renamed from src/Bona_Masso_data.F) | 0 | ||||
-rw-r--r-- | src/blended_boundary.F77 (renamed from src/blended_boundary.F) | 5 | ||||
-rw-r--r-- | src/boundary.F77 (renamed from src/boundary.F) | 0 | ||||
-rw-r--r-- | src/decode_pars.F77 (renamed from src/decode_pars.F) | 0 | ||||
-rw-r--r-- | src/gauge.F77 (renamed from src/gauge.F) | 0 | ||||
-rw-r--r-- | src/initialize.F77 (renamed from src/initialize.F) | 0 | ||||
-rw-r--r-- | src/make.code.defn | 16 | ||||
-rw-r--r-- | src/metric.F77 (renamed from src/metric.F) | 0 | ||||
-rw-r--r-- | src/xyz_blended_boundary.F77 (renamed from src/xyz_blended_boundary.F) | 3 |
9 files changed, 13 insertions, 11 deletions
diff --git a/src/Bona_Masso_data.F b/src/Bona_Masso_data.F77 index 9805e0a..9805e0a 100644 --- a/src/Bona_Masso_data.F +++ b/src/Bona_Masso_data.F77 diff --git a/src/blended_boundary.F b/src/blended_boundary.F77 index f74beb3..804f679 100644 --- a/src/blended_boundary.F +++ b/src/blended_boundary.F77 @@ -31,8 +31,9 @@ C $Header$ CCTK_REAL det, uxx, uxy, uxz, uyy, uyz, uzz CCTK_REAL vxe,vye,vze,sav - CCTK_REAL :: dx,dy,dz,time - CCTK_REAL :: ierr,xmx,xmn,ymx,ymn,zmx,zmn,rmx + CCTK_REAL dx,dy,dz,time + CCTK_REAL xmx,xmn,ymx,ymn,zmx,zmn,rmx + integer ierr C Grid parameters. diff --git a/src/boundary.F b/src/boundary.F77 index 1862e43..1862e43 100644 --- a/src/boundary.F +++ b/src/boundary.F77 diff --git a/src/decode_pars.F b/src/decode_pars.F77 index e81fd8a..e81fd8a 100644 --- a/src/decode_pars.F +++ b/src/decode_pars.F77 diff --git a/src/gauge.F b/src/gauge.F77 index f5c2e88..f5c2e88 100644 --- a/src/gauge.F +++ b/src/gauge.F77 diff --git a/src/initialize.F b/src/initialize.F77 index 00fca60..00fca60 100644 --- a/src/initialize.F +++ b/src/initialize.F77 diff --git a/src/make.code.defn b/src/make.code.defn index 136b470..54d7eef 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -4,20 +4,20 @@ # Source files in this directory SRCS = ParamCheck.c \ Startup.c \ - decode_pars.F \ - initialize.F \ + decode_pars.F77 \ + initialize.F77 \ \ slice_initialize.F \ slice_evolve.F \ slice_data.F \ \ - gauge.F \ - Bona_Masso_data.F \ - metric.F \ + gauge.F77 \ + Bona_Masso_data.F77 \ + metric.F77 \ \ - boundary.F \ - blended_boundary.F \ - xyz_blended_boundary.F \ + boundary.F77 \ + blended_boundary.F77 \ + xyz_blended_boundary.F77 \ linear_extrap_one_bndry.F # Subdirectories containing source files to be compiled diff --git a/src/metric.F b/src/metric.F77 index 23797f7..23797f7 100644 --- a/src/metric.F +++ b/src/metric.F77 diff --git a/src/xyz_blended_boundary.F b/src/xyz_blended_boundary.F77 index d596e79..9c6ef44 100644 --- a/src/xyz_blended_boundary.F +++ b/src/xyz_blended_boundary.F77 @@ -34,7 +34,8 @@ C $Header$ CCTK_REAL det, uxx, uxy, uxz, uyy, uyz, uzz CCTK_REAL vxe,vye,vze,sav - CCTK_REAL :: dx,dy,dz,time,ierr + CCTK_REAL dx,dy,dz,time + integer ierr C Grid parameters. |