diff options
author | yye00 <yye00@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2005-04-29 21:43:44 +0000 |
---|---|---|
committer | yye00 <yye00@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2005-04-29 21:43:44 +0000 |
commit | ed53bdbb676b6d21df25e8a9ce93565268ae30e9 (patch) | |
tree | 8ca2cfaa7bf0c038186474e5fee219be7895aec7 | |
parent | 8b4f8227b553e34038ba3368ad70e7ad590f9e6d (diff) |
sorry, it seems I wiped the file
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@378 89daf98e-ef62-4674-b946-b8ff9de2216c
-rw-r--r-- | src/AHFinder_ParamCheck.F90 | 43 |
1 files changed, 43 insertions, 0 deletions
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 |