From 910bcfe9315eb3d307f2e50afe31496366faa962 Mon Sep 17 00:00:00 2001 From: rideout Date: Wed, 26 Feb 2003 18:22:54 +0000 Subject: Function aliased routines are now called as functions from Fortran. git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@93 4451c3c6-1034-4891-99ea-21147727ccdf --- src/WaveToy.F77 | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 90159cf..c9db34c 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -109,6 +109,7 @@ c ---------------- DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS + CCTK_INT Boundary_SelectVarForBC c Local declarations CCTK_REAL zero,one @@ -140,22 +141,23 @@ 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, + print *, "selecting for rediation cond" + 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 - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "Scalar"); else if (CCTK_EQUALS(bound,"none")) then - call Boundary_SelectVarForBC(ierr, cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, $ "wavetoy::phi", "None"); else call CCTK_WARN(0,"Unrecognized boundary condition") -- cgit v1.2.3