132 void palDafin (
const char *
string,
int *ipos,
double *a,
int *j ) {
149 if ( jm < 0 || jm > 1 ) {
154 if (js < 0 || js > 1) {
162 }
else if (js == 0) {
170 }
else if (jm != 0 && js == 0) {
174 }
else if (jm == 0 &&
DINT(deg) != deg) {
177 }
else if ( (js == 0 &&
DINT(arcmin) != arcmin) || arcmin >= 60.0 ) {
180 }
else if (arcsec >= 60.0) {
188 *a =
PAL__DAS2R * ( 60.0 * ( 60.0 * fabs(deg) + arcmin) + arcsec );
189 if ( jd < 0 ) *a *= -1.;
void palDafin(const char *string, int *ipos, double *a, int *j)
static const double PAL__DAS2R
void palDfltin(const char *string, int *nstrt, double *dreslt, int *jflag)