diff options
author | rideout <rideout@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-02-26 18:24:55 +0000 |
---|---|---|
committer | rideout <rideout@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-02-26 18:24:55 +0000 |
commit | e1647e086f502f32a2e726fbef6560172520335d (patch) | |
tree | 9e3c012a1164f699fcdf095d64ce069838f7a905 | |
parent | de96e52dba135ae69e8eb1bfbdadb64eaeb6ae2a (diff) |
Function aliased routines are now called as functions from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@79 f80f6fb6-8356-4fd4-90bc-d84ad503c100
-rw-r--r-- | src/WaveToy.F | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index 00e67e0..7f50d31 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -109,6 +109,7 @@ DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS + CCTK_INT Boundary_SelectVarForBC integer i integer :: ierr=-1 @@ -139,16 +140,16 @@ c Note: In each of the following calls to Boundary_SelectVarForBC, c default arguments are used, so an invalid table handle of -1 can c be passed if (CCTK_EQUALS(bound,"flat")) then - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "Flat"); else if (CCTK_EQUALS(bound,"static")) then - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "Static"); else if (CCTK_EQUALS(bound,"radiation")) then - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "Radiation"); else if (CCTK_EQUALS(bound,"robin")) then - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "Robin"); else if (CCTK_EQUALS(bound,"zero")) then c Face specific calls are not working yet with the new boundary interface: @@ -164,7 +165,7 @@ c call BndScalarDirVN(ierr,cctkGH,swdir,mithree,sval,"wavetoy::phi") c BOUNDARY_ERROR c call BndScalarDirVN(ierr,cctkGH,swdir,ithree ,sval,"wavetoy::phi") c BOUNDARY_ERROR - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "Scalar"); else if (.NOT. CCTK_EQUALS(bound,"none")) then call CCTK_WARN(0,"Unrecognized boundary condition") |