1 files changed, 21 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/ftclos.f b/pkg/tbtables/fitsio/ftclos.f
new file mode 100644
index 00000000..d5a1eb75
--- /dev/null
+++ b/pkg/tbtables/fitsio/ftclos.f
@@ -0,0 +1,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