From 5a2e68aed524b7a646b746c8fa989648f5812bd9 Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Thu, 29 Jul 1999 20:01:25 +0000
Subject: Changing name of private variable

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@9 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/Initial.F77 | 51 ---------------------------------------------------
 src/WaveToy.F77 |  6 +++---
 2 files changed, 3 insertions(+), 54 deletions(-)
 delete mode 100644 src/Initial.F77

(limited to 'src')

diff --git a/src/Initial.F77 b/src/Initial.F77
deleted file mode 100644
index dca2e8b..0000000
--- a/src/Initial.F77
+++ /dev/null
@@ -1,51 +0,0 @@
- /*@@
-   @file      WaveToy.F
-   @date      
-   @author    Tom Goodale
-   @desc 
-              Solve the 3D Wave Equation
-   @enddesc 
- @@*/
-
-#include "cctk.h" 
-#include "cctk_parameters.h"
-#include "cctk_arguments.h"
-
-
-
- /*@@
-   @routine    WaveToy_Initial
-   @date       
-   @author     Tom Goodale
-   @desc 
-               Set up initial properties for Wave Toy evolver
-   @enddesc 
-   @calls      
-   @calledby   
-   @history 
- 
-   @endhistory 
-
-@@*/
-
-      subroutine WaveToy_Initial(CCTK_FARGUMENTS)
-
-      implicit none
-
-      DECLARE_CCTK_FARGUMENTS
-      DECLARE_CCTK_PARAMETERS
-
-      CCTK_REAL :: min_delta,dx,dy,dz
-
-      dx = cctk_delta_space(1)
-      dy = cctk_delta_space(2)
-      dz = cctk_delta_space(3)
-
-c     Calculate timestep
-c     ------------------
-      min_delta = min(dx,dy,dz)
-      cctk_delta_time = dtfac*min_delta
-
-      end subroutine wavetoy_initial
-
-
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index c4ac4cb..3495359 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -6,7 +6,7 @@
               Evolution routines for the wave equation solver
    @enddesc 
  @@*/
-
+  
 #include "cctk.h" 
 #include "cctk_parameters.h"
 #include "cctk_arguments.h"
@@ -103,7 +103,7 @@ c     ----------------
          do j = jstart, jend
             do i = istart, iend
                
-               phi_tmp(i,j,k) = 
+               tmp(i,j,k) = 
      1		 2.0*(1.0 - (dt**2)*(1.0/dx**2 +   
      2              1.0/dy**2 +1.0/dz**2))*phi(i,j,k) -
      3              phi_old(i,j,k) + (dt**2) * 
@@ -122,7 +122,7 @@ c     -----------------
             do i = 1, cctk_lsh(1)
                
                phi_old(i,j,k) = phi(i,j,k)
-               phi(i,j,k)     = phi_tmp(i,j,k)
+               phi(i,j,k)     = tmp(i,j,k)
 
             end do
          end do
-- 
cgit v1.2.3