From 8b4f8227b553e34038ba3368ad70e7ad590f9e6d Mon Sep 17 00:00:00 2001 From: yye00 Date: Fri, 29 Apr 2005 20:58:35 +0000 Subject: replace \r with \n git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@377 89daf98e-ef62-4674-b946-b8ff9de2216c --- src/AHFinder_ParamCheck.F90 | 43 ------------------------------------------- 1 file changed, 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 -- cgit v1.2.3