From ed53bdbb676b6d21df25e8a9ce93565268ae30e9 Mon Sep 17 00:00:00 2001
From: yye00 <yye00@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Fri, 29 Apr 2005 21:43:44 +0000
Subject: sorry, it seems I wiped the file

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@378 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 src/AHFinder_ParamCheck.F90 | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/src/AHFinder_ParamCheck.F90 b/src/AHFinder_ParamCheck.F90
index e69de29..7324dce 100644
--- a/src/AHFinder_ParamCheck.F90
+++ b/src/AHFinder_ParamCheck.F90
@@ -0,0 +1,43 @@
+!  @@
+!  @file      ParamCheck.F90
+!  @date      Mon Apr 29 17:51:25 2002
+!  @author    Peter Diener
+!  @desc 
+!  Parameter checking stuff for AHFinder
+!  @enddesc
+!  @version $Header$
+! @@
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Functions.h"
+#include "cctk_Parameters.h"
+
+! CCTK_FILEVERSION(CactusEinstein_AHFinder_ParamCheck_f)
+
+!  @@
+!  @routine    AHFinder_ParamCheck
+!  @date       Thu Apr 29 17:51:25 2002
+!  @author     Peter Diener
+!  @desc 
+!  Scheduled routine to detect invalid parameter settings.
+!  @enddesc 
+!  @calls     
+!  @calledby   
+!  @history 
+!
+!  @endhistory 
+!
+! @@
+
+subroutine AHFinder_ParamCheck(CCTK_ARGUMENTS)
+ 
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_PARAMETERS
+  DECLARE_CCTK_FUNCTIONS
+
+  if ( ( .not. CCTK_EQUALS(metric_type,'physical') ) .and. &
+       ( .not. CCTK_EQUALS(metric_type,'static conformal') ) ) then
+    call CCTK_PARAMWARN('Unknown ADMBase::metric_type - known types are "physical" and "static conformal"')
+  end if
+end subroutine AHFinder_ParamCheck
-- 
cgit v1.2.3