diff options
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) |