1 files changed, 0 insertions, 52 deletions
diff --git a/src/CheckParameters.F77 b/src/CheckParameters.F77
deleted file mode 100644
index ccf9fbb..0000000
--- a/src/CheckParameters.F77
+++ /dev/null
@@ -1,52 +0,0 @@
- /*@@
-   @file      CheckParameters.F77
-   @date      
-   @author    Gabrielle Allen
-   @desc 
-              Check parameters for the wave equation evolver
-   @enddesc 
- @@*/
-
-#include "cctk.h" 
-#include "cctk_parameters.h"
-#include "cctk_arguments.h"
-
-
- /*@@
-   @routine    WaveToyF77_CheckParameters
-   @date       
-   @author     Gabrielle Allen
-   @desc 
-               Check parameters for the wave equation evolver
-   @enddesc 
-   @calls      
-   @calledby   
-   @history 
- 
-   @endhistory 
-
-@@*/
-
-      subroutine WaveToyF77_CheckParameters(CCTK_FARGUMENTS)
-
-      implicit none
-
-      DECLARE_CCTK_FARGUMENTS
-      DECLARE_CCTK_PARAMETERS
-
-      INTEGER CCTK_Equals
-
-      if (CCTK_Equals(initial_data,"box").eq.1) then
-
-         if (CCTK_Equals(type, "box").eq.0) then
-            call CCTK_PARAMWARN("Must have a box grid with box initial data")
-         end if
-
-         if (kx.eq.0 .or. ky.eq.0 .or. kz.eq.0) then
-            call CCTK_PARAMWARN("Cannot have zero kx,ky,kz for box initial data")
-         end if
-
-      end if
-
-      return
-      end