diff options
| author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-07-18 22:52:58 +0000 |
|---|---|---|
| committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-07-18 22:52:58 +0000 |
| commit | c7504103bac6e7f955519025d67a8377fa4d429f (patch) | |
| tree | 9e4a6aa4c5bf6314c4ff9fd5e236612650424241 | |
| parent | f6bae50da4135830f83c0144c4054acd03756c83 (diff) | |
Fix non-f77 comparison to be f77
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@101 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/WaveToy.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 30908dc..f79022f 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -145,7 +145,7 @@ c be passed $ "wavetoy::phi", "None"); end if - if (ierr < 0) then + if (ierr .lt. 0) then call CCTK_WARN(0,"WaveToyF77_Boundaries: Error selecting boundary condition") end if |