diff options
author | lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-19 11:59:54 +0000 |
---|---|---|
committer | lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-19 11:59:54 +0000 |
commit | e443eff9853a9a0c04f60e422b5002e3fff69af4 (patch) | |
tree | 570749528944e097de87941cced3a27836a633c8 | |
parent | ec047551c1d8d846ce4f5828c0dd442d0ddfa629 (diff) |
double prec. constants: 1.0d0
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@59 4451c3c6-1034-4891-99ea-21147727ccdf
-rw-r--r-- | src/WaveToy.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 9658beb..e0525b9 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -138,7 +138,7 @@ c ----------------------------------- call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi", & "wavetoy::phi") else if (CCTK_Equals(bound,"robin").eq.1) then - call RobinBCVar(ierr,cctkGH,1.0,1,sw, + call RobinBCVar(ierr,cctkGH,1.0d0,1,sw, & "wavetoy::phi") end if |