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 /Finish.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Finish.f')
| -rwxr-xr-x | Finish.f | 34 |
1 files changed, 17 insertions, 17 deletions
@@ -10,26 +10,26 @@ c****************************************************************************** c close the files - if (nfmodel .ne. 0) close (unit=nfmodel) - if (nflines .ne. 0) close (unit=nflines) - if (nfslines .ne. 0) close (unit=nfslines) - if (nftable .ne. 0) close (unit=nftable) - if (nfobs .ne. 0) close (unit=nfobs) - if (nf1out .ne. 0) close (unit=nf1out) - if (nf2out .ne. 0) close (unit=nf2out) - if (nf3out .ne. 0) close (unit=nf3out) - if (nf4out .ne. 0) close (unit=nf4out) - if (nf5out .ne. 0) close (unit=nf5out) - if (control .ne. 'gridsyn' .and. control .ne. 'gridplo') then - if (nf6out .ne. 0) close (unit=nf6out) - if (nf7out .ne. 0) close (unit=nf7out) - if (nf8out .ne. 0) close (unit=nf8out) - if (nf9out .ne. 0) close (unit=nf9out) - if (nf10out .ne. 0) close (unit=nf10out) + if (nfmodel /= 0) close (unit=nfmodel) + if (nflines /= 0) close (unit=nflines) + if (nfslines /= 0) close (unit=nfslines) + if (nftable /= 0) close (unit=nftable) + if (nfobs /= 0) close (unit=nfobs) + if (nf1out /= 0) close (unit=nf1out) + if (nf2out /= 0) close (unit=nf2out) + if (nf3out /= 0) close (unit=nf3out) + if (nf4out /= 0) close (unit=nf4out) + if (nf5out /= 0) close (unit=nf5out) + if (control /= 'gridsyn' .and. control /= 'gridplo') then + if (nf6out /= 0) close (unit=nf6out) + if (nf7out /= 0) close (unit=nf7out) + if (nf8out /= 0) close (unit=nf8out) + if (nf9out /= 0) close (unit=nf9out) + if (nf10out /= 0) close (unit=nf10out) endif c write the closing message - if (number .eq. 0) then + if (number == 0) then istat = ivcleof (4,1) write (array,1001) istat = ivwrite (5,1,array,79) |