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/kbj.hlp | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 math/slalib/doc/kbj.hlp

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

diff --git a/math/slalib/doc/kbj.hlp b/math/slalib/doc/kbj.hlp
new file mode 100644
index 00000000..519868a7
--- /dev/null
+++ b/math/slalib/doc/kbj.hlp
@@ -0,0 +1,28 @@
+.help kbj Jun99 "Slalib Package"
+.nf
+
+      SUBROUTINE slKBJ (JB, E, K, J)
+
+     - - - -
+      K B J
+     - - - -
+
+  Select epoch prefix 'B' or 'J'
+
+  Given:
+     JB     int     slDBJI prefix status:  0=none, 1='B', 2='J'
+     E      dp      epoch - Besselian or Julian
+
+  Returned:
+     K      char    'B' or 'J'
+     J      int     status:  0=OK
+
+  If JB=0, B is assumed for E < 1984D0, otherwise J.
+
+  P.T.Wallace   Starlink   31 July 1989
+
+  Copyright (C) 1995 Rutherford Appleton Laboratory
+  Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
+
+.fi
+.endhelp
-- 
cgit 

