diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:18:08 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:18:08 -0400 |
| commit | 70fd14e98bc476a84aef352eaf063cfcba44ab83 (patch) | |
| tree | 2737f5c1c21c76824f49c6a1b9c7061952b646f5 /Wavecalc.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Wavecalc.f')
| -rwxr-xr-x | Wavecalc.f | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -8,12 +8,12 @@ c****************************************************************************** real*4 point real*8 c(9) - if (c(9) .eq. 1.) go to 20 - if (c(9) .eq. 2.) go to 40 - if (c(9) .eq. 3.) go to 30 + if (c(9) == 1.) go to 20 + if (c(9) == 2.) go to 40 + if (c(9) == 3.) go to 30 c*****no wavelength solution exists - if (c(1).eq.0. .or. c(2).eq.0.) then + if (c(1)==0. .or. c(2)==0.) then wavecalc = point c*****an ordinary polynomial solution |