From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 pkg/tbtables/fitsio/ftc2l.f | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 pkg/tbtables/fitsio/ftc2l.f

(limited to 'pkg/tbtables/fitsio/ftc2l.f')

diff --git a/pkg/tbtables/fitsio/ftc2l.f b/pkg/tbtables/fitsio/ftc2l.f
new file mode 100644
index 00000000..8a1e22ef
--- /dev/null
+++ b/pkg/tbtables/fitsio/ftc2l.f
@@ -0,0 +1,26 @@
+C----------------------------------------------------------------------
+        subroutine ftc2l(cval,lval,status)
+
+C       convert a character string to a logical value
+C       perform datatype conversion, if required
+
+        logical lval
+        integer ival,status
+        character*(*) cval
+        character*1 dtype
+        character sval*16
+        double precision dval
+
+
+C       convert string to its intrinsic data type
+        call ftc2x(cval,dtype,ival,lval,sval,dval,status)
+        if (status .gt. 0)return
+
+        if (dtype .ne. 'L')then
+C              this is not a logical keyword, so return error
+               status=404
+               sval=cval
+               call ftpmsg('Error in FTC2L evaluating this string '//
+     &          'as a logical value: '//sval)
+        end if
+        end
-- 
cgit