blob: 017333dd00e18aca07887045e4f549fee5885ff3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
.help dbjin Jun99 "Slalib Package"
.nf
SUBROUTINE slDBJI (STRING, NSTRT, DRESLT, J1, J2)
- - - - - -
D B J I
- - - - - -
Convert free-format input into double precision floating point,
using DFLTIN but with special syntax extensions.
The purpose of the syntax extensions is to help cope with mixed
FK4 and FK5 data. In addition to the syntax accepted by DFLTIN,
the following two extensions are recognized by DBJIN:
1) A valid non-null field preceded by the character 'B'
(or 'b') is accepted.
2) A valid non-null field preceded by the character 'J'
(or 'j') is accepted.
The calling program is notified of the incidence of either of these
extensions through an supplementary status argument. The rest of
the arguments are as for DFLTIN.
Given:
STRING char string containing field to be decoded
NSTRT int pointer to 1st character of field in string
Returned:
NSTRT int incremented
DRESLT double result
J1 int DFLTIN status: -1 = -OK
0 = +OK
+1 = null field
+2 = error
J2 int syntax flag: 0 = normal DFLTIN syntax
+1 = 'B' or 'b'
+2 = 'J' or 'j'
Called: slDFLI
For details of the basic syntax, see slDFLI.
P.T.Wallace Starlink 23 November 1995
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
