diff options
| author | rideout <rideout@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-02-26 18:26:13 +0000 |
|---|---|---|
| committer | rideout <rideout@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-02-26 18:26:13 +0000 |
| commit | fea8d9168529b963006cbe6bce9a87043d675ee8 (patch) | |
| tree | da6145fc72922df55d210bac266f3d1875b4ea82 | |
| parent | bfc63cbc948baa67f49b2ae53dcdcd1d94f54f3f (diff) | |
Function aliased routines are now called as functions from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@51 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -rw-r--r-- | src/WaveToy.F90 | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 366900e..16b1677 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -112,6 +112,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS + CCTK_INT Boundary_SelectVarForBC integer :: ierr integer, dimension(3):: sw(3)=1 @@ -134,22 +135,22 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) ! 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 - 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") |