From e443eff9853a9a0c04f60e422b5002e3fff69af4 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Wed, 19 Jul 2000 11:59:54 +0000
Subject: double prec. constants: 1.0d0

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@59 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/WaveToy.F77 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
-- 
cgit v1.2.3