1 files changed, 26 insertions, 0 deletions
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