diff options
| author | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-02-03 14:04:05 +0000 |
|---|---|---|
| committer | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-02-03 14:04:05 +0000 |
| commit | 2dbeb95f3012efd7ccafa06503c113c58bbbec0d (patch) | |
| tree | 91ef35b7f2155fdb308ee7761df0d528b179113b /src | |
| parent | 22e771e4b54d67f42856ec5d3fe06e7d3593a465 (diff) | |
- workaround for bug in the Perl preprocessor
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@153 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/initialize.F77 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/initialize.F77 b/src/initialize.F77 index 74d47f6..8bb3fb8 100644 --- a/src/initialize.F77 +++ b/src/initialize.F77 @@ -43,9 +43,10 @@ C Set conformal state conformal_state=1 if (CCTK_EQUALS(conformal_storage,"factor+derivs")) then conformal_state = 2 - else if (CCTK_EQUALS(conformal_storage, - $ "factor+derivs+2nd derivs")) then - conformal_state = 3 + else if + $ (CCTK_EQUALS(conformal_storage, "factor+derivs+2nd derivs")) + then + conformal_state = 3 end if end if |