Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/ftgkyd.f b/pkg/tbtables/fitsio/ftgkyd.f
new file mode 100644
index 00000000..b1ca4ccc
--- /dev/null
+++ b/pkg/tbtables/fitsio/ftgkyd.f
@@ -0,0 +1,26 @@
+C--------------------------------------------------------------------------
+        subroutine ftgkyd(iunit,keywrd,dval,comm,status)
+
+C       read a double precision value and comment string from a header record 
+C
+C       iunit   i  fortran input unit number
+C       keywrd  c  keyword name   
+C       OUTPUT PARAMETERS:
+C       dval    i  output keyword value 
+C       comm    c  output keyword comment
+C       status  i  returned error status (0=ok)
+C
+C       written by Wm Pence, HEASARC/GSFC, June 1991
+
+        character*(*) keywrd,comm
+        integer iunit,status
+        character value*35
+        double precision dval
+
+C       find the keyword and return value and comment as character strings
+        call ftgkey(iunit,keywrd,value,comm,status)
+
+C       convert character string to double precision
+C       datatype conversion will be performed if necessary and if possible
+        call ftc2d(value,dval,status)
+        end