Initial commit

1 files changed, 53 insertions, 0 deletions

diff --git a/src/slalib/dtf2r.f b/src/slalib/dtf2r.f
new file mode 100644
index 0000000..b100889
--- /dev/null
+++ b/src/slalib/dtf2r.f
@@ -0,0 +1,53 @@
+      SUBROUTINE sla_DTF2R (IHOUR, IMIN, SEC, RAD, J)
+*+
+*     - - - - - -
+*      D T F 2 R
+*     - - - - - -
+*
+*  Convert hours, minutes, seconds to radians (double precision)
+*
+*  Given:
+*     IHOUR       int       hours
+*     IMIN        int       minutes
+*     SEC         dp        seconds
+*
+*  Returned:
+*     RAD         dp        angle in radians
+*     J           int       status:  0 = OK
+*                                    1 = IHOUR outside range 0-23
+*                                    2 = IMIN outside range 0-59
+*                                    3 = SEC outside range 0-59.999...
+*
+*  Called:
+*     sla_DTF2D
+*
+*  Notes:
+*
+*     1)  The result is computed even if any of the range checks fail.
+*
+*     2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   July 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IHOUR,IMIN
+      DOUBLE PRECISION SEC,RAD
+      INTEGER J
+
+      DOUBLE PRECISION TURNS
+
+*  Turns to radians
+      DOUBLE PRECISION T2R
+      PARAMETER (T2R=6.283185307179586476925287D0)
+
+
+
+*  Convert to turns then radians
+      CALL sla_DTF2D(IHOUR,IMIN,SEC,TURNS,J)
+      RAD=T2R*TURNS
+
+      END