Screamer Project  V3.3.1
Screamer Structure
 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
subroutine close_outfile(iunit, ierr)
Definition: clsoutfl.f:1