diff options
| author | yye00 <yye00@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2005-04-29 20:58:35 +0000 |
|---|---|---|
| committer | yye00 <yye00@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2005-04-29 20:58:35 +0000 |
| commit | 8b4f8227b553e34038ba3368ad70e7ad590f9e6d (patch) | |
| tree | 4fdfbd300592c44163601551bf96bc6e2ec89b2d | |
| parent | eefab44a3f055102e6ac7d5f81e82501692a71f0 (diff) | |
replace \r with \n
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@377 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder_ParamCheck.F90 | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/src/AHFinder_ParamCheck.F90 b/src/AHFinder_ParamCheck.F90 index 7324dce..e69de29 100644 --- a/src/AHFinder_ParamCheck.F90 +++ b/src/AHFinder_ParamCheck.F90 @@ -1,43 +0,0 @@ -! @@ -! @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 |