diff options
| author | allen <allen@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-03-22 16:09:02 +0000 |
|---|---|---|
| committer | allen <allen@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-03-22 16:09:02 +0000 |
| commit | fb4eb1eadcb9937d88e6cd3adba85585bb9be5cc (patch) | |
| tree | 1d5edcd99041e84752f4c155c9fd6aed22befbcb /src | |
| parent | 1cdf4bc6e9ff4891b2299a6a2176ce316eb73a6e (diff) | |
Mainly formatting changes
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAnalyticBH/trunk@10 6a3ddf76-46e1-4315-99d9-bc56cac1ef84
Diffstat (limited to 'src')
| -rw-r--r-- | src/ParamChecker.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/ParamChecker.F b/src/ParamChecker.F index b4e7e5e..cd5eebf 100644 --- a/src/ParamChecker.F +++ b/src/ParamChecker.F @@ -38,18 +38,18 @@ integer CCTK_Equals - if (CCTK_Equals(initial_data,"schwarzschild")==1) then + if (CCTK_Equals(initial_data,"schwarzschild") == 1) then write(*,*) 'One Black Hole: Throat at :',mass/2d0 - else if (CCTK_Equals(initial_data,"bl")==1) then + else if (CCTK_Equals(initial_data,"bl") == 1) then write(*,*) "Setting up Brill Lindquist Solution" write(*,*) " Number of black holes (bl_nbh) :",bl_nbh write(*,*) " Black hole masses (bl_M_?) :",bl_M_1,bl_M_2, & bl_M_3,bl_M_4 - else if (CCTK_Equals(initial_data,"multiple_misner")==1) then + else if (CCTK_Equals(initial_data,"multiple_misner") == 1) then write(*,*) "Setting up Misner solution for multiple holes" @@ -62,7 +62,7 @@ c Remind users about the conformal metric c --------------------------------------- - if (conformal_state == CONFORMAL_METRIC) then + if (use_conformal == 1) then write(*,*) "Implements conformal metric" if (use_conformal_derivs == 1) then write(*,*) " ... and conformal derivatives" |