diff options
| author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-22 07:29:38 +0000 |
|---|---|---|
| committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-22 07:29:38 +0000 |
| commit | 5afefab8fa05d588fb736aa640ffd9e9d3d67196 (patch) | |
| tree | 304ff6b59a96dfc35b4e189385ccae93022f18b9 | |
| parent | 1336e1b571e00a365b3cdcf6db045ebb9e70338c (diff) | |
Pass in variables instead of numbers into boundary function
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@64 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/WaveToy.F77 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 37650e6..5fa457b 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -111,6 +111,8 @@ c ---------------- c Local declarations CCTK_REAL zero,one + CCTK_REAL finf + integer npow integer ierr integer sw(3) @@ -118,6 +120,9 @@ c Local declarations zero = 0.0 one = 1.0 + npow = 1 + finf = 1.0d0 + c Set the stencil width c --------------------- sw(1)=1 @@ -138,8 +143,7 @@ c ----------------------------------- call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi", & "wavetoy::phi") else if (CCTK_Equals(bound,"robin").eq.1) then - call BndRobinVN(ierr,cctkGH, sw, 1.0d0,1, - & "wavetoy::phi") + call BndRobinVN(ierr,cctkGH, sw, finf, npow,"wavetoy::phi") end if if (ierr < 0) then |