blob: d5a1eb754fa634013bd7996a8ec983c0d61f30c7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
C--------------------------------------------------------------------------
subroutine ftclos(iunit,status)
C close a FITS file that was previously opened with ftopen or ftinit
C
C iunit i Fortran I/O unit number
C status i returned error status (0=ok)
C
C written by Wm Pence, HEASARC/GSFC, June 1991
integer iunit,status
logical keep
C close the current HDU and pad the header with blanks
call ftchdu(iunit,status)
C close the file
keep=.true.
call ftclsx(iunit,keep,status)
end
|
