Initial commit

1 files changed, 37 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/ftc2dd.f b/pkg/tbtables/fitsio/ftc2dd.f
new file mode 100644
index 00000000..dfd7ac68
--- /dev/null
+++ b/pkg/tbtables/fitsio/ftc2dd.f
@@ -0,0 +1,37 @@
+C----------------------------------------------------------------------
+        subroutine ftc2dd(cval,val,status)
+
+C       convert a character string to double prec.
+C       (assumes that the input string is left justified)
+C       cval    c  input character string to be converted 
+C       val     d  output value 
+C       status  i  output error status (0 = OK)
+
+        character*(*) cval
+        double precision val
+        integer status,nleng
+        character iform*8,sval*16
+
+        if (status .gt. 0)return
+
+C       find length of the input double character string
+        nleng=index(cval,' ')-1
+        if (nleng .eq. -1)nleng=len(cval)
+
+C       construct the format statement to read the character string
+        if (nleng .le. 9)then
+                write(iform,1000)nleng
+1000            format('(F',I1,'.0)')
+        else
+                write(iform,1001)nleng
+1001            format('(F',I2,'.0)')
+        end if
+
+        read(cval,iform,err=900)val
+        return
+
+900     status=409
+        sval=cval
+        call ftpmsg('Error in FTC2DD evaluating this string '//
+     &       'as a double: '//sval)
+        end