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 /Pltflux.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Pltflux.f')
| -rwxr-xr-x | Pltflux.f | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -12,7 +12,7 @@ c****************************************************************************** c call up the flux plot - if (plotopt .eq. 0) return + if (plotopt == 0) return 10 choice = 'y' plotroutine = 'term_land_flux' lscreen = 12 @@ -25,14 +25,14 @@ c make a hardcopy, write to a postscript file, or replot? nchars = 33 call getasci (nchars,lscreen) choice = chinfo(1:1) - if (choice.eq.'n' .or. nchars.le.0) then + if (choice=='n' .or. nchars<=0) then return - elseif (choice .eq. 'h') then + elseif (choice == 'h') then plotroutine = 'hard_land_flux' call makeplot (lscreen) - elseif (choice .eq. 'r') then + elseif (choice == 'r') then go to 10 - elseif (choice .eq. 'f') then + elseif (choice == 'f') then plotroutine = 'file_land_flux' call makeplot (lscreen) endif |