Initial revision

darcs-hash:20020218102534-e415b-377a960557b608d7eb50fff5c49084975ec77d30.gz

1 files changed, 50 insertions, 0 deletions

diff --git a/CarpetExtra/IDFOScalarWave/src/CheckParameters.F77 b/CarpetExtra/IDFOScalarWave/src/CheckParameters.F77
new file mode 100644
index 000000000..54efe1dde
--- /dev/null
+++ b/CarpetExtra/IDFOScalarWave/src/CheckParameters.F77
@@ -0,0 +1,50 @@
+c     -*-Fortran-*-
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/Attic/CheckParameters.F77,v 1.1 2002/02/18 11:26:34 shawley Exp $
+
+ /*@@
+   @file      CheckParameters.F77
+   @date      
+   @author    Gabrielle Allen
+   @desc 
+              Check parameters for the wave equation initial data
+   @enddesc 
+ @@*/
+
+#include "cctk.h" 
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
+
+
+ /*@@
+   @routine    IDFOScalarWave_CheckParameters
+   @date       
+   @author     Gabrielle Allen
+   @desc 
+               Check parameters for the wave equation initial data
+   @enddesc 
+   @calls      
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+      subroutine IDFOScalarWave_CheckParameters(CCTK_ARGUMENTS)
+
+      implicit none
+
+      DECLARE_CCTK_ARGUMENTS
+      DECLARE_CCTK_FUNCTIONS
+      DECLARE_CCTK_PARAMETERS
+
+      if (CCTK_EQUALS(initial_data,"box")) then
+
+         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