Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
All
Files
Functions
Variables
clsoutfl.f
Go to the documentation of this file.
1
subroutine
close_outfile
(iunit,ierr)
2
c
3
c-----Description-------------------------------------------------------
4
c
5
c Purpose: This subroutine closes the SCREAMER output parameter file
6
c Author: K.L.Fugelso, 1265 (SEA), 12/89
7
c
8
c Calls: None
9
c Called by: zdem, csvvals, filvals, pffvals, sfcvals, tabvals,
10
c ufovals
11
c
12
c-----Input Parameters--------------------------------------------------
13
c
14
integer
iunit
! Logical unit # of SCREAMER output parameter file
15
c
16
c-----Output Parameters-------------------------------------------------
17
c
18
integer
ierr
! Condition returned from the FORTRAN CLOSE
19
c
20
c-----Subroutine Body---------------------------------------------------
21
c
22
c Close the file and return the iostat condition
23
c
24
close
(iunit,iostat=ierr)
25
c
26
c-----Return to Calling Routine-----------------------------------------
27
c
28
return
29
end
close_outfile
subroutine close_outfile(iunit, ierr)
Definition:
clsoutfl.f:1
release_3.3.1_beta
src
clsoutfl.f
Generated on Mon May 5 2014 15:41:48 for Screamer Project by
1.8.7