aboutsummaryrefslogtreecommitdiff
path: root/math/slalib/doc/cr2af.hlp
diff options
context:
space:
mode:
authorJoe Hunkeler <jhunkeler@gmail.com>2015-08-11 16:51:37 -0400
committerJoe Hunkeler <jhunkeler@gmail.com>2015-08-11 16:51:37 -0400
commit40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch)
tree4464880c571602d54f6ae114729bf62a89518057 /math/slalib/doc/cr2af.hlp
downloadiraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz
Repatch (from linux) of OSX IRAF
Diffstat (limited to 'math/slalib/doc/cr2af.hlp')
-rw-r--r--math/slalib/doc/cr2af.hlp46
1 files changed, 46 insertions, 0 deletions
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