From 180309c930ec6bb4be5c0f03b6807ad970e05726 Mon Sep 17 00:00:00 2001
From: goodale <goodale@daab82bb-f315-4ad1-b6d0-9353ff8b6e27>
Date: Thu, 17 Feb 2000 06:42:31 +0000
Subject: Bringing back into line with WaveToyF90.

These thorns are supposed to be the same apart from language.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@10 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
---
 src/WaveToy.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/WaveToy.F90 b/src/WaveToy.F90
index 4d7e8c2..ea6b410 100644
--- a/src/WaveToy.F90
+++ b/src/WaveToy.F90
@@ -127,7 +127,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_FARGUMENTS)
   if (CCTK_EQUALS(bound,"flat")) then
      call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyfreef90::phi_tmp")
   else if (CCTK_EQUALS(bound,"radiation")) then
-     call ApplyRadiativeBC(ierr,cctkGH,zero,one,sw, &
+     call RadiativeBCVar(ierr,cctkGH,zero,one,sw,   &
           "wavetoyfreef90::phi_tmp","wavetoy::phi")
   end if
   
-- 
cgit v1.2.3