diff options
author | tradke <tradke@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7> | 2006-08-31 09:33:19 +0000 |
---|---|---|
committer | tradke <tradke@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7> | 2006-08-31 09:33:19 +0000 |
commit | e325a404946e773b7f8675c2bcd14b29d4c8921b (patch) | |
tree | 7855b62246c78c6f39f9da6eaef8afa35646b6e5 /src/planewaves.F77 | |
parent | c0b921162f339cc154d247e09b4faea63e02c60e (diff) |
Fixed non-conformant F77 code: remove trailing semicolons,
use the '.eq.' comparison operator instead of '=='.
While g77 and the Intel compiler apparently ignore the problem, the Portland
compiler stops with an error.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDLinearWaves/trunk@96 5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7
Diffstat (limited to 'src/planewaves.F77')
-rw-r--r-- | src/planewaves.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/planewaves.F77 b/src/planewaves.F77 index e33ece2..317c645 100644 --- a/src/planewaves.F77 +++ b/src/planewaves.F77 @@ -231,10 +231,10 @@ c Check if we should create and store conformal factor stuff */ if(CCTK_EQUALS(conformal_storage,"factor+derivs")) then - conformal_state = 2; + conformal_state = 2 else if(CCTK_EQUALS(conformal_storage,"factor+derivs+2nd derivs")) then - conformal_state = 3; + conformal_state = 3 end if do k=1,cctk_lsh(3) |