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 /Total.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Total.f')
| -rwxr-xr-x | Total.f | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -15,7 +15,7 @@ c****************************************************************************** c*****compute the wavelength array ntotal = (sstop - start)/step + 1.3 - if (ntotal .gt. 5000) then + if (ntotal > 5000) then write (nf1out,1002) ntotal write (nf2out,1002) ntotal return @@ -34,7 +34,7 @@ c*****use the RINTEG routine to do an integration c*****Then recheck using Simpson's rule ntot = ntotal - if(ntotal/2*2 - ntotal .eq. 0) ntot = ntotal - 1 + if(ntotal/2*2 - ntotal == 0) ntot = ntotal - 1 answer = d(1) + 4.*d(2) + d(ntot) ntot = ntot - 2 do i=3,ntot,2 |