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 /Cogsyn.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Cogsyn.f')
| -rwxr-xr-x | Cogsyn.f | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -67,13 +67,13 @@ c*****do the syntheses nlines = 0 call synspec call total - if (ncurve .eq. 1) then + if (ncurve == 1) then wstart = 10.**(rwlow)*wave1(lim1) wstop = 10.**(rwhigh)*wave1(lim1) endif molopt = 1 linprintopt = 0 - if (w(ncurve) .gt. wstart) then + if (w(ncurve) > wstart) then pecabund(iatom,1) = pecabund(iatom,1) - rwstep go to 10 endif @@ -84,7 +84,7 @@ c*****do the syntheses call total molopt = 1 linprintopt = 0 - if (w(ncurve) .lt. wstop) then + if (w(ncurve) < wstop) then pecabund(iatom,1) = pecabund(iatom,1) + rwstep go to 20 endif |