From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 math/slalib/doc/cr2af.hlp | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 math/slalib/doc/cr2af.hlp

(limited to 'math/slalib/doc/cr2af.hlp')

diff --git a/math/slalib/doc/cr2af.hlp b/math/slalib/doc/cr2af.hlp
new file mode 100644
index 00000000..2a1863ca
--- /dev/null
+++ b/math/slalib/doc/cr2af.hlp
@@ -0,0 +1,46 @@
+.help cr2af Jun99 "Slalib Package"
+.nf
+
+      SUBROUTINE slCRAF (NDP, ANGLE, SIGN, IDMSF)
+
+     - - - - - -
+      C R A F
+     - - - - - -
+
+  Convert an angle in radians into degrees, arcminutes, arcseconds
+  (single precision)
+
+  Given:
+     NDP       int      number of decimal places of arcseconds
+     ANGLE     real     angle in radians
+
+  Returned:
+     SIGN      char     '+' or '-'
+     IDMSF     int(4)   degrees, arcminutes, arcseconds, fraction
+
+  Notes:
+
+     1)  NDP less than zero is interpreted as zero.
+
+     2)  The largest useful value for NDP is determined by the size of
+         ANGLE, the format of REAL floating-point numbers on the target
+         machine, and the risk of overflowing IDMSF(4).  For example,
+         on the VAX, for ANGLE up to 2pi, the available floating-point
+         precision corresponds roughly to NDP=3.  This is well below
+         the ultimate limit of NDP=9 set by the capacity of the 32-bit
+         integer IHMSF(4).
+
+     3)  The absolute value of ANGLE may exceed 2pi.  In cases where it
+         does not, it is up to the caller to test for and handle the
+         case where ANGLE is very nearly 2pi and rounds up to 360 deg,
+         by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+
+  Called:  slCDTF
+
+  P.T.Wallace   Starlink   18 March 1999
+
+  Copyright (C) 1999 Rutherford Appleton Laboratory
+  Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
+
+.fi
+.endhelp
-- 
cgit 

