diff options
Diffstat (limited to 'unix/hlib/libc/vosproto.h')
| -rw-r--r-- | unix/hlib/libc/vosproto.h | 4035 |
1 files changed, 4035 insertions, 0 deletions
diff --git a/unix/hlib/libc/vosproto.h b/unix/hlib/libc/vosproto.h new file mode 100644 index 00000000..031efd39 --- /dev/null +++ b/unix/hlib/libc/vosproto.h @@ -0,0 +1,4035 @@ +extern C_f ahivx_(complex * ret_val, complex *a, integer *npix); +extern C_f alovx_(complex * ret_val, complex *a, integer *npix); +extern C_f amedx_(complex * ret_val, complex *a, integer *npix); +extern C_f asokx_(complex * ret_val, complex *a, integer *npix, integer *ksel); +extern C_f assqx_(complex * ret_val, complex *a, integer *npix); +extern C_f asumx_(complex * ret_val, complex *a, integer *npix); +extern C_f clgetx_(complex * ret_val, shortint *param); +extern C_f clgpsx_(complex * ret_val, integer *pp, shortint *parnae); +extern C_f qpgetx_(complex * ret_val, integer *qp, shortint *param); +extern H_f agbnch_(char *ret_val, ftnlen ret_val_len, integer *idsh); +extern H_f agdshn_(char *ret_val, ftnlen ret_val_len, integer *idsh); +extern doublereal adotd_(doublereal *a, doublereal *b, integer *npix); +extern doublereal adotl_(integer *a, integer *b, integer *npix); +extern doublereal aelogd_(doublereal *x); +extern doublereal ahivd_(doublereal *a, integer *npix); +extern doublereal alovd_(doublereal *a, integer *npix); +extern doublereal amedd_(doublereal *a, integer *npix); +extern doublereal apold_(doublereal *x, doublereal *coeff, integer *ncoeff); +extern doublereal asokd_(doublereal *a, integer *npix, integer *ksel); +extern doublereal assqd_(doublereal *a, integer *npix); +extern doublereal assql_(integer *a, integer *npix); +extern doublereal asumd_(doublereal *a, integer *npix); +extern doublereal asuml_(integer *a, integer *npix); +extern doublereal clgetd_(shortint *param); +extern doublereal clgpsd_(integer *pp, shortint *parnae); +extern doublereal cqdged_(integer *cq, integer *record, shortint *field); +extern doublereal cqfged_(integer *cq, shortint *field); +extern doublereal cqistd_(integer *res, integer *param); +extern doublereal cqrstd_(integer *res, integer *param); +extern doublereal dtgetd_(integer *dt, integer *record, shortint *field); +extern doublereal dtmday_(integer *year, integer *month, integer *day, doublereal *t); +extern doublereal elogd_(doublereal *x); +extern doublereal envged_(shortint *varnae); +extern doublereal fpfixd_(doublereal *x); +extern doublereal icrmsd_(doublereal *x, doublereal *y, doublereal *fit, doublereal *wts, integer *npts); +extern doublereal imgetd_(integer *im, shortint *key); +extern doublereal ingdvd_(doublereal *x); +extern doublereal ingetd_(integer *in, integer *param); +extern doublereal inrmsd_(doublereal *y, doublereal *fit, doublereal *wts, integer *npts); +extern doublereal mefged_(integer *mef, shortint *key); +extern doublereal mwc1td_(integer *act, doublereal *x); +extern doublereal obsged_(integer *obs, shortint *param); +extern doublereal qpgetd_(integer *qp, shortint *param); +extern doublereal qpmaxd_(doublereal *x, doublereal *y); +extern doublereal qpmind_(doublereal *x, doublereal *y); +extern doublereal skstad_(integer *coo, integer *param); +extern doublereal wfgsdr_(integer *sf1, doublereal *x, doublereal *y, integer *nxd, integer *nyd); +extern doublereal wfgsel_(integer *sf, doublereal *x, doublereal *y); +extern doublereal wfmspi_(doublereal *coeff, doublereal *y, doublereal *x, doublereal *dydx); +extern doublereal wfmspl_(doublereal *coeff, doublereal *xin); +extern doublereal wlange_(integer *wd, integer *labels, integer *nlabes); +extern doublereal wlched_(doublereal *ex, doublereal *arr, integer *n); +extern doublereal wlcoon_(integer *wlct, integer *flip, doublereal *wx1, doublereal *wy1, doublereal *wx2, doublereal *wy2); +extern doublereal wldisd_(doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2); +extern doublereal wlroud_(doublereal *x, doublereal *y); +extern doublereal wlstre_(doublereal *angle, integer *rightp); +extern doublereal wlstrl_(shortint *input, integer *axiste, integer *whichs); +extern doublereal wlvece_(integer *gp, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2); +extern doublereal xacos_(doublereal *x); +extern doublereal xasin_(doublereal *x); +extern doublereal xatan2_(doublereal *x, doublereal *y); +extern doublereal xatan_(doublereal *x); +extern doublereal xcos_(doublereal *x); +extern doublereal xexp_(doublereal *x); +extern doublereal xlog10_(doublereal *x); +extern doublereal xlog_(doublereal *x); +extern doublereal xpow_(doublereal *x, doublereal *y); +extern doublereal xsin_(doublereal *x); +extern doublereal xsqrt_(doublereal *x); +extern doublereal xtan_(doublereal *x); +extern doublereal xtargd_(integer *stp, shortint *key); +extern integer aabsd_(doublereal *a, doublereal *b, integer *npix); +extern integer aabsi_(integer *a, integer *b, integer *npix); +extern integer aabsl_(integer *a, integer *b, integer *npix); +extern integer aabsr_(real *a, real *b, integer *npix); +extern integer aabss_(shortint *a, shortint *b, integer *npix); +extern integer aabsx_(complex *a, complex *b, integer *npix); +extern integer aaddd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aaddi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aaddki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddkr_(real *a, real *b, real *c__, integer *npix); +extern integer aaddks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aaddkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aaddl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddr_(real *a, real *b, real *c__, integer *npix); +extern integer aadds_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aaddx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aandi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aandki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aandkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aandks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aandl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aands_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aavgd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma); +extern integer aavgi_(integer *a, integer *npix, real *mean, real *sigma); +extern integer aavgl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma); +extern integer aavgr_(real *a, integer *npix, real *mean, real *sigma); +extern integer aavgs_(shortint *a, integer *npix, real *mean, real *sigma); +extern integer aavgx_(complex *a, integer *npix, real *mean, real *sigma); +extern integer abavd_(doublereal *a, doublereal *b, integer *nblocs, integer *npixpk); +extern integer abavi_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer abavl_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer abavr_(real *a, real *b, integer *nblocs, integer *npixpk); +extern integer abavs_(shortint *a, shortint *b, integer *nblocs, integer *npixpk); +extern integer abavx_(complex *a, complex *b, integer *nblocs, integer *npixpk); +extern integer abeqc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abeqi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqkc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqkd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abeqki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqkr_(real *a, real *b, integer *c__, integer *npix); +extern integer abeqks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqkx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abeql_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqr_(real *a, real *b, integer *c__, integer *npix); +extern integer abeqs_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgec_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abged_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgei_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgekc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgekd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgeki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgekl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgekr_(real *a, real *b, integer *c__, integer *npix); +extern integer abgeks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgekx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgel_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abger_(real *a, real *b, integer *c__, integer *npix); +extern integer abges_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgex_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgtc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgti_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtkc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtkd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgtki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtkr_(real *a, real *b, integer *c__, integer *npix); +extern integer abgtks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtkx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgtl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtr_(real *a, real *b, integer *c__, integer *npix); +extern integer abgts_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer ablec_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abled_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer ablei_(integer *a, integer *b, integer *c__, integer *npix); +extern integer ablekc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer ablekd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer ableki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer ablekl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer ablekr_(real *a, real *b, integer *c__, integer *npix); +extern integer ableks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer ablekx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer ablel_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abler_(real *a, real *b, integer *c__, integer *npix); +extern integer ables_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer ablex_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abltc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer ablti_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltkc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltkd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abltki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltkr_(real *a, real *b, integer *c__, integer *npix); +extern integer abltks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltkx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abltl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltr_(real *a, real *b, integer *c__, integer *npix); +extern integer ablts_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abnec_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abned_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abnei_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abnekc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abnekd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abneki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abnekl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abnekr_(real *a, real *b, integer *c__, integer *npix); +extern integer abneks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abnekx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abnel_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abner_(real *a, real *b, integer *c__, integer *npix); +extern integer abnes_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abnex_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abori_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aborki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aborkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aborks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aborl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abors_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer absud_(doublereal *a, doublereal *b, integer *nblocs, integer *npixpk); +extern integer absui_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer absul_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer absur_(real *a, real *b, integer *nblocs, integer *npixpk); +extern integer absus_(shortint *a, shortint *b, integer *nblocs, integer *npixpk); +extern integer acht_(shortint *a, shortint *b, integer *nelem, integer *tya, integer *tyb); +extern integer achtb_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtc_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtcc_(shortint *a, shortint *b, integer *npix); +extern integer achtcd_(shortint *a, doublereal *b, integer *npix); +extern integer achtci_(shortint *a, integer *b, integer *npix); +extern integer achtcl_(shortint *a, integer *b, integer *npix); +extern integer achtcr_(shortint *a, real *b, integer *npix); +extern integer achtcs_(shortint *a, shortint *b, integer *npix); +extern integer achtcx_(shortint *a, complex *b, integer *npix); +extern integer achtd_(doublereal *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtdc_(doublereal *a, shortint *b, integer *npix); +extern integer achtdd_(doublereal *a, doublereal *b, integer *npix); +extern integer achtdi_(doublereal *a, integer *b, integer *npix); +extern integer achtdl_(doublereal *a, integer *b, integer *npix); +extern integer achtdr_(doublereal *a, real *b, integer *npix); +extern integer achtds_(doublereal *a, shortint *b, integer *npix); +extern integer achtdx_(doublereal *a, complex *b, integer *npix); +extern integer achti_(integer *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtic_(integer *a, shortint *b, integer *npix); +extern integer achtid_(integer *a, doublereal *b, integer *npix); +extern integer achtii_(integer *a, integer *b, integer *npix); +extern integer achtil_(integer *a, integer *b, integer *npix); +extern integer achtir_(integer *a, real *b, integer *npix); +extern integer achtis_(integer *a, shortint *b, integer *npix); +extern integer achtix_(integer *a, complex *b, integer *npix); +extern integer achtl_(integer *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtlc_(integer *a, shortint *b, integer *npix); +extern integer achtld_(integer *a, doublereal *b, integer *npix); +extern integer achtli_(integer *a, integer *b, integer *npix); +extern integer achtll_(integer *a, integer *b, integer *npix); +extern integer achtlr_(integer *a, real *b, integer *npix); +extern integer achtls_(integer *a, shortint *b, integer *npix); +extern integer achtlx_(integer *a, complex *b, integer *npix); +extern integer achtr_(real *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtrc_(real *a, shortint *b, integer *npix); +extern integer achtrd_(real *a, doublereal *b, integer *npix); +extern integer achtri_(real *a, integer *b, integer *npix); +extern integer achtrl_(real *a, integer *b, integer *npix); +extern integer achtrr_(real *a, real *b, integer *npix); +extern integer achtrs_(real *a, shortint *b, integer *npix); +extern integer achtrx_(real *a, complex *b, integer *npix); +extern integer achts_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtsc_(shortint *a, shortint *b, integer *npix); +extern integer achtsd_(shortint *a, doublereal *b, integer *npix); +extern integer achtsi_(shortint *a, integer *b, integer *npix); +extern integer achtsl_(shortint *a, integer *b, integer *npix); +extern integer achtsr_(shortint *a, real *b, integer *npix); +extern integer achtss_(shortint *a, shortint *b, integer *npix); +extern integer achtsx_(shortint *a, complex *b, integer *npix); +extern integer achtu_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtx_(complex *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtxc_(complex *a, shortint *b, integer *npix); +extern integer achtxd_(complex *a, doublereal *b, integer *npix); +extern integer achtxi_(complex *a, integer *b, integer *npix); +extern integer achtxl_(complex *a, integer *b, integer *npix); +extern integer achtxr_(complex *a, real *b, integer *npix); +extern integer achtxs_(complex *a, shortint *b, integer *npix); +extern integer achtxx_(complex *a, complex *b, integer *npix); +extern integer acjgx_(complex *a, complex *b, integer *npix); +extern integer acjgx_(complex *a, complex *b, integer *npix); +extern integer aclrc_(shortint *a, integer *npix); +extern integer aclrd_(doublereal *a, integer *npix); +extern integer aclri_(integer *a, integer *npix); +extern integer aclrl_(integer *a, integer *npix); +extern integer aclrr_(real *a, integer *npix); +extern integer aclrs_(shortint *a, integer *npix); +extern integer aclrx_(complex *a, integer *npix); +extern integer acnvd_(doublereal *in, doublereal *out, integer *npix, doublereal *kernel, integer *knpix); +extern integer acnvi_(integer *in, integer *out, integer *npix, integer *kernel, integer *knpix); +extern integer acnvl_(integer *in, integer *out, integer *npix, integer *kernel, integer *knpix); +extern integer acnvr_(real *in, real *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrd_(doublereal *in, doublereal *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvri_(integer *in, integer *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrl_(integer *in, integer *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrr_(real *in, real *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrs_(shortint *in, shortint *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvs_(shortint *in, shortint *out, integer *npix, shortint *kernel, integer *knpix); +extern integer adivd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer adivi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer adivki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivkr_(real *a, real *b, real *c__, integer *npix); +extern integer adivks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer adivkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer adivl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivr_(real *a, real *b, real *c__, integer *npix); +extern integer adivs_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer adivx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer advzd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, D_fp errfcn); +extern integer advzi_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer advzl_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer advzr_(real *a, real *b, real *c__, integer *npix, R_fp errfcn); +extern integer advzs_(shortint *a, shortint *b, shortint *c__, integer *npix, J_fp errfcn); +extern integer advzx_(complex *a, complex *b, complex *c__, integer *npix, C_fp errfcn); +extern integer aexpd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aexpi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aexpki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpkr_(real *a, real *b, real *c__, integer *npix); +extern integer aexpks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aexpkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aexpl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpr_(real *a, real *b, real *c__, integer *npix); +extern integer aexps_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aexpx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer afftrr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftrr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftrx_(real *a, complex *b, integer *npix); +extern integer afftrx_(real *a, complex *b, integer *npix); +extern integer afftxr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftxr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftxx_(complex *a, complex *b, integer *npix); +extern integer afftxx_(complex *a, complex *b, integer *npix); +extern integer agaxis_(integer *iaxs, real *qtst, real *qspa, real *wcwp, real *hcwp, real *xbga, real *ybga, real *xnda, real *ynda, real *qlua, real *ubga, real *unda, real *funs, real *qbtp, real *base, real *qjdp, real *wmjl, real *wmjr, real *qmnt, real *qndp, real *wmnl, real *wmnr, real *qltp, real *qlex, real *qlfl, real *qlof, real *qlos, real *dnla, real *wclm, real *wcle, real *rfnl, real *qcim, real *qcie, real *wnll, real *wnlr, real *wnlb, real *wnle); +extern integer agback_(void); +extern integer agchax_(integer *iflg, integer *iaxs, integer *iprt, real *vils); +extern integer agchcu_(integer *iflg, integer *kdsh); +extern integer agchil_(integer *iflg, char *lbnm, integer *lnno, ftnlen lbnm_len); +extern integer agchnl_(integer *iaxs, real *vils, char *chrm, integer *mcim, integer *ncim, integer *ipxm, char *chre, integer *mcie, integer *ncie, ftnlen chrm_len, ftnlen chre_len); +extern integer agchnl_(integer *iaxs, real *vils, char *chrm, integer *mcim, integer *ncim, integer *ipxm, char *chre, integer *mcie, integer *ncie, ftnlen chrm_len, ftnlen chre_len); +extern integer agcorn_(integer *ntgr, char *bcrn, integer *ncrn, ftnlen bcrn_len); +extern integer agctcs_(char *tpid, integer *itcs, ftnlen tpid_len); +extern integer agctko_(real *xbga, real *ybga, real *xdca, real *ydca, real *cfax, real *cfay, real *csfa, integer *jaor, integer *nmmt, real *qmdp, real *wmml, real *wmmr, real *fnll, real *fnlr, integer *mm12, integer *mm34, real *xmmt, real *ymmt); +extern integer agcurv_(real *xvec, integer *iiex, real *yvec, integer *iiey, integer *nexy, integer *kdsh); +extern integer agdash_(real *dash, real *wodq, real *wocd, real *scwp); +extern integer agdflt_(void); +extern integer agdlch_(integer *idcs); +extern integer agexax_(integer *iaxs, real *sval, real *umin, real *umax, integer *nice, real *qlua, real *funs, real *qbtp, real *basd, real *base, real *qmjd, real *qmnd, real *qmnt, real *qltd, real *qltp, real *qled, real *qlex, real *qlfd, real *qlfl, real *qmin, real *qmax); +extern integer agexus_(real *sval, real *zmin, real *zmax, real *zlow, real *zhgh, real *zdra, integer *nviz, integer *iivz, integer *nevz, integer *iiez, real *umin, real *umax); +extern integer agezsu_(integer *itoc, real *xdra, real *ydra, integer *idxy, integer *many, integer *npts, char *labg, integer *iivx, integer *iiex, integer *iivy, integer *iiey, ftnlen labg_len); +extern integer agftol_(integer *iaxs, integer *idma, real *vinp, real *votp, real *vlcs, integer *llua, real *ubeg, real *udif, real *funs, integer *nbtp, real *sbse); +extern integer aggetc_(char *tpid, char *cusr, ftnlen tpid_len, ftnlen cusr_len); +extern integer aggetf_(char *tpid, real *fusr, ftnlen tpid_len); +extern integer aggeti_(char *tpid, integer *iusr, ftnlen tpid_len); +extern integer aggetp_(char *tpid, real *fura, integer *lura, ftnlen tpid_len); +extern integer aggtch_(integer *idcs, char *chst, integer *lncs, ftnlen chst_len); +extern integer aginit_(void); +extern integer agkurv_(real *xvec, integer *iiex, real *yvec, integer *iiey, integer *nexy, real *sval); +extern integer aglbls_(integer *itst, real *wcwp, real *hcwp, real *fllb, integer *lbim, real *flln, real *dbox, real *sbox, real *rbox); +extern integer agltc_(shortint *a, shortint *b, integer *npix, shortint *low, shortint *high, real *kmul, real *kadd, integer *nrange); +extern integer agltd_(doublereal *a, doublereal *b, integer *npix, doublereal *low, doublereal *high, doublereal *kmul, doublereal *kadd, integer *nrange); +extern integer aglti_(integer *a, integer *b, integer *npix, integer *low, integer *high, real *kmul, real *kadd, integer *nrange); +extern integer agltl_(integer *a, integer *b, integer *npix, integer *low, integer *high, doublereal *kmul, doublereal *kadd, integer *nrange); +extern integer agltr_(real *a, real *b, integer *npix, real *low, real *high, real *kmul, real *kadd, integer *nrange); +extern integer aglts_(shortint *a, shortint *b, integer *npix, shortint *low, shortint *high, real *kmul, real *kadd, integer *nrange); +extern integer agltx_(complex *a, complex *b, integer *npix, complex *low, complex *high, real *kmul, real *kadd, integer *nrange); +extern integer agnumb_(integer *nbtp, real *sbse, real *exmu, integer *nltp, integer *nlex, integer *nlfl, char *bfrm, integer *mcim, integer *ncim, integer *ipxm, char *bfre, integer *mcie, integer *ncie, ftnlen bfrm_len, ftnlen bfre_len); +extern integer agppid_(char *tpid, ftnlen tpid_len); +extern integer agpwrt_(real *xpos, real *ypos, char *chrs, integer *nchs, integer *isiz, integer *iori, integer *icen, ftnlen chrs_len); +extern integer agqurv_(real *xvec, integer *iiex, real *yvec, integer *iiey, integer *nexy, real *sval); +extern integer agrpch_(char *chst, integer *lncs, integer *idcs, ftnlen chst_len); +extern integer agrstr_(integer *ifno); +extern integer agsave_(integer *ifno); +extern integer agscan_(char *tpid, integer *lopa, integer *nipa, integer *iipa, ftnlen tpid_len); +extern integer agsetc_(char *tpid, char *cusr, ftnlen tpid_len, ftnlen cusr_len); +extern integer agsetf_(char *tpid, real *fusr, ftnlen tpid_len); +extern integer agseti_(char *tpid, integer *iusr, ftnlen tpid_len); +extern integer agsetp_(char *tpid, real *fura, integer *lura, ftnlen tpid_len); +extern integer agstch_(char *chst, integer *lncs, integer *idcs, ftnlen chst_len); +extern integer agstup_(real *xdra, integer *nvix, integer *iivx, integer *nevx, integer *iiex, real *ydra, integer *nviy, integer *iivy, integer *nevy, integer *iiey); +extern integer agutol_(integer *iaxs, real *funs, integer *idma, real *vinp, real *votp); +extern integer ahgmc_(shortint *data, integer *npix, integer *hgm, integer *nbins, shortint *z1, shortint *z2); +extern integer ahgmd_(doublereal *data, integer *npix, integer *hgm, integer *nbins, doublereal *z1, doublereal *z2); +extern integer ahgmi_(integer *data, integer *npix, integer *hgm, integer *nbins, integer *z1, integer *z2); +extern integer ahgml_(integer *data, integer *npix, integer *hgm, integer *nbins, integer *z1, integer *z2); +extern integer ahgmr_(real *data, integer *npix, integer *hgm, integer *nbins, real *z1, real *z2); +extern integer ahgms_(shortint *data, integer *npix, integer *hgm, integer *nbins, shortint *z1, shortint *z2); +extern integer aiftrr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftrr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftrx_(complex *a, real *b, integer *npix); +extern integer aiftrx_(complex *a, real *b, integer *npix); +extern integer aiftxr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftxr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftxx_(complex *a, complex *b, integer *npix); +extern integer aiftxx_(complex *a, complex *b, integer *npix); +extern integer aimgd_(complex *a, doublereal *b, integer *npix); +extern integer aimgi_(complex *a, integer *b, integer *npix); +extern integer aimgl_(complex *a, integer *b, integer *npix); +extern integer aimgr_(complex *a, real *b, integer *npix); +extern integer aimgs_(complex *a, shortint *b, integer *npix); +extern integer alani_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alanki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alankl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alanks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer alanl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alans_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer alimc_(shortint *a, integer *npix, shortint *minval, shortint *maxval); +extern integer alimd_(doublereal *a, integer *npix, doublereal *minval, doublereal *maxval); +extern integer alimi_(integer *a, integer *npix, integer *minval, integer *maxval); +extern integer aliml_(integer *a, integer *npix, integer *minval, integer *maxval); +extern integer alimr_(real *a, integer *npix, real *minval, real *maxval); +extern integer alims_(shortint *a, integer *npix, shortint *minval, shortint *maxval); +extern integer alimx_(complex *a, integer *npix, complex *minval, complex *maxval); +extern integer allnd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn); +extern integer allni_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer allnl_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer allnr_(real *a, real *b, integer *npix, R_fp errfcn); +extern integer allns_(shortint *a, shortint *b, integer *npix, J_fp errfcn); +extern integer allnx_(complex *a, complex *b, integer *npix, C_fp errfcn); +extern integer alogd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn); +extern integer alogi_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer alogl_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer alogr_(real *a, real *b, integer *npix, R_fp errfcn); +extern integer alogs_(shortint *a, shortint *b, integer *npix, J_fp errfcn); +extern integer alogx_(complex *a, complex *b, integer *npix, C_fp errfcn); +extern integer alori_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alorki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alorkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alorks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer alorl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alors_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer altad_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altai_(integer *a, integer *b, integer *npix, real *k1, real *k2); +extern integer altal_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altar_(real *a, real *b, integer *npix, real *k1, real *k2); +extern integer altas_(shortint *a, shortint *b, integer *npix, real *k1, real *k2); +extern integer altax_(complex *a, complex *b, integer *npix, real *k1, real *k2); +extern integer altmd_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altmi_(integer *a, integer *b, integer *npix, real *k1, real *k2); +extern integer altml_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altmr_(real *a, real *b, integer *npix, real *k1, real *k2); +extern integer altms_(shortint *a, shortint *b, integer *npix, real *k1, real *k2); +extern integer altmx_(complex *a, complex *b, integer *npix, real *k1, real *k2); +extern integer altrd_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2, doublereal *k3); +extern integer altri_(integer *a, integer *b, integer *npix, real *k1, real *k2, real *k3); +extern integer altrl_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2, doublereal *k3); +extern integer altrr_(real *a, real *b, integer *npix, real *k1, real *k2, real *k3); +extern integer altrs_(shortint *a, shortint *b, integer *npix, real *k1, real *k2, real *k3); +extern integer altrx_(complex *a, complex *b, integer *npix, real *k1, real *k2, real *k3); +extern integer aluid_(doublereal *a, doublereal *b, real *x, integer *npix); +extern integer aluii_(integer *a, integer *b, real *x, integer *npix); +extern integer aluil_(integer *a, integer *b, real *x, integer *npix); +extern integer aluir_(real *a, real *b, real *x, integer *npix); +extern integer aluis_(shortint *a, shortint *b, real *x, integer *npix); +extern integer alutc_(shortint *a, shortint *b, integer *npix, shortint *lut); +extern integer alutd_(integer *a, doublereal *b, integer *npix, doublereal *lut); +extern integer aluti_(integer *a, integer *b, integer *npix, integer *lut); +extern integer alutl_(integer *a, integer *b, integer *npix, integer *lut); +extern integer alutr_(integer *a, real *b, integer *npix, real *lut); +extern integer aluts_(shortint *a, shortint *b, integer *npix, shortint *lut); +extern integer amagd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amagi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amagl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amagr_(real *a, real *b, real *c__, integer *npix); +extern integer amags_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amagx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amapd_(doublereal *a, doublereal *b, integer *npix, doublereal *a1, doublereal *a2, doublereal *b1, doublereal *b2); +extern integer amapi_(integer *a, integer *b, integer *npix, integer *a1, integer *a2, integer *b1, integer *b2); +extern integer amapl_(integer *a, integer *b, integer *npix, integer *a1, integer *a2, integer *b1, integer *b2); +extern integer amapr_(real *a, real *b, integer *npix, real *a1, real *a2, real *b1, real *b2); +extern integer amaps_(shortint *a, shortint *b, integer *npix, shortint *a1, shortint *a2, shortint *b1, shortint *b2); +extern integer amaxc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amaxi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxkc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amaxki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxkr_(real *a, real *b, real *c__, integer *npix); +extern integer amaxks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amaxl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxr_(real *a, real *b, real *c__, integer *npix); +extern integer amaxs_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amed3c_(shortint *a, shortint *b, shortint *c__, shortint *m, integer *npix); +extern integer amed3d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *m, integer *npix); +extern integer amed3i_(integer *a, integer *b, integer *c__, integer *m, integer *npix); +extern integer amed3l_(integer *a, integer *b, integer *c__, integer *m, integer *npix); +extern integer amed3r_(real *a, real *b, real *c__, real *m, integer *npix); +extern integer amed3s_(shortint *a, shortint *b, shortint *c__, shortint *m, integer *npix); +extern integer amed4c_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *m, integer *npix); +extern integer amed4d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *m, integer *npix); +extern integer amed4i_(integer *a, integer *b, integer *c__, integer *d__, integer *m, integer *npix); +extern integer amed4l_(integer *a, integer *b, integer *c__, integer *d__, integer *m, integer *npix); +extern integer amed4r_(real *a, real *b, real *c__, real *d__, real *m, integer *npix); +extern integer amed4s_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *m, integer *npix); +extern integer amed5c_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *e, shortint *m, integer *npix); +extern integer amed5d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *e, doublereal *m, integer *npix); +extern integer amed5i_(integer *a, integer *b, integer *c__, integer *d__, integer *e, integer *m, integer *npix); +extern integer amed5l_(integer *a, integer *b, integer *c__, integer *d__, integer *e, integer *m, integer *npix); +extern integer amed5r_(real *a, real *b, real *c__, real *d__, real *e, real *m, integer *npix); +extern integer amed5s_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *e, shortint *m, integer *npix); +extern integer amgsd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amgsi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amgsl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amgsr_(real *a, real *b, real *c__, integer *npix); +extern integer amgss_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amgsx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aminc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amind_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amini_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminkc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aminkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aminki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminkr_(real *a, real *b, real *c__, integer *npix); +extern integer aminks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aminkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aminl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminr_(real *a, real *b, real *c__, integer *npix); +extern integer amins_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aminx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amodd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amodi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amodki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodkr_(real *a, real *b, real *c__, integer *npix); +extern integer amodks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amodl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodr_(real *a, real *b, real *c__, integer *npix); +extern integer amods_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amovc_(shortint *a, shortint *b, integer *npix); +extern integer amovd_(doublereal *a, doublereal *b, integer *npix); +extern integer amovi_(integer *a, integer *b, integer *npix); +extern integer amovkc_(shortint *a, shortint *b, integer *npix); +extern integer amovkd_(doublereal *a, doublereal *b, integer *npix); +extern integer amovki_(integer *a, integer *b, integer *npix); +extern integer amovkl_(integer *a, integer *b, integer *npix); +extern integer amovkr_(real *a, real *b, integer *npix); +extern integer amovks_(shortint *a, shortint *b, integer *npix); +extern integer amovkx_(complex *a, complex *b, integer *npix); +extern integer amovl_(integer *a, integer *b, integer *npix); +extern integer amovr_(real *a, real *b, integer *npix); +extern integer amovs_(shortint *a, shortint *b, integer *npix); +extern integer amovx_(complex *a, complex *b, integer *npix); +extern integer amuld_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amuli_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amulki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulkr_(real *a, real *b, real *c__, integer *npix); +extern integer amulks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amulkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amull_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulr_(real *a, real *b, real *c__, integer *npix); +extern integer amuls_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amulx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer anegd_(doublereal *a, doublereal *b, integer *npix); +extern integer anegi_(integer *a, integer *b, integer *npix); +extern integer anegl_(integer *a, integer *b, integer *npix); +extern integer anegr_(real *a, real *b, integer *npix); +extern integer anegs_(shortint *a, shortint *b, integer *npix); +extern integer anegx_(complex *a, complex *b, integer *npix); +extern integer anirs_(real *a, shortint *b, integer *n); +extern integer anotat_(char *labx, char *laby, integer *lbac, integer *lset, integer *ndsh, char *dshl, ftnlen labx_len, ftnlen laby_len, ftnlen dshl_len); +extern integer anoti_(integer *a, integer *b, integer *npix); +extern integer anotl_(integer *a, integer *b, integer *npix); +extern integer anots_(shortint *a, shortint *b, integer *npix); +extern integer apkxd_(doublereal *a, doublereal *b, complex *c__, integer *npix); +extern integer apkxi_(integer *a, integer *b, complex *c__, integer *npix); +extern integer apkxl_(integer *a, integer *b, complex *c__, integer *npix); +extern integer apkxr_(real *a, real *b, complex *c__, integer *npix); +extern integer apkxs_(shortint *a, shortint *b, complex *c__, integer *npix); +extern integer apkxx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer apowd_(doublereal *a, integer *b, doublereal *c__, integer *npix); +extern integer apowi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowkd_(doublereal *a, integer *b, doublereal *c__, integer *npix); +extern integer apowki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowkr_(real *a, integer *b, real *c__, integer *npix); +extern integer apowks_(shortint *a, integer *b, shortint *c__, integer *npix); +extern integer apowkx_(complex *a, integer *b, complex *c__, integer *npix); +extern integer apowl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowr_(real *a, integer *b, real *c__, integer *npix); +extern integer apows_(shortint *a, integer *b, shortint *c__, integer *npix); +extern integer apowx_(complex *a, integer *b, complex *c__, integer *npix); +extern integer arcpd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer arcpi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer arcpl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer arcpr_(real *a, real *b, real *c__, integer *npix); +extern integer arcps_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer arcpx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer arczd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, D_fp errfcn); +extern integer arczi_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer arczl_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer arczr_(real *a, real *b, real *c__, integer *npix, R_fp errfcn); +extern integer arczs_(shortint *a, shortint *b, shortint *c__, integer *npix, J_fp errfcn); +extern integer arczx_(complex *a, complex *b, complex *c__, integer *npix, C_fp errfcn); +extern integer aread_(integer *fd, shortint *buffer, integer *maxchs, integer *charot); +extern integer areadb_(integer *fd, shortint *buffer, integer *maxbys, integer *byteot); +extern integer argtd_(doublereal *a, integer *npix, doublereal *ceil, doublereal *newval); +extern integer argti_(integer *a, integer *npix, integer *ceil, integer *newval); +extern integer argtl_(integer *a, integer *npix, integer *ceil, integer *newval); +extern integer argtr_(real *a, integer *npix, real *ceil, real *newval); +extern integer argts_(shortint *a, integer *npix, shortint *ceil, shortint *newval); +extern integer argtx_(complex *a, integer *npix, complex *ceil, complex *newval); +extern integer arltd_(doublereal *a, integer *npix, doublereal *floor, doublereal *newval); +extern integer arlti_(integer *a, integer *npix, integer *floor, integer *newval); +extern integer arltl_(integer *a, integer *npix, integer *floor, integer *newval); +extern integer arltr_(real *a, integer *npix, real *floor, real *newval); +extern integer arlts_(shortint *a, integer *npix, shortint *floor, shortint *newval); +extern integer arltx_(complex *a, integer *npix, complex *floor, complex *newval); +extern integer aselc_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aseld_(doublereal *a, doublereal *b, doublereal *c__, integer *sel, integer *npix); +extern integer aseli_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselkc_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aselkd_(doublereal *a, doublereal *b, doublereal *c__, integer *sel, integer *npix); +extern integer aselki_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselkl_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselkr_(real *a, real *b, real *c__, integer *sel, integer *npix); +extern integer aselks_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aselkx_(complex *a, complex *b, complex *c__, integer *sel, integer *npix); +extern integer asell_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselr_(real *a, real *b, real *c__, integer *sel, integer *npix); +extern integer asels_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aselx_(complex *a, complex *b, complex *c__, integer *sel, integer *npix); +extern integer asqrd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn); +extern integer asqri_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer asqrl_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer asqrr_(real *a, real *b, integer *npix, R_fp errfcn); +extern integer asqrs_(shortint *a, shortint *b, integer *npix, J_fp errfcn); +extern integer asqrx_(complex *a, complex *b, integer *npix, C_fp errfcn); +extern integer asrtc_(shortint *a, shortint *b, integer *npix); +extern integer asrtd_(doublereal *a, doublereal *b, integer *npix); +extern integer asrti_(integer *a, integer *b, integer *npix); +extern integer asrtl_(integer *a, integer *b, integer *npix); +extern integer asrtr_(real *a, real *b, integer *npix); +extern integer asrts_(shortint *a, shortint *b, integer *npix); +extern integer asrtx_(complex *a, complex *b, integer *npix); +extern integer asubd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer asubi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer asubki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubkr_(real *a, real *b, real *c__, integer *npix); +extern integer asubks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer asubkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer asubl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubr_(real *a, real *b, real *c__, integer *npix); +extern integer asubs_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer asubx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aupxd_(complex *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aupxi_(complex *a, integer *b, integer *c__, integer *npix); +extern integer aupxl_(complex *a, integer *b, integer *c__, integer *npix); +extern integer aupxr_(complex *a, real *b, real *c__, integer *npix); +extern integer aupxs_(complex *a, shortint *b, shortint *c__, integer *npix); +extern integer aupxx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer awritb_(integer *fd, shortint *buffer, integer *nbytes, integer *byteot); +extern integer awrite_(integer *fd, shortint *buffer, integer *nchars, integer *charot); +extern integer awsud_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, doublereal *k1, doublereal *k2); +extern integer awsui_(integer *a, integer *b, integer *c__, integer *npix, real *k1, real *k2); +extern integer awsul_(integer *a, integer *b, integer *c__, integer *npix, real *k1, real *k2); +extern integer awsur_(real *a, real *b, real *c__, integer *npix, real *k1, real *k2); +extern integer awsus_(shortint *a, shortint *b, shortint *c__, integer *npix, real *k1, real *k2); +extern integer awsux_(complex *a, complex *b, complex *c__, integer *npix, complex *k1, complex *k2); +extern integer axori_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axorki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axorkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axorks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer axorl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axors_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer bndary_(void); +extern integer bound_(real *z__, integer *mx, integer *nnx, integer *nny, real *ssp); +extern integer brktie_(integer *ltime, integer *tm); +extern integer c1dpas_(integer *interp, real *eps); +extern integer calcnt_(real *z__, integer *m, integer *n, real *a1, real *a2, real *a3, integer *i1, integer *i2, integer *i3); +extern integer ccpcag_(shortint *p, integer *npts, integer *ltype, integer *curplt, integer *segsie, integer *xseg, integer *yseg, integer *nsegps); +extern integer ccpcle_(void); +extern integer ccpclr_(integer *dummy); +extern integer ccpcls_(shortint *devnae, integer *n); +extern integer ccpcor_(integer *index); +extern integer ccpdrg_(real *xseg, real *yseg, integer *nsegps, integer *lwidth); +extern integer ccpdrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font, integer *qualiy); +extern integer ccpese_(integer *fn, shortint *instrn, integer *nwords); +extern integer ccpfat_(shortint *gki); +extern integer ccpfia_(shortint *p, integer *npts); +extern integer ccpfot_(integer *font); +extern integer ccpint_(integer *tty, shortint *devnae); +extern integer ccplie_(integer *index); +extern integer ccplwh_(integer *index); +extern integer ccpopn_(shortint *devnae, integer *dd); +extern integer ccpops_(shortint *devnae, integer *n, integer *mode); +extern integer ccpplt_(shortint *gki); +extern integer ccppmt_(shortint *gki); +extern integer ccppoe_(shortint *p, integer *npts); +extern integer ccppor_(shortint *p, integer *npts); +extern integer ccpret_(void); +extern integer ccptet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer ccptxt_(shortint *gki); +extern integer ccxadt_(real *x, real *y, integer *xseg, integer *yseg, integer *curset, integer *segsie); +extern integer ccxdah_(shortint *p, integer *npts, integer *curplt, real *cursen, integer *curset, integer *segsie, integer *xseg, integer *yseg, real *lastpx, real *lastpy); +extern integer ccxgap_(shortint *p, integer *npts, integer *curplt, real *cursen, real *matchn, real *lastpx, real *lastpy); +extern integer ccxinl_(real *x, real *y, real *xsize, real *ysize, shortint *ch, real *orien); +extern integer ccxiny_(real *x, real *y, integer *npts, integer *qualiy); +extern integer ccxofs_(real *p1x, real *p1y, real *p2x, real *p2y, real *p3x, real *p3y, real *delx, real *dely); +extern integer ccxpas_(integer *xc, integer *yc, integer *totlen, integer *x0, integer *y0, integer *dx, integer *dy, integer *polytt, integer *orien); +extern integer cfvld_(integer *ientry, integer *iix, integer *iiy); +extern integer chdept_(shortint *ch, shortint *str, integer *maxch, integer *op); +extern integer chkcyc_(real *u, real *v, integer *imax, integer *jptsy, integer *ier); +extern integer chstr_(char *label, integer *first, integer *last, ftnlen label_len); +extern integer clccos_(void); +extern integer clcenr_(shortint *param, shortint *value); +extern integer clcfre_(integer *marker); +extern integer clcint_(void); +extern integer clclit_(integer *fd, shortint *pset, shortint *format); +extern integer clcloe_(void); +extern integer clcmak_(integer *marker); +extern integer clcmd_(shortint *cmd); +extern integer clcmdw_(shortint *cmd); +extern integer clcnek_(shortint *taskne); +extern integer clcpst_(integer *pp); +extern integer clcscn_(shortint *cmd); +extern integer clepst_(integer *pp); +extern integer clgcut_(shortint *promp1, shortint *promp2, integer *curvee, integer *order); +extern integer clgen_(real *z__, integer *mx, integer *nx, integer *nny, real *cclo, real *chi, real *cinc, integer *nla, integer *nlm, real *cl, integer *ncl, integer *icnst); +extern integer clgpsa_(integer *pp, shortint *pname, shortint *outstr, integer *maxch); +extern integer clgpst_(integer *pp, shortint *pname, shortint *outstr, integer *maxch); +extern integer clgsec_(shortint *prompt, shortint *sectin, integer *x1, integer *x2, integer *step, integer *nsubss); +extern integer clgstr_(shortint *param, shortint *outstr, integer *maxch); +extern integer cllpst_(integer *pp, integer *fd, shortint *format); +extern integer clopen_(integer *stdinn, integer *stdoun, integer *stdern, integer *device, integer *devtye); +extern integer clpcls_(integer *list); +extern integer clppsa_(integer *pp, shortint *pname, shortint *sval); +extern integer clppsb_(integer *pp, shortint *parnae, logical *bval); +extern integer clppsc_(integer *pp, shortint *parnae, shortint *cval); +extern integer clppsd_(integer *pp, shortint *parnae, doublereal *dval); +extern integer clppsi_(integer *pp, shortint *parnae, integer *ival); +extern integer clppsl_(integer *pp, shortint *parnae, integer *lval); +extern integer clppsr_(integer *pp, shortint *parnae, real *rval); +extern integer clppss_(integer *pp, shortint *parnae, shortint *sval); +extern integer clppst_(integer *pp, shortint *pname, shortint *sval); +extern integer clppsx_(integer *pp, shortint *parnae, complex *xval); +extern integer clprew_(integer *list); +extern integer clprif_(shortint *param, shortint *formag); +extern integer clpstr_(shortint *param, shortint *value); +extern integer clputb_(shortint *param, logical *bval); +extern integer clputc_(shortint *param, shortint *cval); +extern integer clputd_(shortint *param, doublereal *dval); +extern integer clputi_(shortint *param, integer *value); +extern integer clputl_(shortint *param, integer *lval); +extern integer clputr_(shortint *param, real *rval); +extern integer clputs_(shortint *param, shortint *value); +extern integer clputx_(shortint *param, complex *xval); +extern integer clreqr_(shortint *param); +extern integer clset_(real *z__, integer *mx, integer *nx, integer *ny, real *chi, real *clo, real *cinc, integer *nla, integer *nlm, real *cl, integer *ncl, integer *icnst, integer *ioffp, real *spval, real *bigest); +extern integer clseti_(integer *paramr, integer *value); +extern integer clsgks_(void); +extern integer cnvdae_(integer *ltime, shortint *outstr, integer *maxch); +extern integer cnvtie_(integer *ltime, shortint *outstr, integer *maxch); +extern integer conbd_(void); +extern integer conbdn_(void); +extern integer concal_(real *xd, real *yd, real *zd, integer *nt, integer *ipt, integer *nl, integer *ipl, real *pdd, integer *iti, real *xii, real *yii, real *zii, integer *itpv); +extern integer concld_(integer *icase, integer *ioop); +extern integer concls_(real *zd, integer *ndp); +extern integer condet_(integer *ndp, real *xd, real *yd, integer *ncp, integer *ipc); +extern integer condrw_(real *scrarr); +extern integer condsd_(void); +extern integer conecd_(real *val, char *iout, integer *nused, ftnlen iout_len); +extern integer congen_(real *xi, real *yi, integer *ipack, real *scrarr, integer *ica); +extern integer conint_(integer *ndp, real *xd, real *yd, real *zd, integer *ncp, integer *ipc, real *pd); +extern integer conlin_(real *xd, real *yd, real *zd, integer *nt, integer *iwk, real *wk); +extern integer conloc_(integer *ndp, real *xd, real *yd, integer *nt, integer *ipt, integer *nl, integer *ipl, real *xii, real *yii, integer *iti, integer *iwk, real *wk); +extern integer conlod_(real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, real *scrarr); +extern integer conop1_(char *iopt, ftnlen iopt_len); +extern integer conop2_(char *iopt, integer *isize, ftnlen iopt_len); +extern integer conop3_(char *iopt, real *array, integer *isize, ftnlen iopt_len); +extern integer conop4_(char *iopt, char *array, integer *isize, integer *ifort, ftnlen iopt_len, ftnlen array_len); +extern integer conot2_(integer *iver, integer *iunit); +extern integer conout_(integer *iver); +extern integer conpdv_(real *xd, real *yd, real *zd, integer *ndp); +extern integer conpmm_(real *scrarr); +extern integer conran_(real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, real *scrarr); +extern integer conrec_(real *z__, integer *l, integer *m, integer *n, real *flo, real *hi, real *finc, integer *nset, integer *nhi, integer *ndot); +extern integer conreo_(integer *majlns); +extern integer consld_(real *scrarr); +extern integer conssd_(real *x, real *y, integer *ic); +extern integer constp_(real *xd, real *yd, integer *ndp); +extern integer contlk_(real *xd, real *yd, integer *ndp, integer *ipt); +extern integer contng_(integer *ndp, real *xd, real *yd, integer *nt, integer *ipt, integer *nl, integer *ipl, integer *iwl, integer *iwp, real *wk); +extern integer counmp_(integer *co); +extern integer cqccfe_(integer *cq); +extern integer cqccit_(integer *cq, integer *catno); +extern integer cqdgad_(integer *cq, integer *record, shortint *field, doublereal *array, integer *lenary, integer *npts); +extern integer cqdgai_(integer *cq, integer *record, shortint *field, integer *array, integer *lenary, integer *npts); +extern integer cqdgar_(integer *cq, integer *record, shortint *field, real *array, integer *lenary, integer *npts); +extern integer cqdgat_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr, integer *nlines); +extern integer cqdgsr_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr); +extern integer cqdgwd_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr); +extern integer cqffms_(integer *res, shortint *field, shortint *format, integer *szfort); +extern integer cqfgsr_(integer *cq, shortint *field, shortint *str, integer *maxch); +extern integer cqfgwd_(integer *cq, shortint *field, shortint *str, integer *maxch); +extern integer cqfins_(shortint *linebf, integer *fields, integer *maxfis, integer *nfiels); +extern integer cqfuns_(integer *res, shortint *field, shortint *units, integer *szunis); +extern integer cqimce_(integer *res); +extern integer cqirfe_(integer *res); +extern integer cqists_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqrcle_(integer *res); +extern integer cqrfre_(integer *res); +extern integer cqrsts_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqstas_(integer *cq, integer *param, shortint *str, integer *maxch); +extern integer cqunmp_(integer *cq); +extern integer ctcell_(real *z__, integer *mx, integer *nx, integer *ny, integer *m, integer *i0, integer *j0); +extern integer curve3_(real *u, real *v, real *w, integer *n); +extern integer curve_(real *px, real *py, integer *np); +extern integer curved_(real *x, real *y, integer *n); +extern integer dashbd_(void); +extern integer dashdb_(integer *ipat); +extern integer dashdc_(char *ipat, integer *jcrt, integer *jsize, ftnlen ipat_len); +extern integer deletg_(shortint *fname, integer *versis, integer *subfis); +extern integer displa_(integer *lfra, integer *lrow, integer *ltyp); +extern integer drawi_(integer *ixa, integer *iya, integer *ixb, integer *iyb); +extern integer drawpv_(integer *ix, integer *iy, integer *ind); +extern integer draws_(integer *mx1, integer *my1, integer *mx2, integer *my2, integer *idraw, integer *imark); +extern integer drawt_(integer *ixa, integer *iya, integer *ixb, integer *iyb); +extern integer drcntr_(real *z__, integer *l, integer *mm, integer *nn); +extern integer drline_(real *z__, integer *l, integer *mm, integer *nn); +extern integer drwstr_(real *u, real *v, real *ux, real *vy, integer *imax, integer *jptsy); +extern integer drwvec_(integer *m1, integer *m2, integer *m3, integer *m4, char *label, integer *nc, ftnlen label_len); +extern integer dsulud_(shortint *utab, real *x, real *y, integer *nvalus); +extern integer dsulue_(integer *lut); +extern integer dsulut_(real *xvals, real *yvals, integer *nvals); +extern integer dtcscl_(doublereal *v, integer *e, integer *sense); +extern integer dtgad_(integer *dt, integer *record, shortint *field, doublereal *array, integer *lenary, integer *npts); +extern integer dtgar_(integer *dt, integer *record, shortint *field, real *array, integer *lenary, integer *npts); +extern integer dtgstr_(integer *dt, integer *record, shortint *field, shortint *str, integer *maxchr); +extern integer dtptie_(integer *dt); +extern integer dtput_(integer *dt, shortint *format); +extern integer dtremp_(integer *dt, shortint *dname, shortint *fname, integer *mode); +extern integer dtstrg_(integer *datate, shortint *str, integer *maxchr); +extern integer dtunmp_(integer *dt); +extern integer e9rin_(char *messg, integer *nerr, logical *save, ftnlen messg_len); +extern integer encd_(real *valu, real *ash, char *iout, integer *nc, integer *ioffd, ftnlen iout_len); +extern integer encode_(integer *nchars, char *ftnfmt, char *ftnout, real *rval, ftnlen ftnfmt_len, ftnlen ftnout_len); +extern integer entsr_(integer *irold, integer *irnew); +extern integer envinr_(shortint *envvar, shortint *outstr, integer *maxch); +extern integer envint_(void); +extern integer envlit_(integer *fd, shortint *prefix, integer *prints); +extern integer envmak_(integer *oldtop); +extern integer envret_(shortint *key, shortint *value); +extern integer eprin_(void); +extern integer eprinf_(shortint *formag); +extern integer erract_(integer *severy); +extern integer errof_(void); +extern integer evvfre_(integer *o); +extern integer exmpl1_(void); +extern integer exmpl2_(void); +extern integer exmpl3_(void); +extern integer exmpl4_(void); +extern integer exmpl5_(void); +extern integer exmpl6_(void); +extern integer exmpl7_(void); +extern integer exmpl8_(void); +extern integer exmplf_(void); +extern integer expand_(real *maxw); +extern integer ezcntr_(real *z__, integer *m, integer *n); +extern integer ezhftn_(real *z__, integer *m, integer *n); +extern integer ezisos_(real *t, integer *mu, integer *mv, integer *mw, real *eye, real *slab, real *tiso); +extern integer ezsrfc_(real *z__, integer *m, integer *n, real *angh, real *angv, real *work); +extern integer ezstrm_(real *u, real *v, real *work, integer *imax, integer *jmax); +extern integer ezvec_(real *u, real *v, integer *m, integer *n); +extern integer falloc_(shortint *fname, integer *filese); +extern integer fcanpb_(integer *fd); +extern integer fcldir_(integer *channl, integer *status); +extern integer fclobr_(shortint *fname); +extern integer fcopy_(shortint *oldfie, shortint *newfie); +extern integer fcopyo_(integer *in, integer *out); +extern integer fdebug_(integer *out, integer *fd1arg, integer *fd2arg); +extern integer fdirne_(shortint *vfn, shortint *path, integer *maxch); +extern integer fdum_(void); +extern integer fdvdld_(integer *ientry, integer *iix, integer *iiy); +extern integer fencd_(integer *nchars, shortint *fformt, shortint *sppour, real *rval); +extern integer fence3_(real *u, real *v, real *w, integer *n, integer *ior, real *bot); +extern integer fexbuf_(integer *fd); +extern integer ffilbf_(integer *fd, integer *bp, integer *bufsie, integer *buffet); +extern integer ffldir_(integer *chan, integer *status); +extern integer fflsbf_(integer *fd, integer *bp, integer *maxchs, integer *buffet); +extern integer fgdevm_(integer *fd); +extern integer fgtdir_(integer *chan, shortint *outlie, integer *maxch, integer *status); +extern integer filerr_(shortint *fname, integer *errcoe); +extern integer fillin_(void); +extern integer findz_(integer *im, real *z1, real *z2, real *zfrac, integer *maxcos, integer *nsamps); +extern integer finit_(void); +extern integer fioclp_(integer *status); +extern integer fioqfh_(integer *fd, integer *status); +extern integer fixmem_(integer *oldsie); +extern integer fl2int_(real *px, real *py, integer *ix, integer *iy); +extern integer flsbuf_(integer *fd, integer *nresee); +extern integer fmapfn_(shortint *vfn, shortint *osfn, integer *maxch); +extern integer fmcloe_(integer *fm); +extern integer fmcopo_(integer *old, integer *new__); +extern integer fmcopy_(shortint *dfname, shortint *newnae); +extern integer fmdebg_(integer *fm, integer *out, integer *what); +extern integer fmdele_(shortint *dfname); +extern integer fmfcdg_(integer *fm, integer *out, integer *what); +extern integer fmfcfe_(integer *fm); +extern integer fmfcit_(integer *fm, integer *cachee); +extern integer fmfcsc_(integer *fm); +extern integer fmiobd_(integer *fm); +extern integer fmioek_(integer *fm); +extern integer fmiopr_(integer *fm, integer *errcoe, shortint *opstr); +extern integer fmiorr_(integer *fm); +extern integer fmiosf_(integer *fm); +extern integer fmiotk_(integer *fm); +extern integer fmkbfs_(integer *fd); +extern integer fmkcoy_(shortint *oldfie, shortint *newfie); +extern integer fmkdir_(shortint *newdir); +extern integer fmkpbf_(integer *fd); +extern integer fmlfad_(integer *lf, shortint *buf, integer *maxbys, integer *offset); +extern integer fmlfae_(integer *lf, shortint *buf, integer *nbytes, integer *offset); +extern integer fmlfat_(integer *lf, integer *status); +extern integer fmlfbd_(integer *lf, shortint *buf, integer *maxbys, integer *offset); +extern integer fmlfbe_(integer *lf, shortint *buf, integer *nbytes, integer *offset); +extern integer fmlfbt_(integer *lf, integer *status); +extern integer fmlfce_(integer *lf, integer *status); +extern integer fmlfcy_(integer *old, integer *olfile, integer *new__, integer *nlfile); +extern integer fmlfde_(integer *fm, integer *lfile); +extern integer fmlfne_(integer *fm, integer *lfile, integer *type__, shortint *lfname, integer *maxch); +extern integer fmlfon_(shortint *pklfne, integer *mode, integer *chan); +extern integer fmlfsi_(integer *lf, integer *param, integer *lvalue); +extern integer fmlfue_(integer *fm, integer *lfile); +extern integer fmloct_(integer *fm, integer *lfile); +extern integer fmrebd_(shortint *dfname); +extern integer fmrene_(shortint *old, shortint *new__); +extern integer fmretd_(integer *fm, integer *lfile); +extern integer fmseti_(integer *fm, integer *param, integer *value); +extern integer fmsync_(integer *fm); +extern integer fmterr_(shortint *preame, shortint *format, integer *index); +extern integer fmtint_(integer *ftype); +extern integer fmtred_(void); +extern integer fmtsel_(shortint *ch, integer *col); +extern integer fmtstr_(integer *fd, shortint *str, integer *col, shortint *fillcr, integer *leftjy, integer *maxch, integer *width); +extern integer fmunlk_(integer *fm, integer *lfile); +extern integer fntclb_(integer *list); +extern integer fntcls_(integer *pp); +extern integer fntdir_(integer *chan, integer *offset); +extern integer fntmkt_(shortint *pat, shortint *patstr, integer *maxch, integer *ep, integer *nedit); +extern integer fntreb_(integer *list); +extern integer fopdir_(shortint *osfn, integer *mode, integer *channl); +extern integer four1_(real *data, integer *nn, integer *isign); +extern integer fowner_(shortint *fname, shortint *owner, integer *maxch); +extern integer fpathe_(shortint *vfn, shortint *outpue, integer *maxchs); +extern integer fpnord_(doublereal *x, doublereal *normx, integer *expon); +extern integer fpnorr_(real *x, real *normx, integer *expon); +extern integer fpradv_(void); +extern integer fprinf_(integer *fd, shortint *formag); +extern integer fprntf_(integer *newfd, shortint *formag, integer *filete); +extern integer fptdir_(integer *chan, shortint *line, integer *nchars, integer *status); +extern integer fputtx_(integer *fd, shortint *buf, integer *nchars, integer *status); +extern integer frame_(void); +extern integer fredio_(integer *fd, integer *newfd); +extern integer fredir_(integer *fd, shortint *fname, integer *mode, integer *type__); +extern integer frenae_(shortint *oldfne, shortint *newfne); +extern integer frmbfs_(integer *fd); +extern integer frmtmp_(void); +extern integer frst3_(real *u, real *v, real *w); +extern integer frstc_(integer *mx, integer *my, integer *ient); +extern integer frstd_(real *x, real *y); +extern integer frstpt_(real *px, real *py); +extern integer frsts_(real *xx, real *yy, integer *ient); +extern integer frtnfd_(integer *fd); +extern integer fsetev_(shortint *envvar, integer *value); +extern integer fseti_(integer *fd, integer *param, integer *value); +extern integer fsfdee_(shortint *fname); +extern integer fsfgee_(shortint *fname, shortint *fsffie, integer *maxch); +extern integer fskdir_(integer *chan, integer *offset, integer *status); +extern integer fstats_(integer *fd, integer *what, shortint *outstr, integer *maxch); +extern integer fstdir_(integer *chan, integer *param, integer *lvalue); +extern integer fstrfp_(integer *newfp); +extern integer fsvtfn_(shortint *fname); +extern integer fswapd_(integer *fd1, integer *fd2); +extern integer fulib_(integer *errcoe, shortint *upkmsg, integer *msglen); +extern integer fwatio_(integer *fd); +extern integer fwtacc_(integer *fd, shortint *fname); +extern integer fxfacp_(shortint *line, integer *tpt, integer *nbkw, integer *nbl); +extern integer fxfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer fxfact_(shortint *line, integer *tst, integer *nsb); +extern integer fxfadr_(integer *im, shortint *pname, integer *dtype, shortint *pval); +extern integer fxfakb_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer fxfakc_(shortint *keywod, shortint *value, integer *len, shortint *commet, integer *pn); +extern integer fxfakd_(shortint *keywod, doublereal *value, shortint *commet, integer *precin, integer *pn); +extern integer fxfaki_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer fxfakr_(shortint *keywod, real *value, shortint *commet, integer *precin, integer *pn); +extern integer fxfalc_(integer *fit); +extern integer fxfald_(integer *a, doublereal *b, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfalr_(integer *a, real *b, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfalu_(shortint *a, shortint *b, integer *npix); +extern integer fxfasr_(shortint *a, real *b, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfbls_(integer *nbl, integer *po); +extern integer fxfbyt_(integer *im, shortint *fname); +extern integer fxfche_(integer *im); +extern integer fxfchm_(integer *im); +extern integer fxfchp_(integer *im, shortint *ksectn, integer *acmode, integer *group, integer *ksinh); +extern integer fxfcle_(integer *im, integer *status); +extern integer fxfcll_(integer *im); +extern integer fxfcnx_(integer *im, integer *totpix, shortint *obuf, integer *nbytes, integer *boffst); +extern integer fxfcoj_(integer *im, integer *infd, integer *hdroff, integer *poff, integer *datase); +extern integer fxfcoy_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer fxfdae_(shortint *datesr, integer *limtie); +extern integer fxfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer fxfdiw_(integer *im); +extern integer fxfdur_(integer *im, integer *status); +extern integer fxfenb_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer fxfenc_(shortint *keywod, shortint *param, integer *maxch, shortint *card, shortint *commet); +extern integer fxfend_(shortint *keywod, doublereal *param, shortint *card, shortint *commet, integer *precin); +extern integer fxfene_(integer *ctime, shortint *datesr, integer *maxch, shortint *format, integer *cutovr); +extern integer fxfeni_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer fxfenl_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer fxfenr_(shortint *keywod, real *param, shortint *card, shortint *commet, integer *precin); +extern integer fxfens_(shortint *root, shortint *keywod, integer *axisno); +extern integer fxfexh_(integer *infd, integer *outfd, integer *nlines, integer *group, integer *nbks, integer *hdroff, integer *pixoff); +extern integer fxffac_(shortint *fname, integer *size); +extern integer fxffcr_(shortint *file); +extern integer fxffiw_(integer *im, shortint *key); +extern integer fxffog_(integer *fit, shortint *messg); +extern integer fxfgas_(integer *im, logical *fsec); +extern integer fxfgeb_(shortint *card, integer *bval); +extern integer fxfged_(shortint *card, doublereal *dval); +extern integer fxfgei_(shortint *card, integer *ival); +extern integer fxfgen_(integer *im, integer *oim, integer *acmode, shortint *outstr, integer *maxch); +extern integer fxfger_(shortint *card, real *rval); +extern integer fxfget_(shortint *card, shortint *commet, integer *maxch); +extern integer fxfglm_(shortint *time, shortint *date, integer *limtie); +extern integer fxfgsr_(shortint *card, shortint *outstr, integer *maxch); +extern integer fxfhef_(integer *im, integer *group, integer *acmode, integer *hdroff, integer *diff, integer *ualen); +extern integer fxfint_(void); +extern integer fxfkse_(integer *param, shortint *ksectn, integer *ip, integer *fit); +extern integer fxfksl_(shortint *outstr, integer *param, integer *fit); +extern integer fxfksm_(shortint *pm, integer *param, integer *fit); +extern integer fxfksn_(shortint *ksectn, integer *fit, integer *group); +extern integer fxfkss_(integer *fit, integer *acmode); +extern integer fxfkst_(integer *fit); +extern integer fxflor_(integer *in, integer *fit, integer *spool, integer *nrec10, integer *dataln); +extern integer fxfmad_(shortint *instr, integer *ip, shortint *card, integer *colout, integer *maxcos, integer *delim); +extern integer fxfmar_(integer *pat, integer *plines, integer *str, integer *slines, integer *merge, integer *po); +extern integer fxfmas_(integer *im, integer *nheads); +extern integer fxfmay_(integer *infd, integer *outfd, integer *hdroff, integer *pixoff, integer *charsa); +extern integer fxfmea_(integer *im, integer *userh, integer *fitsln); +extern integer fxfnoe_(integer *im); +extern integer fxfnul_(void); +extern integer fxfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *group, integer *gcarg, integer *acmode, integer *status); +extern integer fxfopx_(integer *im, integer *status); +extern integer fxfove_(integer *im); +extern integer fxfovt_(integer *fit, integer *im); +extern integer fxfpaa_(shortint *ibuf, shortint *obuf, integer *npix, integer *pixtye); +extern integer fxfpld_(integer *im); +extern integer fxfple_(integer *im, integer *fd); +extern integer fxfplf_(integer *im); +extern integer fxfplo_(integer *im, integer *maxlen, integer *pcount, integer *depth); +extern integer fxfplp_(integer *im, integer *hdrfd, integer *pcount); +extern integer fxfprr_(integer *im, integer *group); +extern integer fxfree_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer fxfrek_(integer *im); +extern integer fxfren_(integer *im, integer *cfit, integer *igroup, integer *hoff, integer *poff, integer *extn, integer *extv); +extern integer fxfrep_(shortint *in, shortint *out, shortint *tmp, integer *ntry, integer *nsleep); +extern integer fxfrfr_(integer *im, integer *group, integer *poff); +extern integer fxfrhr_(integer *im, integer *group, integer *acmode); +extern integer fxfsee_(integer *im, logical *overwe); +extern integer fxfsev_(integer *im); +extern integer fxfsex_(integer *im, integer *fit); +extern integer fxfskn_(integer *im, integer *group, integer *cfit, integer *hoff, integer *poff, integer *extn, integer *extv, integer *spool); +extern integer fxfuna_(shortint *cbuf, integer *npix, integer *pixtye, doublereal *bscale, doublereal *bzero); +extern integer fxfupd_(integer *im); +extern integer fxfupr_(integer *im, integer *status); +extern integer fxfwrr_(integer *im, integer *fit, integer *hdrfd, integer *nchara, integer *group); +extern integer fxfwrs_(integer *fd, integer *size); +extern integer fxfxhd_(integer *in, integer *out, shortint *buf, integer *bufsie, integer *hoffst, integer *poffst, integer *hsize); +extern integer fxfzad_(doublereal *data, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfzar_(real *data, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfzcl_(integer *chan, integer *status); +extern integer fxfzop_(shortint *pkfn, integer *mode, integer *status); +extern integer fxfzrd_(integer *chan, shortint *obuf, integer *nbytes, integer *boffst); +extern integer fxfzst_(integer *chan, integer *param, integer *value); +extern integer fxfzwr_(integer *chan, shortint *ibuf, integer *nbytes, integer *boffst); +extern integer fxfzwt_(integer *chan, integer *status); +extern integer gactie_(integer *gp, integer *flags); +extern integer gacwk_(integer *wkid); +extern integer gadraw_(integer *gp, real *wx, real *wy); +extern integer gamove_(integer *gp, real *x, real *y); +extern integer gargb_(logical *bval); +extern integer gargc_(shortint *cval); +extern integer gargd_(doublereal *dval); +extern integer gargi_(integer *ival); +extern integer gargl_(integer *lval); +extern integer gargr_(real *rval); +extern integer gargrd_(integer *lval, integer *radix); +extern integer gargs_(shortint *sval); +extern integer gargsr_(shortint *outstr, integer *maxch); +extern integer gargtk_(integer *token, shortint *outstr, integer *maxch); +extern integer gargwd_(shortint *outstr, integer *maxch); +extern integer gargx_(complex *xval); +extern integer gascae_(integer *gp, real *v, integer *npts, integer *axis); +extern integer gaxdrw_(real *wx, real *wy); +extern integer gaxfis_(integer *w, real *wx1, real *wx2, real *wy1, real *wy2, real *x1, real *dx, integer *xt, real *y1, real *dy, integer *yt); +extern integer gaxflh_(integer *stream); +extern integer gaxndc_(real *wx, real *wy, real *sx, real *sy); +extern integer gaxstt_(real *wx, real *wy); +extern integer gaxtet_(integer *stream, real *sx, real *sy, shortint *text, integer *hjusty, integer *vjusty); +extern integer gaxtik_(real *dx, real *dy); +extern integer gbytes_(integer *bufin, integer *bufout, integer *index, integer *size, integer *skip, integer *count); +extern integer gca_(real *px, real *py, real *qx, real *qy, integer *dimx, integer *dimy, integer *ncs, integer *nrs, integer *dx, integer *dy, integer *colia); +extern integer gcancl_(integer *gp); +extern integer gcas_(real *px, real *py, real *qx, real *qy, integer *dimx, integer *dimy, integer *ncs, integer *nrs, integer *dx, integer *dy, shortint *colia); +extern integer gclear_(integer *gp); +extern integer gclks_(void); +extern integer gclose_(integer *gp); +extern integer gclrwk_(integer *wkid, integer *cofl); +extern integer gclwk_(integer *wkid); +extern integer gctran_(integer *gp, real *x1, real *y1, real *x2, real *y2, integer *wcsa, integer *wcsb); +extern integer gcurps_(integer *gp, real *x, real *y); +extern integer gdawk_(integer *wkid); +extern integer gdeace_(integer *gp, integer *flags); +extern integer gescae_(integer *gp, integer *fn, shortint *instrn, integer *nwords); +extern integer gethot_(shortint *outstr, integer *maxch); +extern integer getsen_(shortint *image, shortint *sectin, integer *maxch); +extern integer getset_(real *vl, real *vr, real *vb, real *vt, real *wl, real *wr, real *wb, real *wt, integer *lf); +extern integer getsi_(integer *ix, integer *iy); +extern integer getusv_(char *vn, integer *iv, ftnlen vn_len); +extern integer gexflr_(integer *stream); +extern integer gexfls_(void); +extern integer gexflt_(integer *stream, integer *gpvale, integer *epagfh); +extern integer gfa_(integer *n, real *px, real *py); +extern integer gfill_(integer *gp, real *x, real *y, integer *npts, integer *style); +extern integer gflush_(integer *gp); +extern integer gframe_(integer *gp); +extern integer gfrint_(integer *gp); +extern integer ggcell_(integer *gp, shortint *m, integer *nx, integer *ny, real *x1, real *y1, real *x2, real *y2); +extern integer ggscae_(integer *gp, real *x, real *y, real *dx, real *dy); +extern integer ggview_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer ggwind_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer gimcor_(integer *gp, integer *rop, integer *src, integer *st, real *sx, real *sy, real *sw, real *sh, integer *dst, integer *dt, real *dx, real *dy, real *dw, real *dh); +extern integer gimcrr_(integer *gp, integer *raster, integer *type__, integer *width, integer *height, integer *depth); +extern integer gimder_(integer *gp, integer *raster); +extern integer gimdig_(integer *gp, integer *mappig, integer *erase); +extern integer gimeng_(integer *gp, integer *mappig, integer *refreh); +extern integer gimfrg_(integer *gp, integer *mappig); +extern integer gimfrp_(integer *gp, integer *colorp); +extern integer gimins_(integer *gp); +extern integer gimiod_(integer *gp, integer *iomap, integer *first, integer *nelem); +extern integer gimioe_(integer *gp, integer *iomap, integer *first, integer *nelem); +extern integer gimlop_(integer *gp, integer *colorp, real *offset, real *slope); +extern integer gimrat_(integer *gp); +extern integer gimreg_(integer *gp, integer *mappig); +extern integer gimres_(integer *gp, integer *raster, shortint *data, integer *nbits, integer *x1, integer *y1, integer *nx, integer *ny); +extern integer gimrex_(integer *gp, integer *raster, integer *ct, real *x1, real *y1, real *width, real *height); +extern integer gimseg_(integer *gp, integer *mappig, integer *rop, integer *src, integer *st, real *sx, real *sy, real *sw, real *sh, integer *dst, integer *dt, real *dx, real *dy, real *dw, real *dh); +extern integer gimser_(integer *gp, integer *raster); +extern integer gimsex_(integer *gp, integer *raster, integer *ct, real *x1, real *y1, real *width, real *height, integer *color, integer *rop); +extern integer gimwrp_(integer *gp, integer *colorp, integer *first, integer *nelem, integer *r__, integer *g, integer *b); +extern integer gimwrs_(integer *gp, integer *raster, shortint *data, integer *nbits, integer *x1, integer *y1, integer *nx, integer *ny); +extern integer giotr_(integer *stream); +extern integer giotrt_(integer *vex, integer *nexthr); +extern integer gkical_(integer *fd); +extern integer gkiclr_(integer *fd); +extern integer gkicls_(integer *fd, shortint *device); +extern integer gkides_(integer *fd, integer *flags); +extern integer gkieof_(integer *fd); +extern integer gkiese_(integer *fd, integer *fn, shortint *instrn, integer *nwords); +extern integer gkiexe_(shortint *gki, integer *dd); +extern integer gkifat_(integer *fd, integer *ap); +extern integer gkiffh_(integer *fd); +extern integer gkifia_(integer *fd, shortint *points, integer *npts); +extern integer gkiflh_(integer *fd); +extern integer gkiger_(integer *fd, integer *cursor, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer gkiges_(integer *fd, integer *wcs, integer *lenwcs); +extern integer gkigey_(integer *fd, shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkiinl_(integer *stream, integer *dd); +extern integer gkiint_(integer *stream); +extern integer gkimfe_(integer *fd, shortint *title); +extern integer gkiops_(integer *fd, shortint *device, integer *mode); +extern integer gkiplt_(integer *fd, integer *ap); +extern integer gkipmt_(integer *fd, integer *ap); +extern integer gkipoe_(integer *fd, shortint *points, integer *npts); +extern integer gkipor_(integer *fd, shortint *points, integer *npts); +extern integer gkipuy_(integer *fd, shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkiree_(integer *fd, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer gkirer_(integer *stream, integer *fd, integer *oldfd, integer *oldtye); +extern integer gkires_(integer *fd, integer *flags); +extern integer gkirey_(integer *fd, shortint *m, integer *np); +extern integer gkiser_(integer *fd, integer *x, integer *y, integer *cursor); +extern integer gkises_(integer *fd, integer *wcs, integer *lenwcs); +extern integer gkisul_(integer *stream, integer *pid, integer *prpsia); +extern integer gkitet_(integer *fd, integer *x, integer *y, shortint *text); +extern integer gkitxt_(integer *fd, integer *ap); +extern integer gkiwee_(integer *fd, integer *fn, shortint *hdr, integer *hdrlen, shortint *data, integer *dataln); +extern integer gkiwre_(integer *fd, shortint *gki); +extern integer gkpcal_(integer *dummy); +extern integer gkpcle_(void); +extern integer gkpclr_(integer *dummy); +extern integer gkpcls_(shortint *devnae, integer *n); +extern integer gkpdes_(integer *flags); +extern integer gkpdup_(integer *fd, shortint *data, integer *nwords); +extern integer gkpese_(integer *fn, shortint *instrn, integer *nwords); +extern integer gkpfat_(shortint *gki); +extern integer gkpfia_(shortint *p, integer *npts); +extern integer gkpflh_(integer *dummy); +extern integer gkpger_(integer *cursor); +extern integer gkpges_(shortint *wcs, integer *nwords); +extern integer gkpgey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkpgrm_(integer *graphm); +extern integer gkpinl_(integer *dd, integer *outfd, integer *verbot, integer *usegks); +extern integer gkpmfe_(shortint *title, integer *n); +extern integer gkpops_(shortint *devnae, integer *n, integer *mode); +extern integer gkpplt_(shortint *gki); +extern integer gkppmt_(shortint *gki); +extern integer gkppoe_(shortint *p, integer *npts); +extern integer gkppor_(shortint *p, integer *npts); +extern integer gkppst_(integer *fd, shortint *p, integer *npts, shortint *label, integer *verboe, integer *gkiuns); +extern integer gkppuy_(shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkpres_(integer *flags); +extern integer gkpser_(integer *x, integer *y, integer *cursor); +extern integer gkpses_(shortint *wcs, integer *nwords); +extern integer gkptet_(integer *x, integer *y, shortint *text, integer *n); +extern integer gkptxg_(shortint *code); +extern integer gkptxt_(shortint *gki); +extern integer gkpunn_(shortint *gki); +extern integer glabax_(integer *gp, shortint *title, shortint *xlabel, shortint *ylabel); +extern integer glbdrd_(integer *gp, integer *ax1, integer *ax2); +extern integer glbene_(real *x, shortint *out, integer *maxch, shortint *format, real *step); +extern integer glbfis_(integer *gp, integer *ap, integer *ax1, integer *ax2, integer *angle); +extern integer glblas_(integer *gp, integer *ax, shortint *xlabel, shortint *ylabel); +extern integer glblob_(integer *gp, real *sx, real *sy, real *val, shortint *fmt, integer *scalig); +extern integer glbple_(integer *gp, shortint *title, integer *ntitls); +extern integer glbsep_(integer *gp, integer *axes, integer *ntitls, shortint *xlabel, shortint *ylabel); +extern integer glbses_(integer *gp, integer *ap, integer *ax1, integer *ax2, integer *angle); +extern integer glbset_(integer *gp, integer *ntitls, shortint *xlabel, shortint *ylabel); +extern integer glbveg_(integer *gp); +extern integer gline_(integer *gp, real *x1, real *y1, real *x2, real *y2); +extern integer gmark_(integer *gp, real *x, real *y, integer *markte, real *xsize, real *ysize); +extern integer gmftie_(integer *gp, shortint *mftite); +extern integer gmprif_(integer *gp, shortint *object, shortint *format); +extern integer gmsg_(integer *gp, shortint *object, shortint *messae); +extern integer gmsgb_(integer *gp, shortint *object, logical *value); +extern integer gmsgc_(integer *gp, shortint *object, shortint *value); +extern integer gmsgd_(integer *gp, shortint *object, doublereal *value); +extern integer gmsgi_(integer *gp, shortint *object, integer *value); +extern integer gmsgl_(integer *gp, shortint *object, integer *value); +extern integer gmsgr_(integer *gp, shortint *object, real *value); +extern integer gmsgs_(integer *gp, shortint *object, shortint *value); +extern integer gmsgx_(integer *gp, shortint *object, complex *value); +extern integer gnewpt_(real *ux, real *vy, integer *imax, integer *jptsy); +extern integer gopks_(integer *errfil); +extern integer gopwk_(integer *wkid, integer *conid, integer *wtype); +extern integer gpagee_(integer *gp, shortint *fname, shortint *prompt); +extern integer gpcell_(integer *gp, shortint *m, integer *nx, integer *ny, real *x1, real *y1, real *x2, real *y2); +extern integer gpl_(integer *n, real *px, real *py); +extern integer gplcae_(integer *gp); +extern integer gplcal_(void); +extern integer gplclb_(integer *pen, integer *mx, integer *my); +extern integer gplcll_(integer *pen, integer *mx, integer *my); +extern integer gplclr_(integer *pen, integer *mx, integer *my); +extern integer gplclt_(integer *pen, integer *mx, integer *my); +extern integer gplflh_(void); +extern integer gpline_(integer *gp, real *x, real *y, integer *npts); +extern integer gploto_(integer *gp, real *v, integer *npts, real *x1, real *x2, shortint *title); +extern integer gplotv_(real *v, integer *npts, real *x1, real *x2, shortint *title); +extern integer gplret_(void); +extern integer gplsee_(integer *gp, integer *type__); +extern integer gplwci_(integer *gp, real *wx, real *wy, real *mx, real *my); +extern integer gpm_(integer *n, real *px, real *py); +extern integer gpmark_(integer *gp, real *x, real *y, integer *npts, integer *markte, real *xsize, real *ysize); +extern integer gptclb_(integer *pen, integer *mx, integer *my); +extern integer gptcll_(integer *pen, integer *mx, integer *my); +extern integer gptclr_(integer *pen, integer *mx, integer *my); +extern integer gptclt_(integer *pen, integer *mx, integer *my); +extern integer gptflh_(void); +extern integer gqasf_(integer *ierror, integer *lasf); +extern integer gqchh_(integer *ierror, real *chh); +extern integer gqchup_(integer *ierror, real *chupx, real *chupy); +extern integer gqclip_(integer *errind, integer *iclip, real *iar); +extern integer gqcntn_(integer *errind, integer *cntr); +extern integer gqmk_(integer *ierr, integer *mtype); +extern integer gqnt_(integer *ntnr, integer *errind, real *window, real *vport); +extern integer gqopwk_(integer *n, integer *errind, integer *ol, integer *wkid); +extern integer gqplci_(integer *errind, integer *coli); +extern integer gqpmci_(integer *errind, integer *coli); +extern integer gqpmi_(integer *errind, real *index); +extern integer gqsort_(integer *x, integer *nelem, I_fp compae, integer *arg); +extern integer gqtxal_(integer *ierror, integer *txalh, integer *txalv); +extern integer gqtxci_(integer *ierror, integer *coli); +extern integer gqtxp_(integer *ierror, integer *path); +extern integer gqwks_(integer *wkid, integer *errind, integer *state); +extern integer gray_(void); +extern integer grcaxs_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer grccle_(integer *fd, integer *rc); +extern integer grcint_(integer *rc); +extern integer grckes_(integer *rc, shortint *opstr, integer *ip, integer *onoff); +extern integer grcmee_(integer *stream, shortint *messae); +extern integer grcndr_(real *mx, real *my, real *sx, real *sy); +extern integer grcnds_(real *ct, real *mx, real *my, real *wx, real *wy); +extern integer grcpcr_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer grcpoe_(integer *stream, real *v, integer *npts); +extern integer grcred_(integer *tr, integer *stream, shortint *fname); +extern integer grcres_(integer *stream, real *x, real *y); +extern integer grcrew_(integer *rc, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer grcscc_(real *sx, real *sy, real *mx, real *my); +extern integer grcscs_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, real *wx, real *wy, integer *wcs); +extern integer grcsen_(integer *w, real *ct); +extern integer grcsts_(integer *fd, integer *rc); +extern integer grctet_(integer *stream, real *x, real *y, shortint *text); +extern integer grcvit_(integer *tr, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, shortint *opstr, integer *ip); +extern integer grcwan_(integer *fd); +extern integer grcwcc_(real *ct, real *wx, real *wy, real *mx, real *my); +extern integer grcwod_(shortint *opstr, integer *ip, shortint *outstr, integer *maxch); +extern integer grcwre_(integer *tr, integer *stream, shortint *fname, logical *clobbr, logical *fullfe); +extern integer grdraw_(integer *gp, real *x, real *y); +extern integer greace_(integer *gp, integer *flags); +extern integer greset_(integer *gp, integer *flags); +extern integer grid_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer gridal_(integer *majrx, integer *minrx, integer *majry, integer *minry, integer *ixlab, integer *iylab, integer *igph, real *x, real *y); +extern integer gridl_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer gridt_(void); +extern integer grmove_(integer *gp, real *x, real *y); +extern integer grscae_(integer *gp, real *v, integer *npts, integer *axis); +extern integer gsasf_(integer *lasf); +extern integer gsawi_(integer *param, integer *value); +extern integer gsawr_(integer *param, real *value); +extern integer gscan_(integer *gp, shortint *commad); +extern integer gschh_(real *chh); +extern integer gschup_(real *chux, real *chuy); +extern integer gsclip_(integer *iclip); +extern integer gscur_(integer *gp, real *x, real *y); +extern integer gselnt_(integer *wcs); +extern integer gseti_(integer *gp, integer *param, integer *value); +extern integer gsetr_(integer *gp, integer *param, real *rval); +extern integer gsets_(integer *gp, integer *param, shortint *value); +extern integer gsfaci_(integer *index); +extern integer gsfais_(integer *ints); +extern integer gslwsc_(real *width); +extern integer gsmk_(integer *mtype); +extern integer gsmksc_(real *width); +extern integer gsplci_(integer *coli); +extern integer gspmci_(integer *coli); +extern integer gspmi_(integer *index); +extern integer gstrsb_(integer *tabs, integer *maxtas, integer *firstp, integer *tabsie); +extern integer gstsei_(integer *newvae, integer *value, integer *state); +extern integer gstser_(real *newvae, real *value, integer *state); +extern integer gstxal_(integer *txalh, integer *txalv); +extern integer gstxci_(integer *coli); +extern integer gstxp_(integer *txp); +extern integer gsview_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer gsvp_(integer *wcs, real *x1, real *x2, real *y1, real *y2); +extern integer gswind_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer gswn_(integer *wcs, real *x1, real *x2, real *y1, real *y2); +extern integer gtasce_(integer *gp, integer *gt, real *x, real *y, integer *npts); +extern integer gtcol1_(shortint *cmdstr, integer *gp, integer *gt, integer *newgrh); +extern integer gtcoln_(shortint *cmdstr, integer *gp, integer *gt, integer *newgrh); +extern integer gtcopy_(integer *gt1, integer *gt2); +extern integer gtext_(integer *gp, real *x, real *y, shortint *text, shortint *format); +extern integer gtfree_(integer *gt); +extern integer gtgets_(integer *gt, integer *param, shortint *str, integer *szstr); +extern integer gthelp_(shortint *file); +extern integer gtickr_(real *x1, real *x2, integer *roughs, integer *logflg, real *xtick1, real *step); +extern integer gtiret_(integer *gp, integer *gt); +extern integer gtlabx_(integer *gp, integer *gt); +extern integer gtrbap_(integer *stream); +extern integer gtrcol_(integer *stream, shortint *gki, integer *sourcd); +extern integer gtrctn_(integer *mx, integer *my, integer *sx, integer *sy); +extern integer gtrdee_(integer *tr, integer *gki); +extern integer gtrdit_(integer *pid, integer *in, integer *out, integer *stream); +extern integer gtrest_(integer *gp, integer *gt); +extern integer gtrfre_(integer *tr, integer *gki, integer *stream); +extern integer gtrgfh_(integer *stream); +extern integer gtrgtn_(integer *fd, real *x1, real *x2, real *y1, real *y2); +extern integer gtrmee_(integer *fd, integer *stream, shortint *name__); +extern integer gtrops_(shortint *devspc, integer *mode, integer *stream, integer *sourcd); +extern integer gtrpae_(integer *fd, integer *stream); +extern integer gtrpon_(shortint *gki); +extern integer gtrptn_(integer *stream, real *x1, real *x2, real *y1, real *y2); +extern integer gtrret_(integer *status); +extern integer gtrrew_(integer *stream); +extern integer gtrset_(integer *fd, real *x1, real *x2, real *y1, real *y2); +extern integer gtrsts_(integer *fd); +extern integer gtrtre_(integer *tr, integer *gki); +extern integer gtruno_(integer *stream); +extern integer gtrwae_(integer *fd, integer *stream); +extern integer gtrwrr_(integer *fd, real *x, real *y); +extern integer gtrwsn_(shortint *gki); +extern integer gtseti_(integer *gt, integer *param, integer *ival); +extern integer gtsetr_(integer *gt, integer *param, real *rval); +extern integer gtsets_(integer *gt, integer *param, shortint *str); +extern integer gtswid_(integer *gp, integer *gt); +extern integer gtuivs_(integer *gp, integer *gt); +extern integer gtvplt_(integer *gp, integer *gt, real *v, integer *npts, real *x1, real *x2); +extern integer gtwin1_(integer *gt, integer *gp, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *redraw); +extern integer gtwin2_(integer *gt, integer *gp, real *wx1, real *wy1, integer *wcs1, integer *key1, shortint *cmd1, real *wx2, real *wy2, integer *wcs2, integer *key2, shortint *cmd2, integer *redraw); +extern integer gtwinw_(integer *gt, integer *gp, shortint *cursor, integer *redraw); +extern integer gtx_(real *px, real *py, char *f77chars, ftnlen f77chars_len); +extern integer gtxset_(integer *tx, shortint *format, integer *ip); +extern integer gtycle_(integer *tty); +extern integer gtyfey_(integer *fd, shortint *device, integer *tty); +extern integer gtyins_(integer *tty, integer *tcapce, integer *tcapix, integer *ncaps); +extern integer gtysce_(integer *tty, shortint *termce, shortint *devnae); +extern integer gumark_(integer *gp, real *x, real *y, integer *npts, real *xcen, real *ycen, real *xsize, real *ysize, integer *fill); +extern integer gvline_(integer *gp, real *v, integer *npts, real *x1, real *x2); +extern integer gvmark_(integer *gp, real *v, integer *npts, real *x1, real *x2, integer *markte, real *xsize, real *ysize); +extern integer gwcsme_(shortint *devnae, shortint *fname, integer *maxch); +extern integer gwrwcs_(shortint *devnae, integer *wcs, integer *lenwcs); +extern integer gxgtx_(real *px, real *py, shortint *chars); +extern integer hafton_(real *z__, integer *l, integer *m, integer *n, real *flo, real *hi, integer *nlev, integer *nopt, integer *nprm, integer *ispv, real *spval); +extern integer halfax_(integer *majrx, integer *minrx, integer *majry, integer *minry, real *x, real *y, integer *ixlab, integer *iylab); +extern integer hfinit_(void); +extern integer iccled_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts); +extern integer icclen_(integer *ic, integer *cv, real *x, real *y, real *w, integer *npts); +extern integer icclod_(integer *ic); +extern integer icclor_(integer *ic); +extern integer iccopy_(integer *icin, integer *icout); +extern integer icdevd_(integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, real *lowret, real *highrt, real *grow, integer *refit, integer *nrejet, integer *newret); +extern integer icdevr_(integer *cv, real *x, real *y, real *w, integer *rejpts, integer *npts, real *lowret, real *highrt, real *grow, integer *refit, integer *nrejet, integer *newret); +extern integer icdosd_(integer *ic, integer *cv, doublereal *x, doublereal *wts, integer *npts, integer *newx, integer *newwts, integer *newfun, integer *refit); +extern integer icdosr_(integer *ic, integer *cv, real *x, real *wts, integer *npts, integer *newx, integer *newwts, integer *newfun, integer *refit); +extern integer icerrd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts); +extern integer icerrs_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *wts, integer *npts); +extern integer icferd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *fd); +extern integer icferr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *fd); +extern integer icfit_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *newx, integer *newy, integer *newwts, integer *newfun); +extern integer icfitd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *newx, integer *newy, integer *newwts, integer *newfun); +extern integer icfshw_(integer *ic, integer *fd); +extern integer icfvsd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *fd); +extern integer icfvsr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *fd); +extern integer icfxyd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts, integer *fd); +extern integer icfxyr_(integer *ic, integer *cv, real *x, real *y, real *w, integer *npts, integer *fd); +extern integer ichelp_(integer *ic); +extern integer iclisr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, shortint *file); +extern integer icopen_(integer *ic); +extern integer icpkey_(integer *ic, integer *key, integer *xaxis, integer *yaxis); +extern integer icpstr_(integer *ic, shortint *param, shortint *str); +extern integer icputi_(integer *ic, shortint *param, integer *ival); +extern integer icputr_(integer *ic, shortint *param, real *rval); +extern integer icrejd_(integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, real *lowret, real *highrt, integer *nitere, real *grow, integer *nrejet); +extern integer icrejr_(integer *cv, real *x, real *y, real *w, integer *rejpts, integer *npts, real *lowret, real *highrt, integer *nitere, real *grow, integer *nrejet); +extern integer icshow_(integer *ic, shortint *file, integer *gt); +extern integer icvshd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *gt); +extern integer icvshr_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *wts, integer *npts, integer *gt); +extern integer icxysd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts); +extern integer icxysr_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *w, integer *npts); +extern integer idbcle_(integer *idb); +extern integer idiot_(real *xdra, real *ydra, integer *npts, integer *ltyp, integer *ldsh, char *labx, char *laby, char *labg, integer *lfra, ftnlen labx_len, ftnlen laby_len, ftnlen labg_len); +extern integer idkcle_(integer *fd); +extern integer idkdrw_(integer *fd, integer *ax, integer *ay); +extern integer idkflh_(integer *fd); +extern integer idkfre_(integer *fd); +extern integer idklih_(integer *fd, integer *width); +extern integer idkmoe_(integer *fd, integer *x, integer *y); +extern integer idkver_(integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer iisblk_(integer *chan1, integer *chan2, integer *chan3, integer *chan4, integer *nframs, real *rate); +extern integer iiscls_(integer *chan, integer *status); +extern integer iisers_(integer *chan); +extern integer iisgop_(integer *frame, integer *mode, integer *chan); +extern integer iishdr_(integer *id, integer *count, integer *subunt, integer *x, integer *y, integer *z__, integer *t); +extern integer iisio_(shortint *buf, integer *nbytes, integer *status); +extern integer iislpe_(shortint *y, integer *npts, integer *xc, integer *height, integer *width); +extern integer iislps_(shortint *lutb, shortint *lutg, shortint *lutr); +extern integer iismtc_(integer *chan1, integer *chan2); +extern integer iisofm_(shortint *map); +extern integer iisopn_(shortint *devino, integer *mode, integer *chan); +extern integer iispio_(shortint *buf, integer *nx, integer *ny); +extern integer iisrcr_(integer *status, integer *xcur, integer *ycur); +extern integer iisrd_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer iisrgb_(integer *redchn, integer *greenn, integer *bluecn); +extern integer iisrlt_(integer *chan, shortint *lut); +extern integer iisrm_(integer *zfactr); +extern integer iisrom_(integer *color, shortint *lut); +extern integer iissee_(integer *frame); +extern integer iisstt_(integer *chan, integer *what, integer *lvalue); +extern integer iiswcr_(integer *status, integer *xcur, integer *ycur); +extern integer iiswlt_(integer *chan, shortint *lut); +extern integer iiswn3_(integer *chan1, integer *chan2, integer *chan3); +extern integer iiswom_(integer *color, shortint *lut); +extern integer iiswr_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer iiswt_(integer *chan, integer *nbytes); +extern integer iiszm_(integer *zfactr, integer *x, integer *y); +extern integer ikicle_(integer *im); +extern integer ikicoy_(shortint *old, shortint *new__); +extern integer ikidee_(shortint *image); +extern integer ikideg_(shortint *str, integer *fd, integer *flags); +extern integer ikiint_(void); +extern integer ikimke_(shortint *root, shortint *extn, shortint *fname, integer *maxch); +extern integer ikiopn_(integer *nim, shortint *image, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *oim); +extern integer ikiopx_(integer *im); +extern integer ikipae_(shortint *image, shortint *root, shortint *extn); +extern integer ikiree_(shortint *old, shortint *new__); +extern integer ikiupr_(integer *im); +extern integer imaddb_(integer *im, shortint *key, logical *value); +extern integer imaddd_(integer *im, shortint *key, doublereal *value); +extern integer imaddf_(integer *im, shortint *key, shortint *datate); +extern integer imaddi_(integer *im, shortint *key, integer *value); +extern integer imaddl_(integer *im, shortint *key, integer *value); +extern integer imaddr_(integer *im, shortint *key, real *value); +extern integer imadds_(integer *im, shortint *key, shortint *value); +extern integer imaflp_(shortint *a, integer *npix, integer *szpixl); +extern integer imakbc_(integer *im, shortint *key, logical *value, shortint *commet); +extern integer imakbi_(integer *im, shortint *key, logical *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imakdc_(integer *im, shortint *key, doublereal *value, shortint *commet); +extern integer imakdi_(integer *im, shortint *key, doublereal *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imakic_(integer *im, shortint *key, integer *value, shortint *commet); +extern integer imakii_(integer *im, shortint *key, integer *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imaklc_(integer *im, shortint *key, integer *value, shortint *commet); +extern integer imakli_(integer *im, shortint *key, integer *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imakrc_(integer *im, shortint *key, real *value, shortint *commet); +extern integer imakri_(integer *im, shortint *key, real *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imaksc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer imaksi_(integer *im, shortint *key, shortint *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imalin_(integer *offset, integer *blksie); +extern integer imaplv_(integer *im, integer *lv, integer *pv, integer *ndim); +extern integer imastc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer imasti_(integer *im, shortint *key, shortint *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imastr_(integer *im, shortint *key, shortint *value); +extern integer imbln1_(integer *imdes, integer *nx); +extern integer imbln2_(integer *imdes, integer *nx, integer *ny); +extern integer imbln3_(integer *imdes, integer *nx, integer *ny, integer *nz); +extern integer imbtrn_(integer *im, integer *v1, integer *v2, integer *ndim); +extern integer imcfnl_(integer *fn); +extern integer imcopy_(shortint *old, shortint *new__); +extern integer imctrt_(integer *imdes, integer *dim, integer *x1arg, integer *x2arg, integer *step); +extern integer imdbcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer imdcal_(integer *dummy); +extern integer imdcle_(void); +extern integer imdclr_(integer *dummy); +extern integer imdcls_(shortint *devnae, integer *n); +extern integer imdcor_(integer *index); +extern integer imddae_(integer *gout, shortint *p, integer *npts, integer *ltype); +extern integer imddrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font); +extern integer imdect_(shortint *sectin, integer *ip, integer *x1, integer *x2, integer *step); +extern integer imdele_(shortint *image); +extern integer imdelf_(integer *im, shortint *key); +extern integer imdese_(integer *fn, shortint *instrn, integer *nwords); +extern integer imdfat_(shortint *gki); +extern integer imdfia_(shortint *p, integer *npts); +extern integer imdflh_(integer *dummy); +extern integer imdfot_(integer *font); +extern integer imdgey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer imdint_(integer *tty, shortint *devnae); +extern integer imdlie_(integer *index); +extern integer imdmcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer imdops_(shortint *devnae, integer *n, integer *mode); +extern integer imdopv_(shortint *devnae, integer *frame, integer *color, integer *dd); +extern integer imdplt_(shortint *gki); +extern integer imdpmt_(shortint *gki); +extern integer imdpoe_(shortint *p, integer *npts); +extern integer imdpor_(shortint *p, integer *npts); +extern integer imdpus_(integer *ds, integer *frame, shortint *str1, shortint *str2, real *a, real *b, real *c__, real *d__, real *tx, real *ty, real *z1, real *z2, integer *ztr); +extern integer imdpuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer imdrco_(integer *tty, shortint *outstr, integer *maxch, integer *wcs, integer *pause); +extern integer imdret_(void); +extern integer imdseg_(shortint *reg, real *sx, real *sy, integer *snx, integer *sny, integer *dx, integer *dy, integer *dnx, integer *dny, shortint *objref); +extern integer imdses_(integer *chan, shortint *wcstet); +extern integer imdtet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer imdtxt_(shortint *gki); +extern integer imerr_(shortint *imagee, integer *errcoe); +extern integer imflpl_(integer *a, integer *npix); +extern integer imflps_(shortint *a, integer *npix); +extern integer imflsd_(integer *imdes); +extern integer imflsh_(integer *im, integer *bp, integer *vs, integer *ve, integer *ndim); +extern integer imflsi_(integer *imdes); +extern integer imflsl_(integer *imdes); +extern integer imflsr_(integer *imdes); +extern integer imflss_(integer *imdes); +extern integer imflsx_(integer *imdes); +extern integer imfluh_(integer *imdes); +extern integer imfnpy_(shortint *key, integer *strp, integer *nstr, integer *nextch, integer *sbuf); +extern integer imfnss_(integer *im, shortint *patcoe, integer *strp, integer *nstr, integer *nextch, integer *sbuf); +extern integer imgclr_(shortint *imspec, shortint *clustr, integer *maxch); +extern integer imgcom_(integer *im, shortint *key, shortint *commet); +extern integer imgime_(shortint *imspec, shortint *image, integer *maxch); +extern integer imgsen_(shortint *imspec, shortint *sectin, integer *maxch); +extern integer imgstr_(integer *im, shortint *key, shortint *outstr, integer *maxch); +extern integer iminfi_(integer *im, shortint *key, shortint *pkey, shortint *datate, integer *baf); +extern integer iminie_(integer *im, integer *lenimr); +extern integer imioff_(integer *im, integer *pixoff, integer *comprs, integer *devblz); +extern integer imisec_(integer *imdes, shortint *sectin); +extern integer immaky_(integer *im, integer *oim); +extern integer imopsf_(integer *im); +extern integer impakd_(doublereal *a, integer *b, integer *npix, integer *dtype); +extern integer impaki_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer impakl_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer impakr_(real *a, integer *b, integer *npix, integer *dtype); +extern integer impaks_(shortint *a, integer *b, integer *npix, integer *dtype); +extern integer impakx_(complex *a, integer *b, integer *npix, integer *dtype); +extern integer impare_(shortint *imspec, shortint *clustr, integer *szclur, shortint *ksectn, integer *szksen, shortint *sectin, integer *szsecn, integer *clindx, integer *clsize); +extern integer imphis_(integer *im, shortint *key, shortint *text, shortint *pkey, integer *baf); +extern integer impkbc_(integer *im, shortint *key, logical *bval, shortint *commet); +extern integer impkdc_(integer *im, shortint *key, doublereal *dval, shortint *commet); +extern integer impkic_(integer *im, shortint *key, integer *ival, shortint *commet); +extern integer impklc_(integer *im, shortint *key, integer *lval, shortint *commet); +extern integer impkrc_(integer *im, shortint *key, real *rval, shortint *commet); +extern integer impksc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer impmlr_(integer *im, integer *bp); +extern integer impstc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer impstr_(integer *im, shortint *key, shortint *value); +extern integer imputb_(integer *im, shortint *key, logical *bval); +extern integer imputd_(integer *im, shortint *key, doublereal *dval); +extern integer imputf_(integer *im, shortint *file, shortint *pkey, integer *baf); +extern integer imputh_(integer *im, shortint *key, shortint *text); +extern integer imputi_(integer *im, shortint *key, integer *ival); +extern integer imputl_(integer *im, shortint *key, integer *lval); +extern integer imputr_(integer *im, shortint *key, real *rval); +extern integer imputs_(integer *im, shortint *key, shortint *value); +extern integer imrart_(integer *piv, shortint *fname, integer *nlines, integer *insert); +extern integer imrbpx_(integer *im, shortint *obuf, integer *totpix, integer *v, integer *vinc); +extern integer imrdpx_(integer *im, shortint *obuf, integer *npix, integer *v, integer *xstep); +extern integer imrene_(shortint *old, shortint *new__); +extern integer imrenf_(integer *im, shortint *oldkey, shortint *newkey); +extern integer imrmbs_(integer *im); +extern integer imsamp_(shortint *a, shortint *b, integer *npix, integer *szpixl, integer *step); +extern integer imsetf_(integer *fd, integer *im); +extern integer imseti_(integer *im, integer *param, integer *value); +extern integer imsetr_(integer *im, integer *param, real *value); +extern integer imsmpl_(integer *a, integer *b, integer *npix, integer *step); +extern integer imsmps_(shortint *a, shortint *b, integer *npix, integer *step); +extern integer imsslv_(integer *im, integer *vs, integer *ve, integer *v, integer *vinc, integer *npix); +extern integer imstas_(integer *im, integer *option, shortint *outstr, integer *maxch); +extern integer imtcle_(integer *imt); +extern integer imtrew_(integer *imt); +extern integer imunmp_(integer *im); +extern integer imupkd_(integer *a, doublereal *b, integer *npix, integer *dtype); +extern integer imupki_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer imupkl_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer imupkr_(integer *a, real *b, integer *npix, integer *dtype); +extern integer imupks_(integer *a, shortint *b, integer *npix, integer *dtype); +extern integer imupkx_(integer *a, complex *b, integer *npix, integer *dtype); +extern integer imwbpx_(integer *im, shortint *ibuf, integer *totpix, integer *v, integer *vinc); +extern integer imwrie_(integer *imdes, shortint *buf, integer *nchars, integer *offset); +extern integer imwrpx_(integer *im, shortint *buf, integer *npix, integer *v, integer *xstep); +extern integer inbfid_(integer *in, integer *npts, integer *nvars__); +extern integer inbfir_(integer *in, integer *npts, integer *nvars__); +extern integer incopd_(integer *insrc, integer *indst); +extern integer incopr_(integer *insrc, integer *indst); +extern integer indevd_(integer *nl, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, integer *nvars__, doublereal *lowret, doublereal *highrt, doublereal *grow, integer *nrejet, integer *newret); +extern integer indevr_(integer *nl, real *x, real *y, real *w, integer *rejpts, integer *npts, integer *nvars__, real *lowret, real *highrt, real *grow, integer *nrejet, integer *newret); +extern integer indumd_(integer *fd, integer *in); +extern integer indumr_(integer *fd, integer *in); +extern integer inerrd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, doublereal *variae, doublereal *chisqr, doublereal *scattr, doublereal *rms, doublereal *errors); +extern integer inerrr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, real *variae, real *chisqr, real *scattr, real *rms, real *errors); +extern integer infitd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *wtflag, integer *stat); +extern integer infitr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *wtflag, integer *stat); +extern integer infred_(integer *in); +extern integer infrer_(integer *in); +extern integer ingaxd_(integer *in, integer *gt, integer *nl, integer *axis, doublereal *x, doublereal *y, doublereal *z__, integer *npts, integer *nvars__); +extern integer ingaxr_(integer *in, integer *gt, integer *nl, integer *axis, real *x, real *y, real *z__, integer *npts, integer *nvars__); +extern integer ingchd_(integer *in, integer *type__); +extern integer ingchr_(integer *in, integer *type__); +extern integer ingcod_(integer *in, shortint *cmdstr, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *newgrh); +extern integer ingcor_(integer *in, shortint *cmdstr, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *newgrh); +extern integer ingd1d_(integer *in, integer *gp, doublereal *x, doublereal *y, doublereal *wts, integer *npts, real *wx, real *wy); +extern integer ingd1r_(integer *in, integer *gp, real *x, real *y, real *wts, integer *npts, real *wx, real *wy); +extern integer ingdad_(integer *in, shortint *file, doublereal *x, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingdar_(integer *in, shortint *file, real *x, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingded_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingder_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingdey_(integer *in, integer *nvars__, integer *newgrh); +extern integer ingerd_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__); +extern integer ingerr_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__); +extern integer ingfid_(integer *in, integer *gp, shortint *cursor, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *wtflag, integer *stat); +extern integer ingfir_(integer *in, integer *gp, shortint *cursor, integer *gt, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *wtflag, integer *stat); +extern integer ingg1d_(integer *in, integer *gp, integer *gt, doublereal *x, doublereal *y, doublereal *wts, integer *npts); +extern integer ingg1r_(integer *in, integer *gp, integer *gt, real *x, real *y, real *wts, integer *npts); +extern integer ingg2d_(integer *in, integer *gp, integer *gt, doublereal *x, doublereal *y, integer *npts); +extern integer ingg2r_(integer *in, integer *gp, integer *gt, real *x, real *y, integer *npts); +extern integer inggel_(integer *in, integer *xtype, integer *xnum, shortint *label, shortint *units, integer *maxch); +extern integer inggfd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *xin, doublereal *wts, integer *npts, integer *nvars__); +extern integer inggfr_(integer *in, integer *gp, integer *gt, integer *nl, real *xin, real *wts, integer *npts, integer *nvars__); +extern integer inggrd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__); +extern integer inggrr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__); +extern integer ingkey_(integer *in, integer *key, integer *axis, integer *type__, integer *varnum); +extern integer ingpad_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *gt); +extern integer ingpar_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *gt); +extern integer ingred_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingrer_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingshd_(integer *in, shortint *file); +extern integer ingshr_(integer *in, shortint *file); +extern integer ingstr_(integer *in, integer *param, shortint *str, integer *maxch); +extern integer ingtie_(integer *in, shortint *file, integer *gt); +extern integer ingu1d_(integer *in, integer *gp, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy); +extern integer ingu1r_(integer *in, integer *gp, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy); +extern integer inguad_(integer *keynum, integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *z__, integer *npts, integer *nvars__); +extern integer inguar_(integer *keynum, integer *in, integer *nl, real *x, real *y, real *z__, integer *npts, integer *nvars__); +extern integer ingucd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *newgrh); +extern integer ingucr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *newgrh); +extern integer inguft_(integer *in, integer *gp, integer *gt, integer *nl, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd); +extern integer ingund_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingunr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, real *userws, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingvad_(integer *in, shortint *file, integer *nvars__); +extern integer ingvar_(integer *in, shortint *file, integer *nvars__); +extern integer ingvsd_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *gt); +extern integer ingvsr_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *gt); +extern integer ininid_(integer *in, integer *func, integer *dfunc, doublereal *param, doublereal *dparam, integer *nparas, integer *plist, integer *nfpars); +extern integer ininir_(integer *in, integer *func, integer *dfunc, real *param, real *dparam, integer *nparas, integer *plist, integer *nfpars); +extern integer initag_(void); +extern integer initut_(void); +extern integer initzi_(integer *ix, integer *iy, integer *iz, integer *lin3, integer *itop, integer *ient); +extern integer initzs_(integer *ix, integer *iy, integer *iz, integer *lin3, integer *itop, integer *ient); +extern integer initzt_(integer *ix, integer *iy, integer *iz, integer *lin3, integer *itop, integer *ient); +extern integer inlimd_(integer *in, doublereal *x, integer *npts, integer *nvars__); +extern integer inlimr_(integer *in, real *x, integer *npts, integer *nvars__); +extern integer innlid_(integer *in, integer *nl); +extern integer innlir_(integer *in, integer *nl); +extern integer inpkey_(integer *in, integer *key, integer *axis, integer *type__, integer *varnum); +extern integer inpstr_(integer *in, integer *param, shortint *str); +extern integer inputd_(integer *in, integer *param, doublereal *dval); +extern integer inputi_(integer *in, integer *param, integer *ival); +extern integer inputp_(integer *in, integer *param, integer *pval); +extern integer inputr_(integer *in, integer *param, real *rval); +extern integer inrefd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *wtflag); +extern integer inrefr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *wtflag); +extern integer inrejd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *w, integer *npts, integer *nvars__, integer *wtflag); +extern integer inrejr_(integer *in, integer *nl, real *x, real *y, real *w, integer *npts, integer *nvars__, integer *wtflag); +extern integer intrde_(void); +extern integer intree_(void); +extern integer intrrt_(void); +extern integer intzi_(real *xx, real *yy, real *zz, integer *lin3, integer *itop); +extern integer intzs_(real *xx, real *yy, real *zz, integer *lin3, integer *itop); +extern integer intzt_(real *xx, real *yy, real *zz, integer *lin3, integer *itop); +extern integer isosrb_(void); +extern integer isosrf_(real *t, integer *lu, integer *mu, integer *lv, integer *mv, integer *mw, real *eye, integer *muvwp2, real *slab, real *tiso, integer *iflag); +extern integer iwcfis_(integer *iw); +extern integer iwcloe_(integer *iw); +extern integer iwents_(integer *mw, integer *iw, integer *ndim); +extern integer iwfb2m_(integer *iw, real *fbx, real *fby, real *imx, real *imy); +extern integer iwim2b_(integer *iw, real *imx, real *imy, real *fbx, real *fby); +extern integer iwputr_(integer *fd, integer *iw, integer *axis, integer *ctype, shortint *fmt1, shortint *fmt2, integer *maxinx); +extern integer iwputy_(integer *iw, doublereal *new__, doublereal *old, integer *ndim, shortint *kwfort, integer *kwtype, integer *kwindx); +extern integer iwsetp_(integer *mw, integer *im); +extern integer kardbf_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardgd_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardlp_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardpl_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardpr_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardsf_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kawrbf_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrgd_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrlp_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrpl_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrpr_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrsf_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawtbf_(integer *chan, integer *status); +extern integer kawtgd_(integer *chan, integer *status); +extern integer kawtlp_(integer *chan, integer *status); +extern integer kawtpl_(integer *chan, integer *status); +extern integer kawtpr_(integer *chan, integer *status); +extern integer kawtsf_(integer *chan, integer *status); +extern integer kbzard_(integer *device, integer *chan, shortint *obuf, integer *maxbys, integer *loffst); +extern integer kbzawr_(integer *device, integer *chan, shortint *ibuf, integer *nbytes, integer *loffst); +extern integer kbzawt_(integer *device, integer *chan, integer *status); +extern integer kbzcls_(integer *device, integer *chan, integer *status); +extern integer kbzopn_(integer *device, shortint *osfn, integer *mode, integer *chan); +extern integer kbzstt_(integer *device, integer *chan, integer *what, integer *lvalue); +extern integer kclcpr_(integer *pid, integer *exitss); +extern integer kcldir_(integer *chan, integer *status); +extern integer kcldpr_(integer *jobcoe, integer *killfg, integer *exitss); +extern integer kclsbf_(integer *chan, integer *status); +extern integer kclsgd_(integer *chan, integer *status); +extern integer kclslp_(integer *chan, integer *status); +extern integer kclspl_(integer *chan, integer *status); +extern integer kclssf_(integer *chan, integer *status); +extern integer kclstx_(integer *chan, integer *status); +extern integer kclsty_(integer *chan, integer *status); +extern integer kdvall_(shortint *device, integer *allflg, integer *status); +extern integer kdvown_(shortint *device, shortint *owner, integer *maxch, integer *status); +extern integer kfacss_(shortint *osfn, integer *mode, integer *type__, integer *status); +extern integer kfaloc_(shortint *osfn, integer *nbytes, integer *status); +extern integer kfchdr_(shortint *dirnae, integer *status); +extern integer kfdele_(shortint *osfn, integer *status); +extern integer kfgcwd_(shortint *outstr, integer *maxch, integer *nchars); +extern integer kfinfo_(shortint *osfn, integer *fi, integer *status); +extern integer kflstx_(integer *chan, integer *status); +extern integer kflsty_(integer *chan, integer *status); +extern integer kfmkcp_(shortint *oldosn, shortint *newosn, integer *status); +extern integer kfmkdr_(shortint *osfn, integer *status); +extern integer kfpath_(shortint *vfn, shortint *osfn, integer *maxch, integer *nchars); +extern integer kfprot_(shortint *osfn, integer *protfg, integer *status); +extern integer kfrnam_(shortint *oldosn, shortint *newosn, integer *status); +extern integer kfsubd_(shortint *osdir, integer *maxch, shortint *subdir, integer *nchars); +extern integer kfutim_(shortint *osfn, integer *atime, integer *mtime, integer *status); +extern integer kfxdir_(shortint *vfn, shortint *osdir, integer *maxch, integer *nchars); +extern integer kgettx_(integer *chan, shortint *text, integer *maxch, integer *status); +extern integer kgetty_(integer *chan, shortint *text, integer *maxch, integer *status); +extern integer kgfdir_(integer *chan, shortint *osfn, integer *maxch, integer *status); +extern integer kience_(integer *data, shortint *str, integer *nchars); +extern integer kienvt_(shortint *name__, shortint *value); +extern integer kierrr_(integer *server); +extern integer kiflux_(integer *device, integer *chan, integer *status); +extern integer kifman_(shortint *vfn, shortint *pkosfn, integer *maxch); +extern integer kifren_(integer *chan); +extern integer kiinit_(integer *inchan, integer *outchn, integer *errchn, integer *device, integer *devtye); +extern integer kintpr_(integer *pid, integer *vex, integer *status); +extern integer kishot_(integer *fd); +extern integer kixnoe_(shortint *r1, shortint *r2, integer *maxch); +extern integer knottx_(integer *chan, integer *loffst); +extern integer knotty_(integer *chan, integer *loffst); +extern integer kopcpr_(shortint *proces, integer *inchan, integer *outchn, integer *pid); +extern integer kopdir_(shortint *osfn, integer *chan); +extern integer kopdpr_(shortint *proces, shortint *bkgfie, shortint *bkgmsg, integer *jobcoe); +extern integer kopnbf_(shortint *osfn, integer *mode, integer *chan); +extern integer kopngd_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnlp_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnpl_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnsf_(shortint *osfn, integer *mode, integer *chan); +extern integer kopntx_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnty_(shortint *osfn, integer *mode, integer *chan); +extern integer koscmd_(shortint *oscmd, shortint *stdine, shortint *stdoue, shortint *stdere, integer *status); +extern integer kputtx_(integer *chan, shortint *text, integer *nchars, integer *status); +extern integer kputty_(integer *chan, shortint *text, integer *nchars, integer *status); +extern integer ksared_(integer *server, shortint *buf, integer *maxbys); +extern integer ksawat_(integer *server, integer *status); +extern integer ksawre_(integer *server, shortint *buf, integer *nbytes); +extern integer ksektx_(integer *chan, integer *loffst, integer *status); +extern integer ksekty_(integer *chan, integer *loffst, integer *status); +extern integer kserrr_(integer *errcoe, shortint *errmsg); +extern integer kservr_(integer *in, integer *out, integer *buflen); +extern integer ksfman_(shortint *vfn, shortint *osfn, integer *maxch); +extern integer ksloaf_(integer *bfdd); +extern integer ksloax_(integer *txdd); +extern integer ksop2r_(integer *opcode, integer *subcoe, shortint *ostr, shortint *sstr); +extern integer ksttbf_(integer *chan, integer *what, integer *lvalue); +extern integer ksttgd_(integer *chan, integer *what, integer *lvalue); +extern integer ksttlp_(integer *chan, integer *what, integer *lvalue); +extern integer ksttpl_(integer *chan, integer *what, integer *lvalue); +extern integer ksttpr_(integer *chan, integer *what, integer *lvalue); +extern integer ksttsf_(integer *chan, integer *what, integer *lvalue); +extern integer kstttx_(integer *chan, integer *what, integer *lvalue); +extern integer ksttty_(integer *chan, integer *what, integer *lvalue); +extern integer kszfif_(integer *in, integer *out, integer *iobuf, integer *leniof, integer *bfdd); +extern integer kszfit_(integer *in, integer *out, integer *iobuf, integer *leniof); +extern integer kszfix_(integer *in, integer *out, integer *iobuf, integer *leniof, integer *txdd); +extern integer ktzcls_(integer *device, integer *chan, integer *status); +extern integer ktzfls_(integer *device, integer *chan, integer *status); +extern integer ktzget_(integer *device, integer *chan, shortint *obuf, integer *maxch, integer *status); +extern integer ktznot_(integer *device, integer *chan, integer *loffst); +extern integer ktzopn_(integer *device, shortint *osfn, integer *mode, integer *chan); +extern integer ktzput_(integer *device, integer *chan, shortint *ibuf, integer *nchars, integer *status); +extern integer ktzsek_(integer *device, integer *chan, integer *loffst, integer *status); +extern integer ktzstt_(integer *device, integer *chan, integer *what, integer *lvalue); +extern integer kurv1s_(integer *n, real *x, real *y, real *slop1, real *slopn, real *xp, real *yp, real *temp, real *s, real *sigma, integer *islpsw); +extern integer kurv2s_(real *t, real *xs, real *ys, integer *n, real *x, real *y, real *xp, real *yp, real *s, real *sigma, integer *nslpsw, real *slp); +extern integer labmod_(char *fmtx, char *fmty, integer *numx, integer *numy, integer *isizx, integer *isizy, integer *ixdec, integer *iydec, integer *ixor, ftnlen fmtx_len, ftnlen fmty_len); +extern integer lastd_(void); +extern integer line3_(real *ua, real *va, real *wa, real *ub, real *vb, real *wb); +extern integer line3w_(real *xa, real *ya, real *xb, real *yb); +extern integer line_(real *x1, real *y1, real *x2, real *y2); +extern integer lined_(real *xa, real *ya, real *xb, real *yb); +extern integer lnocle_(integer *lp); +extern integer lnosae_(integer *lp, integer *line, integer *loffst, integer *ltag); +extern integer lpzard_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer lpzawe_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer lpzawt_(integer *chan, integer *nbytes); +extern integer lubksb_(real *a, integer *n, integer *np, integer *indx, real *b); +extern integer ludcmp_(real *a, integer *n, integer *np, integer *indx, real *d__); +extern integer luminv_(real *a, integer *n, integer *np); +extern integer maideh_(void); +extern integer maskce_(integer *colors); +extern integer masken_(integer *colors, integer *maskvs, integer *nmasks); +extern integer maskfc_(integer *data, shortint *func, integer *args, integer *nargs, integer *val); +extern integer maskod_(integer *op, shortint *operad, integer *o); +extern integer maxmin_(integer *im, real *zmin, real *zmax, integer *nsamps); +extern integer mcflsh_(void); +extern integer mefakb_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer mefakc_(shortint *keywod, shortint *value, integer *len, shortint *commet, integer *pn); +extern integer mefakd_(shortint *keywod, doublereal *value, shortint *commet, integer *precin, integer *pn); +extern integer mefaki_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer mefakr_(shortint *keywod, real *value, shortint *commet, integer *precin, integer *pn); +extern integer mefape_(integer *mefi, integer *mefo); +extern integer mefcle_(integer *mef); +extern integer mefcon_(integer *mefi, integer *mefo, integer *gn); +extern integer mefcpl_(integer *spool, integer *mef); +extern integer mefdur_(integer *out, shortint *hdrfne); +extern integer mefenb_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer mefenc_(shortint *keywod, shortint *param, integer *maxch, shortint *card, shortint *commet); +extern integer mefend_(shortint *keywod, doublereal *param, shortint *card, shortint *commet, integer *precin); +extern integer mefene_(shortint *datesr, integer *szdate); +extern integer mefeni_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer mefenl_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer mefenr_(shortint *keywod, real *param, shortint *card, shortint *commet, integer *precin); +extern integer mefens_(shortint *root, shortint *keywod, integer *axisno); +extern integer meffis_(shortint *fname, integer *acmode); +extern integer meffiw_(integer *hdrp, shortint *key, shortint *keywvl); +extern integer mefget_(shortint *card, shortint *commet, integer *maxch); +extern integer mefglm_(shortint *time, shortint *date, integer *limtie); +extern integer mefgsr_(integer *mef, shortint *key, shortint *outstr, integer *maxch); +extern integer mefgvb_(shortint *card, integer *bval); +extern integer mefgvd_(shortint *card, doublereal *dval); +extern integer mefgvi_(shortint *card, integer *ival); +extern integer mefgvr_(shortint *card, real *rval); +extern integer mefgvt_(shortint *card, shortint *outstr, integer *maxch); +extern integer mefksn_(shortint *ksectn, shortint *extnae, integer *extver); +extern integer mefkve_(shortint *outstr, integer *lextye, shortint *extnae, integer *extver); +extern integer mefpae_(integer *fd, integer *offset); +extern integer mefpar_(integer *out, shortint *card); +extern integer mefsel_(integer *versin, integer *plsize, shortint *imhdr, shortint *title, integer *ctime, integer *mtime, integer *limtie, real *minval, real *maxval, integer *mef); +extern integer mefskt_(integer *mef); +extern integer mefwcb_(shortint *kname, integer *kvalue, shortint *kcomm, integer *fd); +extern integer mefwcc_(shortint *kname, shortint *kvalue, shortint *kcomm, integer *fd); +extern integer mefwci_(shortint *kname, integer *kvalue, shortint *kcomm, integer *fd); +extern integer mefwcr_(shortint *kname, real *kvalue, shortint *kcomm, integer *fd); +extern integer mefwrk_(integer *out, integer *olines); +extern integer mefwrl_(integer *mef, shortint *title, integer *ctime, integer *mtime, integer *limtie, real *minval, real *maxval, shortint *plbuf, integer *naxis, integer *axlen); +extern integer mefwrr_(integer *mefi, integer *mefo, logical *inphdu); +extern integer mefwrt_(integer *out); +extern integer miiwrc_(integer *fd, integer *spp, integer *nchars); +extern integer miiwrd_(integer *fd, integer *spp, integer *nelem); +extern integer miiwri_(integer *fd, integer *spp, integer *nelem); +extern integer miiwrl_(integer *fd, integer *spp, integer *nelem); +extern integer miiwrr_(integer *fd, integer *spp, integer *nelem); +extern integer miiwrs_(integer *fd, integer *spp, integer *nelem); +extern integer minmax_(real *z__, integer *l, integer *mm, integer *nn, integer *issizm, real *aash, integer *joffdt); +extern integer miocle_(integer *mp); +extern integer miosee_(integer *mp, integer *vs, integer *ve, integer *ndim); +extern integer miosei_(integer *mp, integer *param, integer *value); +extern integer mmask_(void); +extern integer mrinvt_(real *a, real *b, integer *n); +extern integer mtalle_(shortint *mtname); +extern integer mtclen_(integer *level, integer *stale, integer *out); +extern integer mtclre_(void); +extern integer mtdeae_(shortint *mtname, integer *rewine); +extern integer mtence_(shortint *outstr, integer *maxch, shortint *device, integer *fileno, integer *recno, shortint *attrl); +extern integer mtfnae_(shortint *mtname, integer *fileno, shortint *outstr, integer *maxch); +extern integer mtgets_(shortint *mtname, integer *mt); +extern integer mtglok_(shortint *mtname, shortint *lockfe, integer *maxch); +extern integer mtloce_(shortint *device, shortint *lockfe, integer *maxch); +extern integer mtpare_(shortint *mtname, shortint *device, integer *szdeve, integer *file, integer *record, shortint *attrl, integer *szattl); +extern integer mtposn_(shortint *mtname, integer *file, integer *record); +extern integer mtpute_(integer *fd, shortint *text); +extern integer mtreae_(shortint *mtname, integer *mt); +extern integer mtrewd_(shortint *mtname, integer *initce); +extern integer mtsavd_(integer *fd, shortint *keywod, integer *value); +extern integer mtsavs_(integer *mt); +extern integer mtstas_(integer *out, shortint *mtname); +extern integer mtsync_(integer *status); +extern integer mtupde_(integer *mt); +extern integer mwaxtn_(doublereal *oltm, doublereal *oltv, doublereal *nltm, doublereal *nltv, integer *pdim, doublereal *ltm, doublereal *ltv, integer *ax, integer *ndim); +extern integer mwc2td_(integer *act, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2); +extern integer mwc2tr_(integer *act, real *x1, real *y1, real *x2, real *y2); +extern integer mwcloe_(integer *mw); +extern integer mwctfe_(integer *ct); +extern integer mwctrd_(integer *act, doublereal *p1, doublereal *p2, integer *ndim); +extern integer mwctrr_(integer *act, real *p1, real *p2, integer *ndim); +extern integer mwgaxp_(integer *mw, integer *axno, integer *axval, integer *ndim); +extern integer mwgaxt_(integer *mw, integer *axbits, integer *axis, integer *naxes); +extern integer mwgltd_(integer *mw, doublereal *ltm, doublereal *ltv, integer *ndim); +extern integer mwgltr_(integer *mw, real *ltm, real *ltv, integer *ndim); +extern integer mwgsym_(integer *mw, shortint *outstr, integer *maxch); +extern integer mwgwas_(integer *mw, integer *axis, shortint *attrie, shortint *valstr, integer *maxch); +extern integer mwgwsd_(integer *mw, integer *axis, doublereal *pv, doublereal *wv, integer *npts); +extern integer mwgwsr_(integer *mw, integer *axis, real *pv, real *wv, integer *npts); +extern integer mwgwtd_(integer *mw, doublereal *r__, doublereal *w, doublereal *cd, integer *ndim); +extern integer mwgwtr_(integer *mw, real *r__, real *w, real *cd, integer *ndim); +extern integer mwinvd_(doublereal *oltm, doublereal *nltm, integer *ndim); +extern integer mwinvr_(real *oltm, real *nltm, integer *ndim); +extern integer mwload_(integer *mw, integer *bp); +extern integer mwloam_(integer *mw, integer *im); +extern integer mwltrd_(doublereal *p1, doublereal *p2, doublereal *ltm, doublereal *ltv, integer *ndim); +extern integer mwltrr_(real *p1, real *p2, real *ltm, real *ltv, integer *ndim); +extern integer mwlubb_(doublereal *a, integer *ix, doublereal *b, integer *ndim); +extern integer mwlude_(doublereal *a, integer *ix, integer *ndim); +extern integer mwmkid_(doublereal *ltm, integer *ndim); +extern integer mwmkir_(real *ltm, integer *ndim); +extern integer mwmmud_(doublereal *a, doublereal *b, doublereal *c__, integer *ndim); +extern integer mwmmur_(real *a, real *b, real *c__, integer *ndim); +extern integer mwnewm_(integer *mw, shortint *system, integer *ndim); +extern integer mwrote_(integer *mw, real *theta, real *center, integer *axbits); +extern integer mwsavm_(integer *mw, integer *im); +extern integer mwsaxp_(integer *mw, integer *axno, integer *axval, integer *ndim); +extern integer mwscae_(integer *mw, real *scale, integer *axbits); +extern integer mwsdes_(integer *mw); +extern integer mwseti_(integer *mw, integer *param, integer *value); +extern integer mwshit_(integer *mw, real *shift, integer *axbits); +extern integer mwshow_(integer *mw, integer *fd, integer *what); +extern integer mwsltd_(integer *mw, doublereal *ltm, doublereal *ltv, integer *ndim); +extern integer mwsltr_(integer *mw, real *ltm, real *ltv, integer *ndim); +extern integer mwssym_(integer *mw, shortint *system); +extern integer mwswas_(integer *mw, integer *axis, shortint *attrie, shortint *valstr); +extern integer mwswsd_(integer *mw, integer *axis, doublereal *pv, doublereal *wv, integer *npts); +extern integer mwswsr_(integer *mw, integer *axis, real *pv, real *wv, integer *npts); +extern integer mwswtd_(integer *mw, doublereal *r__, doublereal *w, doublereal *cd, integer *ndim); +extern integer mwswte_(integer *mw, integer *axis, integer *naxes, shortint *wtype, shortint *wattr); +extern integer mwswtr_(integer *mw, real *r__, real *w, real *cd, integer *ndim); +extern integer mwtrad_(integer *mw, doublereal *ltv1, doublereal *ltm, doublereal *ltv2, integer *ndim); +extern integer mwtrar_(integer *mw, real *ltv1, real *ltm, real *ltv2, integer *ndim); +extern integer mwv1td_(integer *act, doublereal *x1, doublereal *x2, integer *npts); +extern integer mwv1tr_(integer *act, real *x1, real *x2, integer *npts); +extern integer mwv2td_(integer *act, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2, integer *npts); +extern integer mwv2tr_(integer *act, real *x1, real *y1, real *x2, real *y2, integer *npts); +extern integer mwvmud_(doublereal *a, doublereal *b, doublereal *c__, integer *ndim); +extern integer mwvmur_(real *a, real *b, real *c__, integer *ndim); +extern integer mwvtrd_(integer *ct, doublereal *v1, doublereal *v2, integer *ndim, integer *npts); +extern integer mwvtrr_(integer *ct, real *v1, real *v2, integer *ndim, integer *npts); +extern integer mxmy_(integer *ix, integer *iy); +extern integer mzscae_(integer *im, integer *zpm, integer *bpm, real *contrt, integer *maxpix, real *z1, real *z2); +extern integer newpie_(shortint *param, integer *im); +extern integer newtie_(shortint *param, integer *im); +extern integer obscle_(integer *obs); +extern integer obsgsr_(integer *obs, shortint *param, shortint *str, integer *maxchr); +extern integer obsimn_(integer *obs, integer *im, shortint *obsery, integer *verboe, logical *newobs, logical *obshed); +extern integer obsino_(integer *obs, integer *fd); +extern integer obslog_(integer *obs, shortint *task, shortint *params, integer *fd); +extern integer oifacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer oifcle_(integer *im, integer *status); +extern integer oifcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer oifdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer oifgpe_(shortint *pixfie, shortint *hdrfie, shortint *path, integer *maxch); +extern integer oifmke_(integer *im, shortint *pixfie, integer *maxch); +extern integer oifopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status); +extern integer oifopx_(integer *im, integer *status); +extern integer oifree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer oiftrm_(shortint *s, integer *nchars); +extern integer oifupr_(integer *im, integer *status); +extern integer oifwrr_(integer *fd, integer *im, integer *htype); +extern integer ord1_(integer *m, real *b); +extern integer ord2_(integer *m, real *b); +extern integer osfnik_(shortint *osfn); +extern integer osfnms_(shortint *osfn, shortint *lockfe, shortint *timel1, shortint *timel2, integer *maxch); +extern integer osfnpe_(shortint *spposn, shortint *hoston, integer *maxch); +extern integer osfnrk_(shortint *osfn); +extern integer pagefe_(shortint *fname, shortint *prompt); +extern integer pagefs_(shortint *files); +extern integer pargb_(logical *bval); +extern integer pargc_(shortint *cval); +extern integer pargd_(doublereal *dval); +extern integer pargg_(doublereal *value, integer *dtype); +extern integer pargi_(integer *ival); +extern integer pargl_(integer *lval); +extern integer pargr_(real *rval); +extern integer pargs_(shortint *sval); +extern integer pargsr_(shortint *str); +extern integer pargx_(complex *xval); +extern integer patfit_(integer *delim, shortint *patstr, integer *ip, shortint *patbuf, integer *szpat, integer *op); +extern integer perim3_(integer *magr1, integer *mini1, integer *magr2, integer *mini2, integer *iwhich, real *var); +extern integer perim_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer periml_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer pggetr_(shortint *strval, integer *maxch); +extern integer pgpusd_(integer *cmd); +extern integer pgsett_(shortint *prompt, shortint *upromt, shortint *fname); +extern integer plascp_(integer *pl, integer *vs, integer *ve, integer *outfd); +extern integer plbox_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *rop); +extern integer plcire_(integer *pl, integer *x, integer *y, integer *radius, integer *rop); +extern integer plcler_(integer *pl); +extern integer plcloe_(integer *pl); +extern integer plcoms_(integer *pl); +extern integer pldebg_(integer *pl, integer *fd, integer *width, integer *what); +extern integer pldebt_(integer *fd, shortint *buf, integer *col, integer *firstl, integer *maxcol); +extern integer plfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer plfcle_(integer *im, integer *status); +extern integer plfcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer plfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer plfnul_(void); +extern integer plfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status); +extern integer plfree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer plfupr_(integer *im, integer *status); +extern integer plgete_(integer *pl, integer *v); +extern integer plglls_(integer *pl, integer *v, shortint *lldst, integer *lldeph, integer *npix, integer *rop); +extern integer plglpi_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer plglpl_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer plglps_(integer *pl, integer *v, shortint *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer plglri_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer plglrl_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer plglrs_(integer *pl, integer *v, shortint *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer plgsie_(integer *pl, integer *naxes, integer *axlen, integer *depth); +extern integer plline_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *width, integer *rop); +extern integer pllinl_(shortint *llsrc, integer *xs, integer *srcmal, shortint *lldst, integer *ds, integer *dstmal, shortint *llstn, integer *ss, shortint *llout, integer *npix, integer *rop); +extern integer pllinp_(shortint *llsrc, integer *xs, integer *srcmal, shortint *lldst, integer *ds, integer *dstmal, shortint *llout, integer *npix, integer *rop); +extern integer pllneg_(shortint *ll, integer *ld); +extern integer plload_(integer *pl, integer *bp); +extern integer plloaf_(integer *pl, shortint *mask, shortint *title, integer *maxch); +extern integer plloam_(integer *pl, shortint *imname, shortint *title, integer *maxch); +extern integer pllprs_(shortint *ll, integer *fd, shortint *label, integer *firstl, integer *maxcos); +extern integer plotif_(real *fx, real *fy, integer *ip); +extern integer plotit_(integer *ix, integer *iy, integer *ip); +extern integer plpixi_(integer *pxsrc, integer *xs, integer *srcmal, integer *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop); +extern integer plpixl_(integer *pxsrc, integer *xs, integer *srcmal, integer *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop); +extern integer plpixs_(shortint *pxsrc, integer *xs, integer *srcmal, shortint *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop); +extern integer plplls_(integer *pl, integer *v, shortint *llsrc, integer *lldeph, integer *npix, integer *rop); +extern integer plplpi_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer plplpl_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer plplps_(integer *pl, integer *v, shortint *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer plplri_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer plplrl_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer plplrs_(integer *pl, integer *v, shortint *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer plpoit_(integer *pl, integer *x, integer *y, integer *rop); +extern integer plpoln_(integer *pl, integer *x, integer *y, integer *npts, integer *rop); +extern integer plrani_(integer *rlsrc, integer *xs, integer *srcmal, integer *rldst, integer *ds, integer *dstmal, integer *rlout, integer *npix, integer *rop); +extern integer plranl_(integer *rlsrc, integer *xs, integer *srcmal, integer *rldst, integer *ds, integer *dstmal, integer *rlout, integer *npix, integer *rop); +extern integer plrans_(shortint *rlsrc, integer *xs, integer *srcmal, shortint *rldst, integer *ds, integer *dstmal, shortint *rlout, integer *npix, integer *rop); +extern integer plrcle_(integer *plr); +extern integer plregp_(integer *pl, L_fp ufcn, integer *ufd, integer *y1, integer *y2, integer *rop); +extern integer plrget_(integer *plr, integer *bufp, integer *xsize, integer *ysize, integer *xblock, integer *yblock); +extern integer plrop_(integer *plsrc, integer *vssrc, integer *pldst, integer *vsdst, integer *vn, integer *rop); +extern integer plrpri_(integer *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol); +extern integer plrprl_(integer *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol); +extern integer plrprs_(shortint *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol); +extern integer plrset_(integer *plr, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer plsavf_(integer *pl, shortint *fname, shortint *title, integer *flags); +extern integer plsavm_(integer *pl, shortint *imname, shortint *title, integer *flags); +extern integer plsete_(integer *pl, integer *v); +extern integer plseti_(integer *pl, integer *param, integer *value); +extern integer plssie_(integer *pl, integer *naxes, integer *axlen, integer *depth); +extern integer plsslv_(integer *pl, integer *vs, integer *vn, integer *v, integer *ve); +extern integer plstel_(integer *plsrc, integer *vssrc, integer *pldst, integer *vsdst, integer *plstn, integer *vsstn, integer *vn, integer *rop); +extern integer plupde_(integer *pl, integer *v, shortint *ll); +extern integer plvald_(integer *pl); +extern integer pmascp_(integer *pl, integer *vs, integer *ve, integer *outfd); +extern integer pmbox_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *rop); +extern integer pmcire_(integer *pl, integer *x, integer *y, integer *radius, integer *rop); +extern integer pmcler_(integer *pl); +extern integer pmglls_(integer *pl, integer *v, shortint *lldst, integer *lldeph, integer *npix, integer *rop); +extern integer pmglpi_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer pmglpl_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer pmglps_(integer *pl, integer *v, shortint *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer pmglri_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer pmglrl_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer pmglrs_(integer *pl, integer *v, shortint *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer pmline_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *width, integer *rop); +extern integer pmplls_(integer *pl, integer *v, shortint *llraw, integer *lldeph, integer *npix, integer *rop); +extern integer pmplpi_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer pmplpl_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer pmplps_(integer *pl, integer *v, shortint *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer pmplri_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer pmplrl_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer pmplrs_(integer *pl, integer *v, shortint *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer pmpoit_(integer *pl, integer *x, integer *y, integer *rop); +extern integer pmpoln_(integer *pl, integer *x, integer *y, integer *npts, integer *rop); +extern integer pmrcle_(integer *pmr); +extern integer pmrop_(integer *pmsrc, integer *vssrc, integer *pmdst, integer *vsdst, integer *vn, integer *rop); +extern integer pmrset_(integer *pmr, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer pmsete_(integer *pl, integer *v); +extern integer pmseti_(integer *pl, integer *param, integer *value); +extern integer pmstel_(integer *pmsrc, integer *vssrc, integer *pmdst, integer *vsdst, integer *pmstn, integer *vsstn, integer *vn, integer *rop); +extern integer point3_(real *u, real *v, real *w); +extern integer point_(real *px, real *py); +extern integer points_(real *px, real *py, integer *np, integer *ic, integer *il); +extern integer pollce_(integer *fds); +extern integer pollcr_(integer *fds, integer *fd, integer *type__); +extern integer pollpt_(integer *fds); +extern integer pollst_(integer *fds, integer *fd, integer *type__); +extern integer pollzo_(integer *fds); +extern integer prchdr_(integer *pid, shortint *newdir); +extern integer prdumn_(shortint *osfn, integer *mode, integer *chan); +extern integer preal_(shortint *tval, real *rval); +extern integer prenvt_(integer *pid, shortint *envvar, shortint *valuer); +extern integer prkill_(integer *job); +extern integer pronic_(integer *vex, integer *nexthr); +extern integer proscd_(integer *pr, shortint *cmd); +extern integer prpsit_(void); +extern integer prredr_(integer *pid, integer *stream, integer *newfd); +extern integer prseti_(integer *pid, integer *param, integer *value); +extern integer prsigl_(integer *pid, integer *signal); +extern integer prupde_(integer *pid, shortint *messae, integer *flusht); +extern integer prvret_(shortint *name__, shortint *value); +extern integer przclr_(integer *chan, integer *status); +extern integer pscenr_(integer *ps, shortint *str); +extern integer pscloe_(integer *ps); +extern integer psdept_(integer *ps, shortint *line); +extern integer psesct_(shortint *in, shortint *out, integer *maxch); +extern integer psfone_(integer *ps, integer *fontse); +extern integer psfoor_(integer *ps, shortint *ledge, shortint *center, shortint *redge); +extern integer pshear_(integer *ps, shortint *ledge, shortint *center, shortint *redge); +extern integer psindt_(integer *ps, integer *nchars); +extern integer psioxr_(integer *fd, shortint *buf, integer *nchars); +extern integer pslink_(integer *ps, integer *fillfg); +extern integer psnewe_(integer *ps); +extern integer psoutt_(integer *ps, shortint *str, integer *fillfg); +extern integer pspage_(integer *ps, integer *page); +extern integer pspagk_(integer *ps); +extern integer psrigy_(integer *ps, shortint *str); +extern integer pssets_(integer *ps, real *left, real *right, real *top, real *bottom); +extern integer pssett_(integer *ps, integer *font); +extern integer pssety_(integer *ps, integer *justiy); +extern integer psspft_(integer *ps, integer *font); +extern integer pstese_(integer *ps, integer *nlines); +extern integer pstr_(shortint *sppstg); +extern integer pstrar_(integer *ps); +extern integer pswrig_(integer *ps); +extern integer pswrtk_(integer *ps, integer *curpos, shortint *str); +extern integer psxpos_(integer *ps, integer *xpos); +extern integer psym3_(real *u, real *v, real *w, integer *ichar, real *size, integer *idir, integer *itop, integer *iup); +extern integer psypos_(integer *ps, integer *ypos); +extern integer putcc_(integer *fd, shortint *ch); +extern integer putci_(integer *fd, integer *ch); +extern integer putlie_(integer *fd, shortint *linebf); +extern integer pwrit_(real *px, real *py, char *ch, integer *nc, integer *is, integer *io, integer *ic, ftnlen ch_len); +extern integer pwrity_(real *x, real *y, char *id, integer *n, integer *isize, integer *itheta, integer *icnt, ftnlen id_len); +extern integer pwry_(real *x, real *y, integer *id, integer *n, real *size, real *theta, integer *icnt); +extern integer pwrybd_(void); +extern integer pwrygt_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwryso_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrz_(real *x, real *y, real *z__, integer *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt); +extern integer pwrzgi_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwrzgs_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwrzgt_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwrzi_(real *x, real *y, real *z__, char *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt, ftnlen id_len); +extern integer pwrzoi_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrzos_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrzot_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrzs_(real *x, real *y, real *z__, char *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt, ftnlen id_len); +extern integer pwrzt_(real *x, real *y, real *z__, char *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt, ftnlen id_len); +extern integer q8qst4_(char *name__, char *lbrary, char *entry__, char *vrsion, ftnlen name_len, ftnlen lbrary_len, ftnlen entry_len, ftnlen vrsion_len); +extern integer qmscan_(integer *qm, shortint *fname, integer *flags); +extern integer qmscao_(integer *qm, integer *fd, integer *flags); +extern integer qmsetm_(integer *qm, shortint *param, shortint *valstr); +extern integer qmsets_(integer *qm, integer *qp); +extern integer qmupds_(integer *qm, integer *qp); +extern integer qpaddb_(integer *qp, shortint *param, logical *value, shortint *commet); +extern integer qpaddc_(integer *qp, shortint *param, shortint *value, shortint *commet); +extern integer qpaddd_(integer *qp, shortint *param, doublereal *value, shortint *commet); +extern integer qpaddf_(integer *qp, shortint *param, shortint *datate, integer *maxelm, shortint *commet, integer *flags); +extern integer qpaddi_(integer *qp, shortint *param, integer *value, shortint *commet); +extern integer qpaddl_(integer *qp, shortint *param, integer *value, shortint *commet); +extern integer qpaddr_(integer *qp, shortint *param, real *value, shortint *commet); +extern integer qpadds_(integer *qp, shortint *param, shortint *value, shortint *commet); +extern integer qpaddx_(integer *qp, shortint *param, complex *value, shortint *commet); +extern integer qpastr_(integer *qp, shortint *param, shortint *value, shortint *commet); +extern integer qpbind_(integer *qp); +extern integer qpcfnl_(integer *fl); +extern integer qpcloe_(integer *qp); +extern integer qpclot_(integer *gt); +extern integer qpcopf_(integer *oqp, shortint *oparam, integer *nqp, shortint *nparam); +extern integer qpcopy_(shortint *opoefe, shortint *npoefe); +extern integer qpdele_(shortint *poefie); +extern integer qpdelf_(integer *qp, shortint *param); +extern integer qpdsym_(integer *qp, integer *out); +extern integer qpexce_(integer *ex); +extern integer qpexde_(integer *ex, integer *etlast, integer *offset, integer *dtype); +extern integer qpexdg_(integer *ex, integer *out, integer *what); +extern integer qpexfe_(integer *ex, integer *pbsave, integer *dbsave); +extern integer qpexmk_(integer *ex, integer *pbsave, integer *dbsave); +extern integer qpexpn_(integer *ex, integer *opcode, integer *arg1, integer *arg2, integer *arg3); +extern integer qpfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer qpfcle_(integer *im, integer *status); +extern integer qpfcos_(integer *im, integer *qp); +extern integer qpfcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer qpfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer qpflur_(integer *qp); +extern integer qpfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status); +extern integer qpfopx_(integer *im, integer *status); +extern integer qpfree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer qpfupr_(integer *im, integer *status); +extern integer qpfwar_(integer *qpf, integer *im); +extern integer qpfwfr_(integer *qpf, integer *im); +extern integer qpfzcl_(integer *chan, integer *status); +extern integer qpfzop_(shortint *pkfn, integer *mode, integer *status); +extern integer qpfzrd_(integer *chan, shortint *obuf, integer *nbytes, integer *boffst); +extern integer qpfzst_(integer *chan, integer *param, integer *value); +extern integer qpfzwr_(integer *chan, shortint *ibuf, integer *nbytes, integer *boffst); +extern integer qpfzwt_(integer *chan, integer *status); +extern integer qpinht_(integer *nqp, integer *oqp, integer *out); +extern integer qpioce_(integer *io); +extern integer qpiolk_(integer *io, shortint *mask, integer *merge); +extern integer qpiomx_(integer *io, shortint *key); +extern integer qpiops_(integer *io, integer *iev, integer *nevens); +extern integer qpiosc_(integer *io); +extern integer qpiose_(integer *io, integer *vs, integer *ve, integer *ndim); +extern integer qpiosi_(integer *io, integer *param, integer *value); +extern integer qpiosr_(integer *io, shortint *expr); +extern integer qpiour_(integer *io, integer *param, real *value); +extern integer qpiowt_(integer *io, integer *evi); +extern integer qpmkfe_(shortint *poefie, shortint *extn, shortint *fname, integer *maxch); +extern integer qppare_(shortint *qpspec, shortint *root, integer *szroot, shortint *filter, integer *szfilr); +extern integer qppcle_(integer *fd); +extern integer qppstr_(integer *qp, shortint *param, shortint *strval); +extern integer qpputb_(integer *qp, shortint *param, logical *value); +extern integer qpputc_(integer *qp, shortint *param, shortint *value); +extern integer qpputd_(integer *qp, shortint *param, doublereal *value); +extern integer qpputi_(integer *qp, shortint *param, integer *value); +extern integer qpputl_(integer *qp, shortint *param, integer *value); +extern integer qpputr_(integer *qp, shortint *param, real *value); +extern integer qpputs_(integer *qp, shortint *param, shortint *value); +extern integer qpputx_(integer *qp, shortint *param, complex *value); +extern integer qprebd_(shortint *poefie); +extern integer qprene_(shortint *opoefe, shortint *npoefe); +extern integer qprenf_(integer *qp, shortint *param, shortint *newnae); +extern integer qpsavs_(integer *qp, integer *mw); +extern integer qpseel_(integer *fl, integer *pos); +extern integer qpseti_(integer *qp, integer *param, integer *value); +extern integer qpsetr_(integer *qp, integer *param, real *value); +extern integer qpsync_(integer *qp); +extern integer qpungk_(integer *gt, shortint *tokbuf); +extern integer qpwrie_(integer *qp, shortint *param, shortint *buf, integer *nelem, integer *first, shortint *datate); +extern integer r2tr_(integer *int__, real *b0, real *b1); +extern integer r2tx_(integer *nthpo, real *cr0, real *cr1, real *ci0, real *ci1); +extern integer r4syn_(integer *int__, real *b0, real *b1, real *b2, real *b3); +extern integer r4tr_(integer *int__, real *b0, real *b1, real *b2, real *b3); +extern integer r4tx_(integer *nthpo, real *cr0, real *cr1, real *cr2, real *cr3, real *ci0, real *ci1, real *ci2, real *ci3); +extern integer r8syn_(integer *int__, integer *nn, real *br0, real *br1, real *br2, real *br3, real *br4, real *br5, real *br6, real *br7, real *bi0, real *bi1, real *bi2, real *bi3, real *bi4, real *bi5, real *bi6, real *bi7); +extern integer r8tr_(integer *int__, integer *nn, real *br0, real *br1, real *br2, real *br3, real *br4, real *br5, real *br6, real *br7, real *bi0, real *bi1, real *bi2, real *bi3, real *bi4, real *bi5, real *bi6, real *bi7); +extern integer r8tx_(integer *nxtlt, integer *nthpo, integer *lengt, real *cr0, real *cr1, real *cr2, real *cr3, real *cr4, real *cr5, real *cr6, real *cr7, real *ci0, real *ci1, real *ci2, real *ci3, real *ci4, real *ci5, real *ci6, real *ci7); +extern integer realft_(real *data, integer *n, integer *isign); +extern integer reord_(real *cl, integer *ncl, real *c1, integer *mark, integer *nmg); +extern integer reset_(void); +extern integer resetn_(void); +extern integer retsr_(integer *irold); +extern integer rgadd_(integer *rg, shortint *rstr, integer *rmin, integer *rmax); +extern integer rgbind_(integer *rg, integer *nbin, doublereal *in, integer *nin, doublereal *out, integer *nout); +extern integer rgbinr_(integer *rg, integer *nbin, real *in, integer *nin, real *out, integer *nout); +extern integer rgdump_(integer *rg); +extern integer rgexcd_(integer *rg, doublereal *a, integer *nin, doublereal *b, integer *nout); +extern integer rgexcr_(integer *rg, real *a, integer *nin, real *b, integer *nout); +extern integer rgfree_(integer *rg); +extern integer rggxmd_(integer *gp, shortint *rstr, doublereal *x, integer *npts, integer *pltype); +extern integer rggxmr_(integer *gp, shortint *rstr, real *x, integer *npts, integer *pltype); +extern integer rginds_(integer *rg, integer *indics, integer *npts, integer *type__); +extern integer rginve_(integer *rg, integer *rmin, integer *rmax); +extern integer rgmere_(integer *rg); +extern integer rgordr_(integer *rg); +extern integer rgpacd_(integer *rg, doublereal *a, doublereal *b); +extern integer rgpacr_(integer *rg, real *a, real *b); +extern integer rgunpd_(integer *rg, doublereal *packed, doublereal *unpacd); +extern integer rgunpr_(integer *rg, real *packed, real *unpacd); +extern integer rgwtbd_(integer *rg, integer *nbin, doublereal *in, doublereal *wtin, integer *nin, doublereal *out, doublereal *wtout, integer *nout); +extern integer rgwtbr_(integer *rg, integer *nbin, real *in, real *wtin, integer *nin, real *out, real *wtout, integer *nout); +extern integer rgxadd_(integer *rg, shortint *rstr, doublereal *rvals, integer *npts); +extern integer rgxadr_(integer *rg, shortint *rstr, real *rvals, integer *npts); +extern integer rmcloe_(integer *rm); +extern integer rmdodi_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rmdoui_(shortint *leaf, shortint *box, shortint *nrnew, shortint *outnet, real *in, real *window, shortint *outlit, shortint *nrlist); +extern integer rmdowf_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rmdump_(integer *rm, logical *unsord, logical *sorted, logical *in, logical *out); +extern integer rmpack_(integer *rm, integer *datast); +extern integer rmscle_(integer *rm); +extern integer rmsdup_(integer *rm, logical *unsord, logical *sorted, logical *in, logical *out); +extern integer rmsifp_(shortint *l, shortint *r__, real *window, shortint *outlit, shortint *nrlist); +extern integer rmswap_(shortint *l, shortint *r__, real *window, shortint *outlit, shortint *nrlist); +extern integer rmtcle_(integer *rm); +extern integer rmtdup_(integer *rm, logical *unsord, logical *sorted, logical *in, logical *out); +extern integer rmtort_(shortint *leaf, shortint *box, shortint *nrnew, shortint *outnet, real *in, real *window, shortint *outlit, shortint *nrlist); +extern integer rmunpk_(integer *rm, integer *datast); +extern integer rmuodi_(shortint *leaf, shortint *box, shortint *nrnew, shortint *outnet, real *in, real *window, shortint *outlit, shortint *nrlist); +extern integer rmuoui_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rmuptf_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rngadd_(integer *rg, shortint *rstr, real *r1, real *r2, real *dr); +extern integer rngcle_(integer *rg); +extern integer rngerr_(integer *errnum, shortint *rstr, real *r1, real *r2, real *dr, integer *rg); +extern integer salloc_(integer *outpur, integer *nelem, integer *datate); +extern integer sbytes_(integer *bufout, integer *bufin, integer *index, integer *size, integer *skip, integer *count); +extern integer scanc_(shortint *cval); +extern integer set3_(real *xa, real *xb, real *ya, real *yb, real *ulo, real *uhi, real *vlo, real *vhi, real *wlo, real *whi, real *eye); +extern integer set3d_(real *eye, real *ulo, real *uhi, real *vlo, real *vhi, real *wlo, real *whi); +extern integer set_(real *vl, real *vr, real *vb, real *vt, real *wl, real *wr, real *wb, real *wt, integer *lf); +extern integer seter_(char *messg, integer *nerr, integer *iopt, ftnlen messg_len); +extern integer setfp_(integer *im, integer *fp); +extern integer seti_(integer *ix, integer *iy); +extern integer setr_(real *xmin, real *xmax, real *ymin, real *ymax, real *zmin, real *zmax, real *r0); +extern integer setusv_(char *vn, integer *iv, ftnlen vn_len); +extern integer sfree_(integer *oldsp); +extern integer sgchdw_(integer *mx, integer *my); +extern integer sgchfh_(void); +extern integer sgchme_(integer *mx, integer *my); +extern integer sgeprf_(integer *number, shortint *memory, integer *iop, integer *top, shortint *progrm, integer *pc); +extern integer sgespc_(integer *tr, integer *gki, integer *fn, shortint *instrn, integer *bp, integer *buftop, integer *deletn); +extern integer sgewsn_(integer *fn, shortint *instrn, real *x1, real *y1, real *x2, real *y2); +extern integer sgfpor_(integer *fd); +extern integer sgfttr_(integer *fd, shortint *buf, integer *maxch, integer *status); +extern integer sgibcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgical_(integer *dummy); +extern integer sgicle_(void); +extern integer sgiclr_(integer *dummy); +extern integer sgicls_(shortint *devnae, integer *n); +extern integer sgicor_(integer *index); +extern integer sgidae_(integer *gout, shortint *p, integer *npts, integer *ltype); +extern integer sgiese_(integer *fn, shortint *instrn, integer *nwords); +extern integer sgifat_(shortint *gki); +extern integer sgifia_(shortint *p, integer *npts); +extern integer sgiflh_(integer *dummy); +extern integer sgifot_(integer *font); +extern integer sgigey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer sgiint_(integer *tty, shortint *devnae); +extern integer sgilie_(integer *index); +extern integer sgimcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgiopn_(shortint *devnae, integer *dd); +extern integer sgiops_(shortint *devnae, integer *n, integer *mode); +extern integer sgiplt_(shortint *gki); +extern integer sgipmt_(shortint *gki); +extern integer sgipoe_(shortint *p, integer *npts); +extern integer sgipor_(shortint *p, integer *npts); +extern integer sgipuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgiret_(void); +extern integer sgitet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer sgitxt_(shortint *gki); +extern integer sgkcle_(integer *fd); +extern integer sgkdrw_(integer *fd, integer *ax, integer *ay); +extern integer sgkflh_(integer *fd); +extern integer sgkfre_(integer *fd); +extern integer sgklih_(integer *fd, integer *width); +extern integer sgkmke_(shortint *root, integer *num, shortint *outstr, integer *maxch); +extern integer sgkmoe_(integer *fd, integer *x, integer *y); +extern integer sgkver_(integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgmgeg_(shortint *gim); +extern integer sgmiod_(shortint *gim); +extern integer sgmioe_(shortint *gim); +extern integer sgmout_(shortint *cap, shortint *gim, integer *nargs); +extern integer sgmqur_(shortint *gim); +extern integer sgmquy_(shortint *queryp, shortint *gim, integer *nargs, shortint *retvap, shortint *retval, integer *nout); +extern integer sgmrep_(shortint *gim); +extern integer sgmres_(shortint *gim); +extern integer sgmwie_(integer *width, integer *height); +extern integer sgmwrp_(shortint *gim); +extern integer sgmwrs_(shortint *gim); +extern integer simaxi_(integer *a, integer *na, real *x, integer *b, integer *nb); +extern integer simaxr_(real *a, integer *na, real *x, real *b, integer *nb); +extern integer simaxs_(shortint *a, integer *na, real *x, shortint *b, integer *nb); +extern integer sisami_(integer *a, integer *b, real *x, integer *npix); +extern integer sisamr_(real *a, real *b, real *x, integer *npix); +extern integer sisams_(shortint *a, shortint *b, real *x, integer *npix); +extern integer skcloe_(integer *coo); +extern integer skctym_(integer *coo, integer *im); +extern integer skenws_(integer *coo, shortint *wcsstr, integer *maxch); +extern integer skequl_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *ipmlng, doublereal *ipmlat, doublereal *px, doublereal *rv, doublereal *olng, doublereal *olat); +extern integer skiipt_(shortint *label, shortint *images, integer *mw, integer *coo); +extern integer skiiwe_(integer *fd, shortint *label, shortint *images, integer *mw, integer *coo); +extern integer skimpt_(shortint *label, shortint *images, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *ptype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skimwe_(integer *fd, shortint *label, shortint *images, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *ptype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skinpt_(shortint *label, shortint *system, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skinwe_(integer *fd, shortint *label, shortint *system, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer sklltn_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *ipmlng, doublereal *ipmlat, doublereal *px, doublereal *rv, doublereal *olng, doublereal *olat); +extern integer sksavm_(integer *coo, integer *mw, integer *im); +extern integer sksetd_(integer *coo, integer *param, doublereal *value); +extern integer skseti_(integer *coo, integer *param, integer *value); +extern integer sksets_(integer *coo, integer *param, shortint *value); +extern integer skstas_(integer *coo, integer *param, shortint *value, integer *maxch); +extern integer skultn_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *olng, doublereal *olat, integer *npts); +extern integer smark_(integer *oldsp); +extern integer sprinf_(shortint *outstr, integer *maxch, shortint *formag); +extern integer srfabd_(void); +extern integer srface_(real *x, real *y, real *z__, integer *m, integer *mx, integer *nx, integer *ny, real *s, real *stereo); +extern integer srfgk_(real *x, real *y, real *z__, integer *m, integer *mx, integer *nx, integer *ny, real *s, real *stereo); +extern integer srftet_(void); +extern integer sscan_(shortint *str); +extern integer stcloe_(integer *stp); +extern integer stcntr_(real *z__, integer *l, integer *m, integer *n, real *conv); +extern integer stfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer stfadr_(integer *im, shortint *pname, integer *dtype, integer *plen, shortint *pval, integer *pno); +extern integer stfcle_(integer *im, integer *status); +extern integer stfcos_(integer *stf, integer *spool, integer *gpb, integer *user); +extern integer stfcoy_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer stfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer stfgeb_(shortint *card, integer *bval); +extern integer stfgei_(shortint *card, integer *ival); +extern integer stfgen_(integer *im, integer *oim, integer *acmode, shortint *outstr, integer *maxch); +extern integer stfges_(shortint *card, shortint *outstr, integer *maxch); +extern integer stfget_(shortint *card, shortint *commet, integer *maxch); +extern integer stfins_(integer *im); +extern integer stfmeb_(integer *nim, integer *oim); +extern integer stfmke_(shortint *hdrrot, shortint *hdrexn, shortint *pixfne, integer *maxch); +extern integer stfnee_(integer *im); +extern integer stfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *grarg, integer *gcarg, integer *acmode, integer *status); +extern integer stfopx_(integer *im, integer *status); +extern integer stforb_(integer *ostf, integer *nstf); +extern integer stfrdr_(integer *im, integer *group, integer *acmode); +extern integer stfree_(integer *stp, integer *marker); +extern integer stfrek_(integer *im); +extern integer stfrfr_(integer *im, integer *fits, integer *fitsln); +extern integer stfrgb_(integer *im, integer *group, integer *acmode, real *datamn, real *datamx); +extern integer stfrne_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer stfupr_(integer *im, integer *status); +extern integer stfwfr_(integer *im); +extern integer stfwgb_(integer *im, integer *group, real *datamn, real *datamx); +extern integer stgcal_(integer *dummy); +extern integer stgcle_(void); +extern integer stgclr_(integer *dummy); +extern integer stgcls_(shortint *devnae, integer *n); +extern integer stgct1_(shortint *cap, integer *arg1); +extern integer stgct2_(shortint *cap, integer *arg1, integer *arg2); +extern integer stgct3_(shortint *cap, integer *arg1, integer *arg2, integer *arg3); +extern integer stgctl_(shortint *cap); +extern integer stgdes_(integer *flags); +extern integer stgdrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font); +extern integer stgdrw_(integer *x, integer *y); +extern integer stgese_(integer *fn, shortint *instrn, integer *nwords); +extern integer stgfat_(shortint *gki); +extern integer stgfia_(shortint *p, integer *npts); +extern integer stgflh_(integer *dummy); +extern integer stggdb_(void); +extern integer stggeb_(void); +extern integer stgger_(integer *cursor); +extern integer stggey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer stggrm_(integer *stream); +extern integer stgint_(integer *tty, shortint *devnae); +extern integer stglor_(integer *newcur); +extern integer stgmoe_(integer *x, integer *y); +extern integer stgonr_(integer *errcoe); +extern integer stgont_(integer *vex, integer *nexthr); +extern integer stgopn_(shortint *devnae, integer *dd, integer *in, integer *out, integer *xres, integer *yres, integer *hardcr); +extern integer stgops_(shortint *devnae, integer *n, integer *mode); +extern integer stgou2_(integer *fd, shortint *progrm, integer *arg1, integer *arg2); +extern integer stgour_(shortint *cap, shortint *strval); +extern integer stgplt_(shortint *gki); +extern integer stgpmt_(shortint *gki); +extern integer stgpoe_(shortint *p, integer *npts); +extern integer stgpor_(shortint *p, integer *npts); +extern integer stgpue_(integer *fd, shortint *text); +extern integer stgpuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer stgrdr_(integer *tty, integer *cursor, integer *outpuc, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer stgren_(integer *xres, integer *yres); +extern integer stgrer_(integer *cursor, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer stgres_(integer *flags); +extern integer stgret_(void); +extern integer stgser_(integer *x, integer *y, integer *cursor); +extern integer stgtet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer stgtxt_(shortint *gki); +extern integer stgtxy_(integer *qualiy); +extern integer stgunn_(shortint *gki); +extern integer stgwry_(integer *fd, shortint *text, integer *nchars); +extern integer stinfo_(integer *stp, integer *fd, integer *verboe); +extern integer stkmkg_(integer *curseg, integer *sp, integer *segmee); +extern integer stline_(real *z__, integer *ll, integer *mm, integer *nn, real *conv); +extern integer stmark_(integer *stp, integer *marker); +extern integer strcle_(integer *fd); +extern integer strdeb_(shortint *line, shortint *outlie, integer *maxch, integer *tabsie); +extern integer strenb_(shortint *line, shortint *outlie, integer *maxch, integer *tabsie); +extern integer strlwr_(shortint *a); +extern integer strmln_(real *u, real *v, real *work, integer *imax, integer *iptsx, integer *jptsy, integer *nset, integer *ier); +extern integer strsee_(integer *fd, integer *mode); +extern integer strsrt_(integer *x, shortint *sb, integer *nstr); +extern integer strtbl_(integer *fd, shortint *buf, integer *strp, integer *nstr, integer *firstl, integer *lastcl, integer *maxch, integer *ncol); +extern integer strupr_(shortint *str); +extern integer stsave_(integer *stp, integer *fd); +extern integer stsque_(integer *stp); +extern integer sttyco_(shortint *args, integer *ttin, integer *ttout, integer *outfd); +extern integer sttyet_(shortint *envvar, shortint *value); +extern integer sttynm_(integer *ttin, integer *ttout, shortint *termil); +extern integer sttyse_(integer *ttin, integer *ttout, integer *tty); +extern integer sttysm_(integer *ttin, integer *ttout, integer *fd, integer *all); +extern integer sttytt_(integer *ttin, integer *ttout, shortint *termil); +extern integer stxchs_(integer *tx, integer *ch, integer *cw, integer *hwsz, logical *hard, integer *orien); +extern integer syserr_(integer *errcoe); +extern integer sysers_(integer *errcoe, shortint *usersg); +extern integer sysges_(shortint *fname); +extern integer sysgsg_(shortint *args, integer *ip, shortint *outstr, integer *maxch); +extern integer sysid_(shortint *outstr, integer *maxch); +extern integer sysmte_(integer *savete); +extern integer syspac_(integer *errcoe, shortint *errmsg); +extern integer syspat_(shortint *args, integer *ip, logical *skip); +extern integer syspte_(integer *fd, shortint *opstr, integer *savete); +extern integer sysret_(shortint *args, integer *ip); +extern integer syssct_(integer *cmdin, shortint *iargs); +extern integer tautog_(integer *ierror); +extern integer tautoh_(void); +extern integer tcnqck_(integer *ierror); +extern integer tcnsmt_(integer *ierror); +extern integer tcnsup_(integer *ierror); +extern integer tconan_(integer *ierror); +extern integer tconaq_(integer *ierror); +extern integer tconas_(integer *ierror); +extern integer tconrc_(void); +extern integer tconre_(integer *nplot, integer *ierror); +extern integer tconrn_(void); +extern integer tconrq_(void); +extern integer tconrs_(void); +extern integer tdashc_(integer *ierror); +extern integer tdashh_(void); +extern integer tdashl_(integer *ierror); +extern integer tdashp_(integer *ierror); +extern integer tdashr_(void); +extern integer tdashs_(integer *ierror); +extern integer thaftn_(void); +extern integer thafto_(integer *ierror); +extern integer threbd_(void); +extern integer tick3_(integer *mag, integer *min__); +extern integer tick43_(integer *magu, integer *minu, integer *magv, integer *minv, integer *magw, integer *minw); +extern integer tick4_(integer *lmajx, integer *lminx, integer *lmajy, integer *lminy); +extern integer ticks_(integer *lmaj, integer *lmin); +extern integer tirafs_(void); +extern integer tisohr_(integer *ierror); +extern integer tisosf_(void); +extern integer tisosr_(integer *nplot, integer *ierror); +extern integer toldao_(void); +extern integer tprzs_(void); +extern integer tpwriy_(void); +extern integer tpwry_(integer *ierror); +extern integer tpwrzi_(integer *ierror); +extern integer tpwrzs_(integer *ierror); +extern integer tpwrzt_(integer *ierror); +extern integer tr32_(real *x, real *y, integer *mx, integer *my); +extern integer trn32i_(real *u, real *v, real *w, real *xt, real *yt, real *zt, integer *ient); +extern integer trn32s_(real *x, real *y, real *z__, real *xt, real *yt, real *zt, integer *iflag); +extern integer trn32t_(real *u, real *v, real *w, real *xt, real *yt, real *zt, integer *ient); +extern integer tsleep_(integer *secons); +extern integer tsrfac_(integer *nplot, integer *ierror); +extern integer tsrftt_(void); +extern integer tst3d2_(void); +extern integer tstrml_(integer *ierror); +extern integer tstrmn_(void); +extern integer tsurfe_(void); +extern integer tthre2_(void); +extern integer tthred_(void); +extern integer tthree_(integer *ierror); +extern integer ttseti_(integer *fd, integer *param, integer *value); +extern integer ttsets_(integer *fd, integer *param, shortint *svalue); +extern integer ttybre_(integer *fd, integer *tty, integer *ostrie, integer *op, integer *sotype, logical *soseen); +extern integer ttycds_(integer *tty); +extern integer ttycle_(integer *tty); +extern integer ttycln_(integer *fd, integer *tty); +extern integer ttyclr_(integer *fd, integer *tty); +extern integer ttydee_(shortint *device, shortint *ldevie, integer *maxch); +extern integer ttydey_(integer *fd, integer *tty, integer *delay); +extern integer ttyfey_(integer *fd, shortint *device, integer *tty); +extern integer ttygoo_(integer *fd, integer *tty, integer *col, integer *line); +extern integer ttygpe_(integer *fd, integer *tty, shortint *text, integer *mapcc); +extern integer ttygse_(integer *in, integer *out, integer *tty, integer *width, integer *height); +extern integer ttyins_(integer *tty, integer *tcapce, integer *tcapix, integer *ncaps); +extern integer ttyint_(integer *fd, integer *tty); +extern integer ttypue_(integer *fd, integer *tty, shortint *text, integer *mapcc); +extern integer ttypus_(integer *fd, integer *tty, shortint *ctrlsr, integer *afflnt); +extern integer ttysce_(integer *tty, shortint *termce, shortint *devnae); +extern integer ttysei_(integer *tty, integer *paramr, integer *value); +extern integer ttyso_(integer *fd, integer *tty, integer *onflag); +extern integer ttywre_(integer *fd, integer *tty, shortint *ctrlsr, integer *nchars, integer *afflnt); +extern integer tvelvc_(integer *nplot, integer *ierror); +extern integer tvelvt_(void); +extern integer twofft_(real *data1, real *data2, real *fft1, real *fft2, integer *n); +extern integer uerrbd_(void); +extern integer uliber_(integer *errcode, char *pkerrmsg, integer *msglen, ftnlen pkerrmsg_len); +extern integer ungete_(integer *fd, shortint *str); +extern integer ungeti_(integer *fd, integer *ch); +extern integer unread_(integer *fd, shortint *buf, integer *nchars); +extern integer utilbd_(void); +extern integer vect3_(real *u, real *v, real *w); +extern integer vectd_(real *x, real *y); +extern integer vector_(real *px, real *py); +extern integer veldat_(void); +extern integer velvct_(real *u, integer *lu, real *v, integer *lv, integer *m, integer *n, real *flo, real *hi, integer *nset, integer *length, integer *ispv, real *spv); +extern integer velvec_(real *u, integer *lu, real *v, integer *lv, integer *m, integer *n, real *flo, real *hi, integer *nset, integer *ispv, real *spv); +extern integer vfncle_(integer *vfd, integer *update); +extern integer vfnene_(shortint *vfn, integer *ip, shortint *root, integer *lenrot, shortint *extn, integer *lenexn); +extern integer vfnexr_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer vfnman_(shortint *irafen, shortint *osextn, integer *maxch); +extern integer vfnsqe_(shortint *root, shortint *outstr, integer *maxch); +extern integer vfntre_(shortint *rawvfn, shortint *osdir, integer *lenosr, shortint *root, integer *lenrot, shortint *extn, integer *lenexn); +extern integer vfnunn_(shortint *osextn, shortint *irafen, integer *maxch); +extern integer vmallc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer vvfnee_(integer *ch, shortint *outbuf, integer *op, integer *maxch); +extern integer vvfnip_(shortint *map, shortint *iraf, shortint *os, integer *nextn, integer *maxexn); +extern integer vvfnis_(shortint *ex, shortint *extn, integer *maxexn, integer *nextn); +extern integer vvfnre_(integer *vfd); +extern integer wcslab_(integer *mw, real *logx1, real *logx2, real *logy1, real *logy2, integer *gp, shortint *title); +extern integer wfaitd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfaitt_(integer *fc, integer *dir); +extern integer wfaitv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfarcd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfarct_(integer *fc, integer *dir); +extern integer wfarcv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfcard_(integer *fc, doublereal *p, doublereal *w); +extern integer wfcart_(integer *fc, integer *dir); +extern integer wfcarv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfcscd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfcsct_(integer *fc, integer *dir); +extern integer wfcscv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfdecs_(integer *fc, integer *ira, integer *idec); +extern integer wffnld_(shortint *name__, integer *flags, integer *init, integer *destry, integer *fwd, integer *inv); +extern integer wfglsd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfglst_(integer *fc, integer *dir); +extern integer wfglsv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfgsbb_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis); +extern integer wfgsbg_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis); +extern integer wfgsbl_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis); +extern integer wfgsce_(integer *sf); +extern integer wfgscf_(integer *sf, doublereal *coeff, integer *ncoeff); +extern integer wfgsre_(integer *sf, doublereal *fit); +extern integer wfinit_(void); +extern integer wfmerd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfmert_(integer *fc, integer *dir); +extern integer wfmerv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfmold_(integer *fc, doublereal *p, doublereal *w); +extern integer wfmolt_(integer *fc, integer *dir); +extern integer wfmolv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfmspd_(integer *fc, doublereal *in, doublereal *out); +extern integer wfmspf_(shortint *atval, integer *coeff, doublereal *xmin, doublereal *xmax); +extern integer wfmspt_(integer *fc, integer *dir); +extern integer wfmspv_(integer *fc, doublereal *in, doublereal *out); +extern integer wfmspy_(integer *fc); +extern integer wfpard_(integer *fc, doublereal *p, doublereal *w); +extern integer wfpart_(integer *fc, integer *dir); +extern integer wfparv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfpcod_(integer *fc, doublereal *p, doublereal *w); +extern integer wfpcot_(integer *fc, integer *dir); +extern integer wfpcov_(integer *fc, doublereal *w, doublereal *p); +extern integer wfqscd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfqsct_(integer *fc, integer *dir); +extern integer wfqscv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfsind_(integer *fc, doublereal *p, doublereal *w); +extern integer wfsint_(integer *fc, integer *dir); +extern integer wfsinv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfsmpn_(integer *fc, doublereal *ax, doublereal *ay); +extern integer wfsmpt_(integer *fc, integer *dir); +extern integer wfstgd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfstgt_(integer *fc, integer *dir); +extern integer wfstgv_(integer *fc, doublereal *w, doublereal *p); +extern integer wftand_(integer *fc, doublereal *p, doublereal *w); +extern integer wftant_(integer *fc, integer *dir); +extern integer wftanv_(integer *fc, doublereal *w, doublereal *p); +extern integer wftnxd_(integer *fc, doublereal *p, doublereal *w); +extern integer wftnxt_(integer *fc, integer *dir); +extern integer wftnxv_(integer *fc, doublereal *w, doublereal *p); +extern integer wftnxy_(integer *fc); +extern integer wftscd_(integer *fc, doublereal *p, doublereal *w); +extern integer wftsct_(integer *fc, integer *dir); +extern integer wftscv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzead_(integer *fc, doublereal *p, doublereal *w); +extern integer wfzeat_(integer *fc, integer *dir); +extern integer wfzeav_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzpnd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfzpnt_(integer *fc, integer *dir); +extern integer wfzpnv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzpny_(integer *fc); +extern integer wfzpxd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfzpxt_(integer *fc, integer *dir); +extern integer wfzpxv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzpxy_(integer *fc); +extern integer wlaxie_(doublereal *x0, doublereal *y0, doublereal *x1, doublereal *y1, doublereal *screey, doublereal *nx, doublereal *ny); +extern integer wlcons_(doublereal *screey, doublereal *x, doublereal *y, integer *vectoe); +extern integer wldece_(integer *mw, shortint *input, integer *axno); +extern integer wldesy_(integer *wd); +extern integer wldete_(integer *systee, doublereal *polepn, doublereal *screey, integer *graphe); +extern integer wldms_(doublereal *arcrad, shortint *dms, shortint *units, integer *maxch, integer *precin, logical *all); +extern integer wlgend_(doublereal *minimm, doublereal *maximm, doublereal *range, doublereal *lbegin, doublereal *lend, doublereal *interl); +extern integer wlgete_(integer *mw, integer *systee, doublereal *logicr, doublereal *worldr, integer *flip); +extern integer wlgetf_(doublereal *val1, doublereal *val2, doublereal *min__, doublereal *max__, doublereal *diff, logical *wrap); +extern integer wlgetn_(integer *lwct, integer *flip, doublereal *polepn, doublereal *screey, doublereal *poleln, integer *badlae); +extern integer wlgra1_(integer *wd, doublereal *x, doublereal *ymin, doublereal *ymax, integer *gridon, integer *label, real *tickse); +extern integer wlgra2_(integer *wd, doublereal *y, doublereal *xmin, doublereal *xmax, integer *gridon, integer *label, real *tickse); +extern integer wlgras_(integer *wd); +extern integer wlgrid_(integer *wd); +extern integer wlgris_(integer *wd); +extern integer wlgrrs_(integer *wd); +extern integer wlhms_(doublereal *rarad, shortint *hms, shortint *units, integer *maxch, integer *precin, logical *all); +extern integer wlimdt_(integer *frame, integer *im, real *c1, real *c2, real *l1, real *l2, real *vl, real *vr, real *vb, real *vt); +extern integer wlintg_(doublereal *value, integer *systee, integer *whichs, shortint *output); +extern integer wll2wd_(integer *lwct, integer *flip, doublereal *lx, doublereal *ly, doublereal *wx, doublereal *wy, integer *npts); +extern integer wllabe_(shortint *input, logical *flag__); +extern integer wllabl_(integer *wd); +extern integer wllabs_(integer *wd, integer *axis, integer *side, real *offset); +extern integer wlmapt_(integer *gp, real *c1, real *c2, real *l1, real *l2, real *ux1, real *ux2, real *uy1, real *uy2, logical *fill); +extern integer wlmark_(integer *gp, integer *wcs, real *tickse, integer *in, doublereal *x0, doublereal *y0, doublereal *x1, doublereal *y1, doublereal *sx, doublereal *sy, doublereal *tickx, doublereal *ticky); +extern integer wlpoil_(integer *wd, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2, integer *axis, doublereal *axisve, integer *gridon, integer *label, real *tickse); +extern integer wlpoll_(integer *wd); +extern integer wlpoln_(integer *wlct, integer *flip, doublereal *longie, logical *north, integer *systee, doublereal *polepn); +extern integer wlputs_(logical *sidefs, shortint *output, integer *maxlen); +extern integer wlrare_(doublereal *ra, integer *nvalus, doublereal *min__, doublereal *max__, doublereal *diff); +extern integer wlrote_(real *x, real *y, integer *npts, real *angle, real *nx, real *ny); +extern integer wlroua_(doublereal *longmn, doublereal *longmx, doublereal *longrn, integer *numtry, doublereal *minimm, doublereal *maximm, doublereal *majorl); +extern integer wlrouc_(doublereal *latmin, doublereal *latmax, doublereal *latran, integer *numtry, doublereal *minimm, doublereal *maximm, doublereal *majorl); +extern integer wlrous_(integer *wd, integer *axis, doublereal *minimm, doublereal *maximm, doublereal *range); +extern integer wlsetp_(integer *wd); +extern integer wlsidg_(integer *side, shortint *output, integer *maxlen); +extern integer wlskya_(integer *wd, doublereal *ax1ary, integer *npoins, doublereal *polepn, logical *north, doublereal *ax1min, doublereal *ax1max, doublereal *ax1ran, doublereal *ax2min, doublereal *ax2max, doublereal *ax2ran); +extern integer wltite_(integer *gp, shortint *title, integer *side, real *size, real *viewpt); +extern integer wlw2ld_(integer *wlct, integer *flip, doublereal *wx, doublereal *wy, doublereal *lx, doublereal *ly, integer *npts); +extern integer wlwcsb_(integer *wd); +extern integer wlwcss_(integer *mw, real *logx1, real *logx2, real *logy1, real *logy2); +extern integer wlwril_(integer *wd, doublereal *value, integer *side, real *x, real *y, doublereal *angle, integer *axis, integer *precin, logical *dofull, real *offset); +extern integer wtstr_(real *px, real *py, char *ch, integer *is, integer *io, integer *ic, ftnlen ch_len); +extern integer xcallc_(integer *ubufp, integer *buflen, integer *dtype); +extern integer xdevss_(shortint *device, integer *out); +extern integer xeract_(integer *errore, shortint *messae, integer *severy); +extern integer xerfmg_(shortint *errmsg, shortint *outstr, integer *maxch); +extern integer xerpsh_(void); +extern integer xerpsr_(shortint *str); +extern integer xerpuc_(shortint *ch); +extern integer xerpue_(integer *fd, shortint *text); +extern integer xerret_(void); +extern integer xerror_(integer *errore, shortint *messae); +extern integer xersel_(integer *errcoe); +extern integer xervey_(void); +extern integer xfatal_(integer *errore, shortint *messae); +extern integer xfchdr_(shortint *newdir); +extern integer xfcloe_(integer *fdarg); +extern integer xfdele_(shortint *fname); +extern integer xffluh_(integer *fd); +extern integer xfputc_(integer *fd, shortint *ch); +extern integer xfputr_(shortint *ch); +extern integer xfrnam_(shortint *oldnae, shortint *newnae); +extern integer xfseek_(integer *fd, integer *offset); +extern integer xfungc_(integer *fd, shortint *ch); +extern integer xfwrie_(integer *fd, shortint *buffer, integer *maxchs); +extern integer xgtuid_(shortint *userne, integer *maxch); +extern integer xmallc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer xmfree_(integer *ptr, integer *dtype); +extern integer xmjbuf_(integer *bp); +extern integer xmktep_(shortint *seed, shortint *tempfe, integer *maxchs); +extern integer xmpl10_(void); +extern integer xmpl11_(void); +extern integer xonerr_(integer *status); +extern integer xonext_(integer *exitce); +extern integer xpages_(shortint *files, shortint *device, shortint *prompt, integer *firste, integer *clearn, integer *mapcc); +extern integer xprinf_(shortint *formag); +extern integer xqsort_(integer *x, integer *nelem, I_fp compae); +extern integer xrealc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer xstdeh_(integer *excepn, integer *nexthr); +extern integer xstrct_(shortint *str, shortint *outstr, integer *maxch); +extern integer xstrcy_(shortint *s1, shortint *s2, integer *maxch); +extern integer xt21id_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts); +extern integer xt21ig_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts); +extern integer xt21im_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts); +extern integer xtansr_(shortint *prompt, integer *answer); +extern integer xtargs_(integer *stp, shortint *key, shortint *val, integer *maxchr); +extern integer xtbace_(integer *ba); +extern integer xtbagi_(integer *ba, integer *c__, integer *l, integer *data, integer *n); +extern integer xtbags_(integer *ba, integer *c__, integer *l, shortint *data, integer *n); +extern integer xtbapi_(integer *ba, integer *c__, integer *l, integer *data, integer *n); +extern integer xtbaps_(integer *ba, integer *c__, integer *l, shortint *data, integer *n); +extern integer xtclar_(shortint *paramr, integer *answer); +extern integer xtcsub_(integer *co, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtcsum_(integer *co, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtdelp_(shortint *output, shortint *origil); +extern integer xtextn_(integer *fd, shortint *fname, shortint *exttye, integer *indics, shortint *extnae, integer *extver, integer *lindex, integer *lname, integer *lver, shortint *ikpars, integer *err); +extern integer xtfpfe_(integer *fp); +extern integer xtfpsp_(integer *pm, integer *nc, integer *nl, integer *v, shortint *data, integer *lvalin, integer *cvalin, integer *lvalot, integer *cvalot); +extern integer xtgets_(shortint *fname); +extern integer xtgids_(shortint *str, shortint *dicstr, integer *ids, integer *maxids); +extern integer xtimet_(shortint *image, shortint *ext, integer *maxchr); +extern integer xtimrt_(shortint *image, shortint *root, integer *maxchr); +extern integer xtloge_(integer *logfd, integer *nlogfd, shortint *prefix); +extern integer xtlsub_(integer *im, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtlsum_(integer *im, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtmase_(shortint *fname, shortint *extnae, integer *mode, shortint *mname, integer *maxchr); +extern integer xtmk1d_(shortint *image, shortint *secstr, integer *szfnae); +extern integer xtmkic_(shortint *image, shortint *secstr, shortint *imagec, integer *szfnae); +extern integer xtmkip_(shortint *input, shortint *output, shortint *origil, integer *szfnae); +extern integer xtmksn_(shortint *image, shortint *secstr, shortint *sectin, integer *szsecn); +extern integer xtpart_(shortint *args, integer *ip, logical *skip); +extern integer xtphiy_(integer *im, shortint *str); +extern integer xtsor2_(real *a1, real *a2, integer *npts); +extern integer xtsor3_(real *a1, real *a2, real *a3, integer *npts); +extern integer xtsor4_(real *a1, real *a2, real *a3, real *a4, integer *npts); +extern integer xtsord_(doublereal *a1, doublereal *a2, doublereal *a3, integer *npts); +extern integer xtstad_(doublereal *sample, integer *nsampe, real *frac, doublereal *mean, doublereal *sigma, doublereal *median, doublereal *mode); +extern integer xtstai_(integer *sample, integer *nsampe, real *frac, real *mean, real *sigma, real *median, real *mode); +extern integer xtstar_(real *sample, integer *nsampe, real *frac, real *mean, real *sigma, real *median, real *mode); +extern integer xtstas_(shortint *sample, integer *nsampe, real *frac, real *mean, real *sigma, real *median, real *mode); +extern integer xtstre_(shortint *str); +extern integer xttxte_(integer *fd); +extern integer xttyse_(integer *width, integer *height); +extern integer xvvbip_(integer *opcode, integer *in1, integer *in2, integer *out); +extern integer xvvbop_(integer *opcode, integer *in1, integer *in2, integer *out); +extern integer xvvqut_(integer *cond, integer *in1, integer *in2, integer *out); +extern integer xvvunp_(integer *opcode, integer *in, integer *out); +extern integer xwhen_(integer *signal, integer *handlr, integer *oldhar); +extern integer ytfpfe_(integer *fp); +extern integer ytfpsp_(integer *pmin, integer *pm, integer *nc, integer *nl, integer *v, shortint *data, integer *lvalin, integer *cvalin, integer *lvalot, integer *cvalot); +extern integer zardim_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer zardmt_(integer *mtchan, shortint *buf, integer *maxbys, integer *offset); +extern integer zardnu_(integer *chan, shortint *buf, integer *maxbys, integer *loffst); +extern integer zardps_(integer *ps, shortint *buf, integer *maxbys, integer *offset); +extern integer zawrim_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer zawrmt_(integer *mtchan, shortint *buf, integer *nbytes, integer *offset); +extern integer zawrnu_(integer *chan, shortint *buf, integer *nbytes, integer *loffst); +extern integer zawrps_(integer *ps, shortint *buf, integer *nbytes, integer *offset); +extern integer zawtim_(integer *chan, integer *nbytes); +extern integer zawtmt_(integer *mtchan, integer *status); +extern integer zawtnu_(integer *chan, integer *status); +extern integer zawtps_(integer *ps, integer *status); +extern integer zblkim_(integer *chan1, integer *chan2, integer *chan3, integer *chan4, integer *nframs, real *rate); +extern integer zclrim_(integer *chan); +extern integer zclsim_(integer *chan, integer *status); +extern integer zclsmt_(integer *mtchan, integer *status); +extern integer zclsnu_(integer *chan, integer *status); +extern integer zclsps_(integer *chan, integer *status); +extern integer zclstt_(integer *fd, integer *status); +extern integer zerosc_(void); +extern integer zersim_(integer *chan); +extern integer zflsnu_(integer *chan, integer *status); +extern integer zflstt_(integer *fd, integer *status); +extern integer zfrmim_(integer *chan); +extern integer zgetnu_(integer *chan, shortint *buf, integer *maxch, integer *status); +extern integer zgettt_(integer *fd, shortint *buf, integer *maxch, integer *status); +extern integer zlset_(real *z__, integer *mx, integer *nx, integer *ny, real *zl, integer *nlevl); +extern integer zmapim_(integer *chan, shortint *maptye); +extern integer zmtcim_(integer *chan1, integer *chan2); +extern integer znotnu_(integer *chan, integer *loffst); +extern integer znottt_(integer *fd, integer *offset); +extern integer zopnim_(shortint *devino, integer *mode, integer *chan); +extern integer zopnmt_(shortint *iodev, integer *acmode, integer *mtchan); +extern integer zopnnu_(shortint *osfn, integer *mode, integer *chan); +extern integer zopntt_(shortint *osfn, integer *mode, integer *chan); +extern integer zputnu_(integer *chan, shortint *buf, integer *nchars, integer *status); +extern integer zputtt_(integer *fd, shortint *buf, integer *nchars, integer *status); +extern integer zrcrim_(integer *chan, integer *xcur, integer *ycur); +extern integer zrgbim_(integer *redchn, integer *greenn, integer *bluecn); +extern integer zrmim_(integer *chan, integer *zfactr); +extern integer zscale_(integer *im, real *z1, real *z2, real *contrt, integer *optime, integer *lenste); +extern integer zscfla_(real *data, real *flat, real *x, integer *npix, real *z0, real *dz); +extern integer zsczls_(real *sample, integer *npix, real *contrt, real *z1, real *z2); +extern integer zseknu_(integer *chan, integer *loffst, integer *status); +extern integer zsektt_(integer *fd, integer *offset, integer *status); +extern integer zsestt_(integer *fd, integer *param, shortint *svalue); +extern integer zsettt_(integer *chan, integer *param, integer *value); +extern integer zststt_(integer *fd, integer *param, shortint *outstr, integer *maxch, integer *nchars); +extern integer zsttim_(integer *chan, integer *what, integer *lvalue); +extern integer zsttmt_(integer *mtchan, integer *what, integer *lvalue); +extern integer zsttnu_(integer *chan, integer *param, integer *lvalue); +extern integer zsttps_(integer *ps, integer *what, integer *lvalue); +extern integer zstttt_(integer *fd, integer *param, integer *lvalue); +extern integer zttgeg_(integer *chan, shortint *obuf, integer *maxch, integer *nchars); +extern integer zttloo_(integer *inflag, integer *outflg); +extern integer zttlov_(integer *chan); +extern integer zttpbf_(integer *errcoe); +extern integer zttplk_(integer *flag__); +extern integer zttpug_(integer *chan, shortint *dstr, integer *nchars); +extern integer zttttt_(shortint *messae); +extern integer zttupe_(shortint *in, shortint *out, integer *nchars); +extern integer zwndi3_(integer *chan1, integer *chan2, integer *chan3); +extern integer zwndim_(integer *chan); +extern integer agfpbn_(real *fpdp); +extern integer ahivi_(integer *a, integer *npix); +extern integer ahivl_(integer *a, integer *npix); +extern integer alovi_(integer *a, integer *npix); +extern integer alovl_(integer *a, integer *npix); +extern integer amedi_(integer *a, integer *npix); +extern integer amedl_(integer *a, integer *npix); +extern integer aravd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *ksig); +extern integer aravi_(integer *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer aravl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *ksig); +extern integer aravr_(real *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer aravs_(shortint *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer aravx_(complex *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer asoki_(integer *a, integer *npix, integer *ksel); +extern integer asokl_(integer *a, integer *npix, integer *ksel); +extern integer await_(integer *fd); +extern integer awaitb_(integer *fd); +extern integer awvgd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *lcut, doublereal *hcut); +extern integer awvgi_(integer *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer awvgl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *lcut, doublereal *hcut); +extern integer awvgr_(real *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer awvgs_(shortint *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer awvgx_(complex *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer begmem_(integer *bestse, integer *oldsie, integer *maxsie); +extern integer btoi_(logical *boolee); +extern integer cctoc_(shortint *str, integer *ip, shortint *cval); +extern integer ccxset_(shortint *text, integer *n, shortint *out, integer *startt); +extern integer clcfeh_(shortint *param, shortint *outstr, integer *maxch); +extern integer clcfid_(shortint *param, shortint *outstr, integer *maxch); +extern integer clgcur_(shortint *param, real *wx, real *wy, integer *wcs, integer *key, shortint *strval, integer *maxch); +extern integer clgeti_(shortint *param); +extern integer clgetl_(shortint *param); +extern integer clgfil_(integer *list, shortint *fname, integer *maxch); +extern integer clginp_(shortint *param); +extern integer clgkey_(shortint *param, integer *key, shortint *strval, integer *maxch); +extern integer clglpb_(shortint *param, logical *bval); +extern integer clglpc_(shortint *param, shortint *cval); +extern integer clglpd_(shortint *param, doublereal *dval); +extern integer clglpi_(shortint *param, integer *ival); +extern integer clglpl_(shortint *param, integer *lval); +extern integer clglpr_(shortint *param, real *rval); +extern integer clglps_(shortint *param, shortint *sval); +extern integer clglpx_(shortint *param, complex *xval); +extern integer clglsr_(shortint *param, shortint *outstr, integer *maxch); +extern integer clgpsi_(integer *pp, shortint *parnae); +extern integer clgpsl_(integer *pp, shortint *parnae); +extern integer clgwrd_(shortint *param, shortint *keywod, integer *maxchr, shortint *dictiy); +extern integer clktie_(integer *oldtie); +extern integer clopst_(shortint *pset); +extern integer clplen_(integer *list); +extern integer clpopi_(shortint *param); +extern integer clpops_(shortint *param); +extern integer clpopu_(shortint *param); +extern integer clpsee_(integer *pp, shortint *parnae); +extern integer clpsit_(shortint *cmd, integer *arg1, integer *arg2); +extern integer clscan_(shortint *param); +extern integer clstai_(integer *paramr); +extern integer coerce_(integer *ptr, integer *type1, integer *type2); +extern integer cogetr_(integer *co, integer *col, integer *line1, integer *line2); +extern integer comap_(integer *im, integer *maxbuf); +extern integer conxch_(real *x, real *y, integer *i1, integer *i2, integer *i3, integer *i4); +extern integer cputie_(integer *oldcpe); +extern integer cqccry_(integer *cq); +extern integer cqdgei_(integer *cq, integer *record, shortint *field); +extern integer cqdscn_(integer *cq); +extern integer cqdtye_(shortint *c__); +extern integer cqfgad_(integer *cq, shortint *field, doublereal *array, integer *maxlen); +extern integer cqfgai_(integer *cq, shortint *field, integer *array, integer *maxlen); +extern integer cqfgar_(integer *cq, shortint *field, real *array, integer *maxlen); +extern integer cqfgei_(integer *cq, shortint *field); +extern integer cqfgtt_(integer *cq, shortint *field, shortint *str, integer *maxch); +extern integer cqfimy_(integer *cq, shortint *imname); +extern integer cqfinn_(integer *res, integer *fieldo, shortint *fname, integer *szfnae, integer *foffst, integer *fsize, integer *ftype, shortint *units, integer *szunis, shortint *fmts, integer *szfmts); +extern integer cqfino_(integer *res, shortint *field, integer *foffst, integer *fsize, integer *ftype, shortint *units, integer *szunis, shortint *fmts, integer *szfmts); +extern integer cqfirt_(integer *cq); +extern integer cqfnae_(integer *res, integer *fieldo, shortint *fname, integer *szfnae); +extern integer cqfnur_(integer *res, shortint *field); +extern integer cqfoft_(integer *res, shortint *field); +extern integer cqfquy_(integer *cq, shortint *catfie, shortint *catfmt); +extern integer cqfrit_(integer *cq, shortint *catfmt); +extern integer cqfsie_(integer *res, shortint *field); +extern integer cqftye_(integer *res, shortint *field); +extern integer cqgnrd_(integer *res, shortint *buf, integer *maxch, integer *recptr); +extern integer cqgqpn_(integer *cq, integer *parno, shortint *pname, integer *maxnae, shortint *value, integer *maxval, shortint *units, integer *maxuns, shortint *format, integer *maxfot); +extern integer cqgqpr_(integer *cq, shortint *name__, shortint *pname, integer *maxnae, shortint *value, integer *maxval, shortint *units, integer *maxuns, shortint *format, integer *maxfot); +extern integer cqgred_(integer *res, shortint *buf, integer *maxch, integer *recptr); +extern integer cqgvac_(integer *res, integer *recptr, shortint *field, shortint *str, integer *maxch); +extern integer cqgvad_(integer *res, integer *recptr, shortint *field, doublereal *dval); +extern integer cqgvai_(integer *res, integer *recptr, shortint *field, integer *ival); +extern integer cqgval_(integer *res, integer *recptr, shortint *field, integer *lval); +extern integer cqgvar_(integer *res, integer *recptr, shortint *field, real *rval); +extern integer cqgvas_(integer *res, integer *recptr, shortint *field, shortint *sval); +extern integer cqhinn_(integer *res, integer *kwno, shortint *hkname, integer *szhkne, shortint *hkvale, integer *szhkve); +extern integer cqhino_(integer *res, shortint *hkname, shortint *hkvale, integer *szhkve); +extern integer cqimqy_(integer *cq, shortint *imname); +extern integer cqirit_(integer *cq); +extern integer cqisti_(integer *res, integer *param); +extern integer cqistt_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqkinn_(integer *res, integer *fieldo, shortint *kfield, integer *szkfid, shortint *ikname, integer *szikne, shortint *ikvale, integer *szikve, integer *iktype, shortint *ikunis, integer *szikus); +extern integer cqkino_(integer *res, shortint *kfield, shortint *ikname, integer *szikne, shortint *ikvale, integer *szikve, integer *iktype, shortint *ikunis, integer *szikus); +extern integer cqloce_(integer *cq, shortint *name__); +extern integer cqlocn_(integer *cq, integer *catno, shortint *name__, integer *maxch); +extern integer cqmap_(shortint *databe, integer *mode); +extern integer cqnqps_(integer *cq); +extern integer cqquey_(integer *cq); +extern integer cqrint_(integer *cq); +extern integer cqrsti_(integer *res, integer *param); +extern integer cqrstt_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqscan_(integer *cq); +extern integer cqsetd_(integer *res, integer *recptr); +extern integer cqsetn_(integer *cq, integer *catno); +extern integer cqsett_(integer *cq, shortint *name__); +extern integer cqsqpn_(integer *cq, integer *parno, shortint *valuer); +extern integer cqsqpr_(integer *cq, shortint *name__, shortint *valuer); +extern integer cqstai_(integer *cq, integer *param); +extern integer cqstat_(integer *cq, integer *param, shortint *str, integer *maxch); +extern integer cqwinn_(integer *res, integer *fieldo, shortint *wfield, integer *szwfid, shortint *wkname, integer *szwkne, shortint *wkvale, integer *szwkve, integer *wktype, shortint *wkunis, integer *szwkus); +extern integer cqwino_(integer *res, shortint *wfield, shortint *wkname, integer *szwkne, shortint *wkvale, integer *szwkve, integer *wktype, shortint *wkunis, integer *szwkus); +extern integer cqwrdr_(integer *index, shortint *outstr, integer *maxch, shortint *dict); +extern integer ctocc_(shortint *ch, shortint *outstr, integer *maxch); +extern integer ctod_(shortint *str, integer *ip, doublereal *dval); +extern integer ctoi_(shortint *str, integer *ip, integer *ival); +extern integer ctol_(shortint *str, integer *ip, integer *lval); +extern integer ctor_(shortint *str, integer *ip, real *rval); +extern integer ctotok_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer ctowrd_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer ctox_(shortint *str, integer *ip, complex *xval); +extern integer decods_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus); +extern integer diropn_(shortint *fname, integer *mode); +extern integer dsmap_(integer *frame, integer *mode, integer *color, integer *chan); +extern integer dspmmp_(shortint *pmname, integer *refim); +extern integer dsuluc_(shortint *fname, real *z1, real *z2); +extern integer dtgeti_(integer *dt, integer *record, shortint *field); +extern integer dtloce_(integer *dt, shortint *name__); +extern integer dtmap1_(shortint *databe, shortint *key, integer *mode); +extern integer dtmap_(shortint *databe, integer *mode); +extern integer dtmdee_(shortint *datesr, integer *year, integer *month, integer *day, doublereal *time, integer *flags); +extern integer dtmdes_(shortint *datesr, integer *year, integer *month, integer *day, integer *hours, integer *minuts, doublereal *secons, integer *flags); +extern integer dtmene_(shortint *datesr, integer *maxch, integer *year, integer *month, integer *day, doublereal *time, integer *precin, integer *flags); +extern integer dtmens_(shortint *datesr, integer *maxch, integer *year, integer *month, integer *day, integer *hours, integer *minuts, doublereal *secons, integer *precin, integer *flags); +extern integer dtmlte_(shortint *datesr, integer *ltime); +extern integer dtoc3_(doublereal *val, shortint *out, integer *maxch, integer *decpl, integer *afmt, integer *width); +extern integer dtoc_(doublereal *dval, shortint *outstr, integer *maxch, integer *decpl, integer *afmt, integer *width); +extern integer dtscan_(integer *dt); +extern integer envfid_(shortint *key, shortint *value, integer *maxch); +extern integer envfit_(integer *valp); +extern integer envfre_(integer *oldtop, integer *userfn); +extern integer envgei_(shortint *varnae); +extern integer envges_(shortint *key, shortint *value, integer *maxch); +extern integer envnet_(integer *lastel, integer *valp, integer *showrs); +extern integer envpus_(shortint *key, shortint *value); +extern integer envscn_(shortint *cmd); +extern integer errcoe_(void); +extern integer errget_(shortint *outstr, integer *maxch); +extern integer evexpr_(shortint *expr, integer *getopa, integer *ufcnea); +extern integer evvexr_(shortint *expr, integer *getop, integer *getopa, integer *ufcn, integer *ufcnda, integer *flags); +extern integer extrea_(real *x, real *y, real *curvae, integer *npts, real *dx); +extern integer fdevbk_(shortint *path); +extern integer ffault_(integer *fd, integer *fileot, integer *nresee, integer *rwflag); +extern integer ffilsz_(integer *fd); +extern integer fgdev0_(integer *ffp, integer *what); +extern integer fgetfd_(shortint *filene, integer *mode, integer *type__); +/*extern integer filbuf_(integer *fd);*/ +extern integer finfo_(shortint *fname, integer *ostrut); +extern integer fmaccs_(shortint *dfname, integer *mode); +extern integer fmfinf_(integer *fc, integer *lfile); +extern integer fmfopn_(integer *fm, integer *lfile, integer *mode, integer *type__); +extern integer fmgetd_(integer *fm, integer *lfile, integer *mode, integer *type__); +extern integer fmioed_(integer *fm, integer *lfile, integer *npages); +extern integer fmlfpe_(shortint *lfname, integer *fm, integer *lfile, integer *type__); +extern integer fmlfst_(integer *fm, integer *lfile, integer *statbf); +extern integer fmnexe_(integer *fm); +extern integer fmopen_(shortint *fname, integer *mode); +extern integer fmstai_(integer *fm, integer *param); +extern integer fnextn_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer fnldir_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer fnroot_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer fntedt_(shortint *in, shortint *out, integer *editp, integer *nedit, shortint *patbuf); +extern integer fntget_(shortint *temple, integer *ix, integer *patp, integer *npat, integer *sbuf, integer *maxch); +extern integer fntgfb_(integer *list, shortint *fname, integer *maxch); +extern integer fntgfn_(integer *pp, shortint *outstr, integer *maxch); +extern integer fntleb_(integer *list); +extern integer fntopb_(shortint *temple, integer *sort); +extern integer fntopn_(shortint *temple); +extern integer fntopt_(shortint *str, shortint *patstr, integer *maxch, shortint *fname, shortint *ldir, integer *ftype); +extern integer fntree_(integer *pp, shortint *outstr, integer *maxch, integer *token); +extern integer fntrfb_(integer *list, integer *index, shortint *fname, integer *maxch); +extern integer fprfmt_(integer *ival); +extern integer freadp_(integer *fd, integer *offset, integer *nchars); +extern integer fsetfd_(integer *fd, shortint *filene, integer *mode, integer *type__); +extern integer fsfopn_(shortint *fname, integer *mode); +extern integer fstati_(integer *fd, integer *what); +extern integer fstatl_(integer *fd, integer *what); +extern integer fstdfe_(shortint *fname, integer *ofd); +extern integer futime_(shortint *fname, integer *atime, integer *mtime); +extern integer fwritp_(integer *fd, integer *offset, integer *nchars); +extern integer fxfchv_(integer *im, integer *group); +extern integer fxfcte_(shortint *card, integer *kwindx); +extern integer fxfexr_(integer *fit, integer *ig, integer *extn, integer *extv); +extern integer fxfhdt_(integer *group, integer *fit, integer *pfd, integer *acmode); +extern integer fxfhee_(integer *im); +extern integer fxfksx_(shortint *outstr); +extern integer fxfred_(integer *fd, shortint *ibuf, shortint *obuf, integer *ncards); +extern integer fxfstr_(shortint *s1, shortint *s2); +extern integer fxftox_(integer *im); +extern integer fxfuad_(integer *fit, integer *im, integer *up, shortint *card); +extern integer fxfxal_(integer *hd, integer *ncua, integer *nlines); +extern integer gctod_(shortint *str, integer *ip, doublereal *odval); +extern integer gctol_(shortint *str, integer *ip, integer *lval, integer *radix); +extern integer gctox_(shortint *str, integer *ip, complex *oxval); +extern integer getci_(integer *fd, integer *ch); +extern integer getdae_(shortint *ch); +extern integer getlie_(integer *fd, shortint *linebf); +extern integer getlle_(integer *fd, shortint *obuf, integer *maxch); +extern integer getloe_(integer *fd, shortint *obuf, integer *maxch, integer *linenm); +extern integer getner_(integer *ranges, integer *number); +extern integer getprr_(integer *ranges, integer *number); +extern integer ggcur_(integer *gp, integer *cn, integer *key, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer ggeti_(integer *gp, shortint *cap); +extern integer ggets_(integer *gp, shortint *cap, shortint *outstr, integer *maxch); +extern integer gimgeg_(integer *gp, integer *mappig, integer *rop, integer *src, integer *st, integer *sx, integer *sy, integer *sw, integer *sh, integer *dst, integer *dt, integer *dx, integer *dy, integer *dw, integer *dh); +extern integer gimqur_(integer *gp, integer *raster, integer *type__, integer *width, integer *height, integer *depth); +extern integer gimrep_(integer *gp, integer *colorp, integer *first, integer *maxelm, integer *r__, integer *g, integer *b); +extern integer gkifen_(integer *fd, integer *instrn); +extern integer glbgek_(integer *gp, integer *ax, real *x, real *y, integer *majork); +extern integer gltoc_(integer *lval, shortint *outstr, integer *maxch, integer *base); +extern integer gmttot_(integer *gmt); +extern integer gopen_(shortint *device, integer *mode, integer *fd); +extern integer gopeni_(shortint *device, integer *mode, shortint *uifnae, integer *fd); +extern integer gpatme_(shortint *patstr, integer *from, integer *delim, shortint *patbuf, integer *szpat); +extern integer gpatmh_(shortint *str, shortint *pat, integer *firstr, integer *lastcr); +extern integer gptfit_(shortint *gki, integer *ip, integer *lastip); +extern integer gqvery_(void); +extern integer grcbol_(shortint *opstr, integer *ip); +extern integer grccod_(integer *rc, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, shortint *opstr); +extern integer grccur_(integer *rc, integer *stream, integer *key, real *x, real *y, integer *raster, real *rx, real *ry, integer *ppos); +extern integer grcmay_(integer *rc, integer *key, integer *nukey); +extern integer grcopn_(shortint *device, integer *mode, integer *stream, integer *rc); +extern integer grcrey_(integer *stream, shortint *prompt, shortint *obuf, integer *maxch); +extern integer grcses_(integer *tr, integer *raster, real *mx, real *my); +extern integer grdwcs_(shortint *devnae, integer *wcs, integer *lenwcs); +extern integer gstati_(integer *gp, integer *param); +extern integer gstats_(integer *gp, integer *param, shortint *outstr, integer *maxch); +extern integer gstrct_(shortint *str, shortint *outstr, integer *maxch); +extern integer gstrcy_(shortint *s1, shortint *s2, integer *maxch); +extern integer gstrdb_(shortint *line, shortint *outlie, integer *maxch, integer *tabs); +extern integer gstreb_(shortint *line, shortint *outlie, integer *maxch, integer *tabs); +extern integer gstrmh_(shortint *str, shortint *pat, integer *firstr, integer *lastcr); +extern integer gtgcu1_(integer *gt, shortint *cur, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *szcmd); +extern integer gtgcur_(shortint *cur, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *szcmd); +extern integer gtgeti_(integer *gt, integer *param); +extern integer gtini1_(integer *gp); +extern integer gtinit_(void); +extern integer gtndis_(real *x1, real *x2, real *step); +extern integer gtrcle_(integer *p1, integer *p2, integer *npts, integer *index, real *s, real *ref); +extern integer gtrcot_(shortint *kernfe, shortint *taskne, shortint *devnae, integer *stream, integer *in, integer *out); +extern integer gtrfen_(integer *tr, integer *gki); +extern integer gtrgty_(integer *stream); +extern integer gtrint_(integer *stream); +extern integer gtrpop_(shortint *pv, integer *npts, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer gtrrer_(integer *fd, integer *key, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer gtrwrp_(integer *fd, integer *nchars); +extern integer gttyld_(shortint *fname, shortint *device, shortint *outstr, integer *maxch); +extern integer gtybih_(integer *capcoe, integer *tcapce, integer *ncaps); +extern integer gtycas_(integer *gty); +extern integer gtyeny_(shortint *cap); +extern integer gtyexs_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer gtyfiy_(integer *tty, shortint *cap, integer *ip); +extern integer gtygei_(integer *tty, shortint *cap); +extern integer gtyges_(integer *tty, shortint *cap, shortint *outstr, integer *maxch); +extern integer gtyopn_(shortint *termce, shortint *device, shortint *ufiels); +extern integer i8sav_(integer *isw, integer *ivalue, logical *set); +extern integer iand_(integer *a, integer *b); +extern integer idbfid_(integer *im, shortint *key, integer *rp); +extern integer idbfir_(shortint *s1, shortint *s2, integer *maxch); +extern integer idbgeg_(integer *im, shortint *key, shortint *outstr, integer *maxch); +extern integer idbkwp_(shortint *key); +extern integer idbned_(integer *idb, integer *recptr); +extern integer idbopn_(integer *im, integer *ualen); +extern integer idbpug_(integer *im, shortint *key, shortint *strval); +extern integer idkopn_(integer *aframe, integer *acolor, integer *tty); +extern integer iisflu_(integer *chan); +extern integer ikiacs_(shortint *image, shortint *root, shortint *extn, integer *acmode); +extern integer ikiext_(shortint *envime, shortint *defime, shortint *envimn, shortint *defimn); +extern integer ikiged_(integer *ip, shortint *outstr, integer *maxch, integer *delim); +extern integer ikigen_(integer *kernel, integer *index, shortint *extn, integer *maxch); +extern integer ikiger_(shortint *param); +extern integer ikivan_(integer *kernel, shortint *extn); +extern integer imaccf_(integer *im, shortint *key); +extern integer imaccs_(shortint *image, integer *acmode); +extern integer imcssz_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype, integer *npix, integer *rwflag); +extern integer imdgcr_(shortint *param, real *wx, real *wy, integer *wcs, integer *key, shortint *strval, integer *maxch); +extern integer imdges_(integer *frame, integer *server, shortint *image, integer *szimae, shortint *title, integer *sztite, real *a, real *b, real *c__, real *d__, real *tx, real *ty); +extern integer imdgsg_(shortint *cap); +extern integer imdma1_(integer *frame, integer *mode, integer *selece, integer *erase); +extern integer imdmae_(integer *frame, integer *mode, integer *selece); +extern integer imdmap_(shortint *device, integer *accese, I_fp imdopn); +extern integer imdopn_(shortint *fname, integer *accese); +extern integer imdqup_(integer *wcs, shortint *reg, real *sx, real *sy, integer *snx, integer *sny, integer *dx, integer *dy, integer *dnx, integer *dny, shortint *objref); +extern integer imdrcr_(shortint *device, real *x, real *y, integer *wcs, integer *key, shortint *strval, integer *maxch, integer *inwcs, integer *pause); +extern integer imdwcr_(void); +extern integer imgeti_(integer *im, shortint *key); +extern integer imgetl_(integer *im, shortint *key); +extern integer imgfte_(integer *im, shortint *key); +extern integer imggsc_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype, integer *totpix); +extern integer imggsd_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsi_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsl_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsr_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggss_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsx_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imgibf_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype); +extern integer imgl1d_(integer *im); +extern integer imgl1i_(integer *im); +extern integer imgl1l_(integer *im); +extern integer imgl1r_(integer *im); +extern integer imgl1s_(integer *im); +extern integer imgl1x_(integer *im); +extern integer imgl2d_(integer *im, integer *linenm); +extern integer imgl2i_(integer *im, integer *linenm); +extern integer imgl2l_(integer *im, integer *linenm); +extern integer imgl2r_(integer *im, integer *linenm); +extern integer imgl2s_(integer *im, integer *linenm); +extern integer imgl2x_(integer *im, integer *linenm); +extern integer imgl3d_(integer *im, integer *line, integer *band); +extern integer imgl3i_(integer *im, integer *line, integer *band); +extern integer imgl3l_(integer *im, integer *line, integer *band); +extern integer imgl3r_(integer *im, integer *line, integer *band); +extern integer imgl3s_(integer *im, integer *line, integer *band); +extern integer imgl3x_(integer *im, integer *line, integer *band); +extern integer imgnfn_(integer *fn, shortint *outstr, integer *maxch); +extern integer imgnld_(integer *imdes, integer *linepr, integer *v); +extern integer imgnli_(integer *imdes, integer *linepr, integer *v); +extern integer imgnll_(integer *imdes, integer *linepr, integer *v); +extern integer imgnln_(integer *im, integer *linepr, integer *v, integer *dtype); +extern integer imgnlr_(integer *imdes, integer *linepr, integer *v); +extern integer imgnls_(integer *imdes, integer *linepr, integer *v); +extern integer imgnlx_(integer *imdes, integer *linepr, integer *v); +extern integer imgobf_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype); +extern integer imgs1d_(integer *im, integer *x1, integer *x2); +extern integer imgs1i_(integer *im, integer *x1, integer *x2); +extern integer imgs1l_(integer *im, integer *x1, integer *x2); +extern integer imgs1r_(integer *im, integer *x1, integer *x2); +extern integer imgs1s_(integer *im, integer *x1, integer *x2); +extern integer imgs1x_(integer *im, integer *x1, integer *x2); +extern integer imgs2d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs3d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imloop_(integer *v, integer *vs, integer *ve, integer *vinc, integer *ndim); +extern integer immap_(shortint *imspec, integer *acmode, integer *hdrarg); +extern integer immapz_(shortint *imspec, integer *acmode, integer *hdrarg); +extern integer imnote_(integer *im, integer *v); +extern integer imofnl_(integer *im, shortint *temple, integer *sort); +extern integer imofns_(integer *im, shortint *temple); +extern integer imofnu_(integer *im, shortint *temple); +extern integer impgsd_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsi_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsl_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsr_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgss_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsx_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impl1d_(integer *im); +extern integer impl1i_(integer *im); +extern integer impl1l_(integer *im); +extern integer impl1r_(integer *im); +extern integer impl1s_(integer *im); +extern integer impl1x_(integer *im); +extern integer impl2d_(integer *im, integer *linenm); +extern integer impl2i_(integer *im, integer *linenm); +extern integer impl2l_(integer *im, integer *linenm); +extern integer impl2r_(integer *im, integer *linenm); +extern integer impl2s_(integer *im, integer *linenm); +extern integer impl2x_(integer *im, integer *linenm); +extern integer impl3d_(integer *im, integer *line, integer *band); +extern integer impl3i_(integer *im, integer *line, integer *band); +extern integer impl3l_(integer *im, integer *line, integer *band); +extern integer impl3r_(integer *im, integer *line, integer *band); +extern integer impl3s_(integer *im, integer *line, integer *band); +extern integer impl3x_(integer *im, integer *line, integer *band); +extern integer impmmo_(integer *pl, integer *refim); +extern integer impmmp_(shortint *mask, integer *mode, integer *refim); +extern integer impmon_(shortint *mask, integer *mode, shortint *title, integer *maxch, integer *refim); +extern integer impmsr_(integer *im, integer *bp, integer *szbuf); +extern integer impnld_(integer *imdes, integer *linepr, integer *v); +extern integer impnli_(integer *imdes, integer *linepr, integer *v); +extern integer impnll_(integer *imdes, integer *linepr, integer *v); +extern integer impnln_(integer *im, integer *linepr, integer *v, integer *dtype); +extern integer impnlr_(integer *imdes, integer *linepr, integer *v); +extern integer impnls_(integer *imdes, integer *linepr, integer *v); +extern integer impnlx_(integer *imdes, integer *linepr, integer *v); +extern integer imps1d_(integer *im, integer *x1, integer *x2); +extern integer imps1i_(integer *im, integer *x1, integer *x2); +extern integer imps1l_(integer *im, integer *x1, integer *x2); +extern integer imps1r_(integer *im, integer *x1, integer *x2); +extern integer imps1s_(integer *im, integer *x1, integer *x2); +extern integer imps1x_(integer *im, integer *x1, integer *x2); +extern integer imps2d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps3d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imsinb_(integer *im, integer *vs, integer *ve, integer *ndim); +extern integer imstai_(integer *im, integer *option); +extern integer imtgem_(integer *imt, shortint *outstr, integer *maxch); +extern integer imtlen_(integer *imt); +extern integer imtmae_(shortint *fnt, shortint *outstr, integer *maxch); +extern integer imtopn_(shortint *temple); +extern integer imtopp_(shortint *param); +extern integer imtrgm_(integer *imt, integer *index, shortint *outstr, integer *maxch); +extern integer ingetc_(integer *in, integer *param); +extern integer ingeti_(integer *in, integer *param); +extern integer ingetp_(integer *in, integer *param); +extern integer ingnd_(integer *gp, doublereal *x, doublereal *y, integer *npts, real *wx, real *wy); +extern integer ingned_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingner_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingnr_(integer *gp, real *x, real *y, integer *npts, real *wx, real *wy); +extern integer inlstd_(integer *index, shortint *outstr, integer *maxch, shortint *dict); +extern integer inlstt_(shortint *str, integer *ip, shortint *dict, integer *skip, shortint *outstr, integer *maxch); +extern integer ior_(integer *a, integer *b); +extern integer irafmn_(shortint *acmd, integer *ainchn, integer *aoutcn, integer *aerrcn, integer *adrivr, integer *adevte, integer *prtype, shortint *bkgfie, integer *jobcoe, I_fp sysruk, I_fp onenty); +extern integer isdiry_(shortint *vfn, shortint *pathne, integer *maxch); +extern integer ishift_(integer *inword, integer *n); +extern integer itoc_(integer *ival, shortint *str, integer *maxch); +extern integer iwcare_(shortint *card, integer *type__, integer *axis, integer *index); +extern integer iwfind_(integer *iw, integer *type__, integer *axis, integer *index); +extern integer iwgbis_(integer *iw, integer *ctype, integer *axis); +extern integer iwopen_(integer *ds, integer *frame, shortint *imname, integer *szimne, integer *wcssts); +extern integer iwrfis_(integer *mw, integer *im, integer *mode); +extern integer ixdecs_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus); +extern integer ixgetr_(integer *ranges, integer *number); +extern integer kfmx_(real *rx); +extern integer kfmy_(real *ry); +extern integer kfpx_(real *rx); +extern integer kfpy_(real *ry); +extern integer kicont_(shortint *rname); +extern integer kidece_(shortint *str, integer *nchars); +extern integer kiexte_(shortint *resoue, shortint *nodene, integer *maxch, integer *nchars); +extern integer kifine_(shortint *alias); +extern integer kigetn_(integer *server, integer *oschan); +/*extern integer kigets_(void);*/ +extern integer kignoe_(shortint *rname, shortint *outstr, integer *delim); +extern integer kiloce_(shortint *node); +extern integer kimape_(shortint *name__, shortint *newnae, integer *maxch); +extern integer kimapn_(integer *chan, shortint *nodene, integer *maxch); +extern integer kiopes_(integer *node); +/*extern integer kirece_(integer *server, integer *opcode, integer *subcoe);*/ +/*extern integer kisend_(integer *server, integer *opcode, integer *subcoe);*/ +extern integer kisenv_(integer *server, integer *opcode, integer *subcoe); +extern integer kmallc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer kmpx_(integer *ix); +extern integer kmpy_(integer *iy); +extern integer kpmx_(integer *ix); +extern integer kpmy_(integer *iy); +extern integer krealc_(integer *ptr, integer *aneles, integer *adtype); +extern integer ksrece_(integer *server); +extern integer kssend_(integer *server, integer *opcode, integer *subcoe); +extern integer kumx_(real *rx); +extern integer kumy_(real *ry); +extern integer kupx_(real *rx); +extern integer kupy_(real *ry); +extern integer ldecos_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus); +extern integer lexnum_(shortint *str, integer *ipstat, integer *nchars); +extern integer lgetnr_(integer *ranges, integer *number); +extern integer lgetpr_(integer *ranges, integer *number); +extern integer lnofeh_(integer *lp, integer *line, integer *loffst, integer *ltag); +extern integer lnoopn_(integer *maxlis); +extern integer lpopen_(shortint *device, integer *mode, integer *type__); +extern integer lsttot_(integer *lst); +extern integer ltoc_(integer *lval, shortint *outstr, integer *maxch); +extern integer mallo1_(integer *outpur, integer *nelems, integer *dtype, integer *szalin, integer *fwaaln); +extern integer maskcp_(shortint *colorg); +extern integer maskcr_(integer *colors, integer *maskvl); +extern integer mefgei_(integer *mef, shortint *key); +extern integer mefgel_(integer *mef, shortint *key); +extern integer mefgnc_(integer *mef); +extern integer mefkce_(shortint *card, integer *index); +extern integer mefklx_(shortint *outstr); +extern integer meflor_(integer *mef, integer *spool, integer *group); +extern integer mefopn_(shortint *fitsfe, integer *acmode, integer *oldp); +extern integer mefpie_(integer *mef); +extern integer mefrdn_(integer *mef, integer *gn); +extern integer mefrdr_(integer *mef, integer *group, shortint *extnae, integer *extver); +extern integer mefrdv_(integer *mef, shortint *extnae, integer *extver); +extern integer mefred_(integer *fd, shortint *ibuf, shortint *obuf, integer *ncards); +extern integer mefstr_(shortint *s1, shortint *s2); +extern integer meftox_(integer *mef); +extern integer mgdptr_(integer *fwa, integer *dtype, integer *szalin, integer *fwaaln); +extern integer mgtfwa_(integer *ptr, integer *dtype); +extern integer miirec_(integer *fd, integer *spp, integer *maxchs); +extern integer miired_(integer *fd, doublereal *spp, integer *maxelm); +extern integer miirei_(integer *fd, integer *spp, integer *maxelm); +extern integer miirel_(integer *fd, integer *spp, integer *maxelm); +extern integer miirer_(integer *fd, real *spp, integer *maxelm); +extern integer miires_(integer *fd, shortint *spp, integer *maxelm); +extern integer miogld_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miogli_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miogll_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioglr_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miogls_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioglx_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioopn_(shortint *mask, integer *flags, integer *im); +extern integer mioopo_(integer *pm, integer *im); +extern integer miopld_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miopli_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miopll_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioplr_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miopls_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioplx_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miosti_(integer *mp, integer *param); +extern integer msvfwa_(integer *fwa, integer *dtype, integer *szalin, integer *fwaaln); +extern integer mtcap_(shortint *mtname); +extern integer mtdevd_(shortint *iodev); +extern integer mtfile_(shortint *fname); +extern integer mtgtyn_(shortint *device, shortint *ufiels); +extern integer mtneeo_(shortint *mtname); +extern integer mtopen_(shortint *mtname, integer *acmode, integer *bufsie); +extern integer mtskid_(integer *fd, integer *nrecos); +extern integer mwalld_(integer *mw, integer *nelem); +extern integer mwalls_(integer *mw, integer *nchars); +extern integer mwcopd_(integer *mw, integer *omw, integer *ooff, integer *nelem); +extern integer mwcops_(integer *mw, integer *omw, integer *ooff); +extern integer mwfins_(integer *mw, shortint *system); +extern integer mwflop_(integer *mw, shortint *fnname); +extern integer mwgctd_(integer *act, doublereal *oltm, doublereal *oltv, integer *axtyp1, integer *axtyp2, integer *maxdim); +extern integer mwgctr_(integer *act, real *oltm, real *oltv, integer *axtyp1, integer *axtyp2, integer *maxdim); +extern integer mwnewy_(integer *omw); +extern integer mwopem_(integer *im); +extern integer mwopen_(integer *bufptr, integer *ndim); +extern integer mwrefr_(integer *mw, shortint *str); +extern integer mwsave_(integer *omw, integer *bp, integer *buflen); +extern integer mwsctn_(integer *mw, shortint *syste1, shortint *syste2, integer *axbits); +extern integer mwstai_(integer *mw, integer *param); +extern integer ndopen_(shortint *fname, integer *mode); +extern integer nerro_(integer *nerr); +extern integer nowhie_(shortint *in, shortint *out, integer *maxch); +extern integer nscan_(void); +extern integer obsgei_(integer *obs, shortint *param); +extern integer obsopn_(shortint *obsery); +extern integer obspas_(integer *obs, shortint *param); +extern integer obsvon_(shortint *obsery, integer *verboe); +extern integer oifrdr_(integer *fd, integer *im, integer *uchars, integer *htype); +extern integer onenty_(integer *prtype, shortint *bkgfie, shortint *cmd); +extern integer onenty_(integer *prtype, shortint *bkgfie, shortint *cmd); +extern integer oscmd_(shortint *cmd, shortint *infile__, shortint *outfie, shortint *errfie); +extern integer osfnlk_(shortint *osfn); +extern integer osfntt_(shortint *osfn, integer *time); +extern integer osfnuk_(shortint *osfn, integer *time); +extern integer patamh_(shortint *str, integer *from, shortint *pat); +extern integer patgel_(shortint *patstr, shortint *patbuf, integer *szpat, integer *ip, integer *op); +extern integer patgse_(shortint *pat, integer *n); +extern integer patinx_(shortint *pat, integer *n); +extern integer patloe_(shortint *ch, shortint *pat, integer *offset); +extern integer patmae_(shortint *str, shortint *pat, integer *szpat); +extern integer patmah_(shortint *str, shortint *pat); +extern integer patomh_(shortint *str, integer *ip, shortint *pat, integer *pp); +extern integer patsts_(shortint *patbuf, integer *szpat, integer *op, integer *lastop, integer *lastce); +extern integer peaks_(real *x, real *y, real *backgd, integer *npts, real *dx); +extern integer pggetd_(integer *tty, shortint *fname, integer *nchars, integer *totchs, integer *lineno, integer *fileno, integer *nfiles); +extern integer pggete_(integer *fd, shortint *lbuf); +extern integer pgpage_(integer *tty, shortint *fname, shortint *newfne, shortint *upromt, integer *clearn, integer *firste, integer *mapcc, integer *fileno, integer *nfiles, logical *redirn, integer *spoold); +extern integer pgpeed_(void); +extern integer placcs_(integer *pl, integer *v); +extern integer plallc_(integer *pl, integer *nwords); +extern integer plcome_(integer *pl1, integer *pl2, integer *outfd); +extern integer plcree_(integer *naxes, integer *axlen, integer *depth); +extern integer plempe_(integer *pl); +extern integer pll2pi_(shortint *llsrc, integer *xs, integer *pxdst, integer *npix); +extern integer pll2pl_(shortint *llsrc, integer *xs, integer *pxdst, integer *npix); +extern integer pll2ps_(shortint *llsrc, integer *xs, shortint *pxdst, integer *npix); +extern integer pll2ri_(shortint *llsrc, integer *xs, integer *rl, integer *npix); +extern integer pll2rl_(shortint *llsrc, integer *xs, integer *rl, integer *npix); +extern integer pll2rs_(shortint *llsrc, integer *xs, shortint *rl, integer *npix); +extern integer plllen_(shortint *ll); +extern integer plloop_(integer *v, integer *vs, integer *ve, integer *ndim); +extern integer plnewy_(integer *oldpl); +extern integer plopen_(integer *smp); +extern integer plp2li_(integer *pxsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plp2ll_(integer *pxsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plp2ls_(shortint *pxsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plp2ri_(integer *pxsrc, integer *xs, integer *rl, integer *npix); +extern integer plp2rl_(integer *pxsrc, integer *xs, integer *rl, integer *npix); +extern integer plp2rs_(shortint *pxsrc, integer *xs, shortint *rl, integer *npix); +extern integer plr2li_(integer *rlsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plr2ll_(integer *rlsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plr2ls_(shortint *rlsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plr2pi_(integer *rlsrc, integer *xs, integer *pxdst, integer *npix); +extern integer plr2pl_(integer *rlsrc, integer *xs, integer *pxdst, integer *npix); +extern integer plr2ps_(shortint *rlsrc, integer *xs, shortint *pxdst, integer *npix); +extern integer plrefe_(integer *pl, integer *v); +extern integer plrgex_(integer *plr, integer *i__, integer *j); +extern integer plropn_(integer *pl, integer *plane, integer *buflit); +extern integer plsave_(integer *pl, integer *bp, integer *buflen, integer *flags); +extern integer plstai_(integer *pl, integer *param); +extern integer pmaccs_(integer *pl, integer *v); +extern integer pmnewk_(integer *refim, integer *depth); +extern integer pmrgex_(integer *pmr, integer *i__, integer *j); +extern integer pmropn_(integer *pl, integer *plane, integer *buflit); +extern integer pmstai_(integer *pl, integer *param); +extern integer pollgs_(integer *fds); +extern integer pollon_(void); +extern integer polltt_(integer *fds, integer *fd, integer *type__); +extern integer prclcr_(integer *pid); +extern integer prcldr_(integer *job); +extern integer prcloe_(integer *pid); +extern integer prdone_(integer *job); +extern integer prenve_(integer *pid, integer *marker); +/*extern integer prfilf_(integer *fd);*/ +extern integer prfinc_(integer *pid); +extern integer prgete_(integer *fd, shortint *lbuf); +extern integer prgetr_(integer *pid, integer *stream); +extern integer propcr_(shortint *proces, integer *in, integer *out); +extern integer propdr_(shortint *proces, shortint *bkgfie, shortint *bkgmsg); +extern integer propen_(shortint *proces, integer *in, integer *out); +extern integer protet_(shortint *fname, integer *action); +extern integer prpsio_(integer *pid, integer *fd, integer *rwflag); +extern integer prstai_(integer *pid, integer *param); +extern integer pscens_(integer *ps, shortint *str); +extern integer pschwh_(shortint *ch, integer *font); +extern integer psgett_(integer *ps, shortint *fontcr); +extern integer psioit_(shortint *lbuf, integer *pseude, integer *nchars); +extern integer psopen_(integer *fd, integer *defaur); +extern integer psrjps_(integer *ps, shortint *str); +extern integer pstexh_(integer *ps, shortint *str); +extern integer qmaccs_(void); +extern integer qmgetc_(integer *fd, integer *ch); +extern integer qmsetr_(integer *uservl, integer *defval); +extern integer qmspai_(integer *uservl, integer *defval); +extern integer qmsymb_(integer *qm); +extern integer qpaccf_(integer *qp, shortint *param); +extern integer qpaccs_(shortint *poefie, integer *mode); +extern integer qpargt_(integer *gt, shortint *argbuf, integer *maxch); +extern integer qpctod_(shortint *str, integer *ip, doublereal *dval); +extern integer qpctoi_(shortint *str, integer *ip, integer *ival); +extern integer qpdtye_(integer *qp, shortint *datate, integer *dsym); +extern integer qpelee_(integer *qp, shortint *datate, integer *reftye); +extern integer qpexad_(integer *ex, shortint *attrie, integer *xs, integer *xe, integer *xlen); +extern integer qpexai_(integer *ex, shortint *attrie, integer *xs, integer *xe, integer *xlen); +extern integer qpexar_(integer *ex, shortint *attrie, integer *xs, integer *xe, integer *xlen); +extern integer qpexcd_(integer *ex, shortint *atname, shortint *assigp, shortint *expr, integer *offset, integer *dtype); +extern integer qpexci_(integer *ex, shortint *atname, shortint *assigp, shortint *expr, integer *offset, integer *dtype); +extern integer qpexcr_(integer *ex, shortint *atname, shortint *assigp, shortint *expr, integer *offset, integer *dtype); +extern integer qpexdc_(integer *ex, integer *nelem, integer *dtype); +extern integer qpexdr_(integer *ex, shortint *strval); +extern integer qpexee_(integer *ex, integer *iev, integer *oev, integer *nev); +extern integer qpexge_(integer *ex, shortint *attrie, shortint *outstr, integer *maxch); +extern integer qpexgr_(integer *ex, shortint *outstr, integer *maxch); +extern integer qpexmr_(integer *ex, shortint *exprlt); +extern integer qpexon_(integer *qp, shortint *expr); +extern integer qpexpd_(shortint *expr, integer *xs, integer *xe, integer *xlen); +extern integer qpexpi_(shortint *expr, integer *xs, integer *xe, integer *xlen); +extern integer qpexpr_(shortint *expr, integer *xs, integer *xe, integer *xlen); +extern integer qpexps_(integer *ex); +extern integer qpexpt_(integer *qp, shortint *s1, shortint *s2, integer *maxch); +extern integer qpexrd_(integer *ex, doublereal *value); +extern integer qpexsd_(doublereal *x1, doublereal *x2, doublereal *xs, doublereal *xe, integer *nrangs, integer *ip, doublereal *oxs, doublereal *oxe); +extern integer qpexsi_(integer *x1, integer *x2, integer *xs, integer *xe, integer *nrangs, integer *ip, integer *oxs, integer *oxe); +extern integer qpexsr_(real *x1, real *x2, real *xs, real *xe, integer *nrangs, integer *ip, real *oxs, real *oxe); +extern integer qpgeti_(integer *qp, shortint *param); +extern integer qpgetk_(integer *gt, shortint *tokbuf, integer *maxch); +extern integer qpgetl_(integer *qp, shortint *param); +extern integer qpgetm_(integer *qp, shortint *param, integer *opp); +extern integer qpgmsm_(integer *qp, shortint *macro, integer *textp); +extern integer qpgnfn_(integer *fl, shortint *outstr, integer *maxch); +extern integer qpgpsm_(integer *qp, shortint *param); +extern integer qpgstr_(integer *qp, shortint *param, shortint *outstr, integer *maxch); +extern integer qpioge_(integer *io, integer *vs, integer *ve, integer *maxdim); +extern integer qpiogr_(integer *io, shortint *outstr, integer *maxch); +extern integer qpiols_(integer *io); +extern integer qpioon_(integer *qp, shortint *paramx, integer *mode); +extern integer qpiope_(integer *io, shortint *expr, integer *filter, integer *szfilr, shortint *mask, integer *szmask); +extern integer qpiori_(integer *io, integer *obuf, integer *vs, integer *ve, integer *ndim, real *xblock, real *yblock); +extern integer qpiors_(integer *io, shortint *obuf, integer *vs, integer *ve, integer *ndim, real *xblock, real *yblock); +extern integer qpiort_(integer *io, integer *evi); +extern integer qpiost_(integer *io, integer *param); +extern integer qplenf_(integer *qp, shortint *param); +extern integer qplenl_(integer *fl); +extern integer qploas_(integer *qp); +extern integer qpmaxi_(integer *x, integer *y); +extern integer qpmini_(integer *x, integer *y); +extern integer qpnexk_(integer *gt); +extern integer qpofnl_(integer *qp, shortint *temple, logical *sort); +extern integer qpofns_(integer *qp, shortint *temple); +extern integer qpofnu_(integer *qp, shortint *temple); +extern integer qpopen_(shortint *poefie, integer *mode, integer *oqp); +extern integer qpopet_(integer *qp, shortint *text); +extern integer qpparl_(integer *qp, shortint *fieldt, integer *dd); +extern integer qppopn_(integer *qp, shortint *param, integer *mode, integer *type__); +extern integer qpputm_(integer *qp, shortint *param, integer *opp); +extern integer qpquef_(integer *qp, shortint *param, shortint *datate, integer *maxelm, shortint *commet, integer *flags); +extern integer qprawk_(integer *gt, shortint *outstr, integer *maxch); +extern integer qpread_(integer *qp, shortint *param, shortint *buf, integer *maxelm, integer *first, shortint *datate); +extern integer qprlmd_(integer *os, integer *oe, integer *olen, doublereal *xs, doublereal *xe, integer *nx, doublereal *ys, doublereal *ye, integer *ny); +extern integer qprlmi_(integer *os, integer *oe, integer *olen, integer *xs, integer *xe, integer *nx, integer *ys, integer *ye, integer *ny); +extern integer qprlmr_(integer *os, integer *oe, integer *olen, real *xs, real *xe, integer *nx, real *ys, real *ye, integer *ny); +extern integer qpsizf_(integer *qp, integer *dtype, integer *dsym, integer *reftye); +extern integer qpstai_(integer *qp, integer *param); +extern integer rcursr_(integer *stream, shortint *outstr, integer *maxch); +extern integer rdukey_(shortint *keystr, integer *maxch); +extern integer reopen_(integer *fd, integer *mode); +extern integer rgence_(integer *rg, shortint *outstr, integer *maxch); +extern integer rginre_(integer *rg, integer *rval); +extern integer rgintt_(integer *rg1, integer *rg2); +extern integer rgnext_(integer *rg, integer *number); +extern integer rgrans_(shortint *rstr, integer *rmin, integer *rmax); +extern integer rgunin_(integer *rg1, integer *rg2); +extern integer rgwinw_(integer *rg, integer *rmin, integer *rmax); +extern integer rgxrad_(shortint *rstr, doublereal *rvals, integer *npts); +extern integer rgxrar_(shortint *rstr, real *rvals, integer *npts); +extern integer rmopen_(integer *box, shortint *type__, integer *ndatas, integer *pixtye); +extern integer rmsopn_(integer *box, integer *type__, real *data); +extern integer rmtopn_(integer *box, real *data); +extern integer rnginx_(integer *rg, integer *ival, real *rval); +extern integer rngopn_(shortint *rstr, real *r1, real *r2, real *dr); +extern integer sgeexe_(shortint *progrm, shortint *memory, integer *regiss); +extern integer sgfger_(integer *fd, shortint *svbuf, integer *sp, shortint *buf, integer *ip, integer *maxch, integer *nchars); +extern integer sgidrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font); +extern integer sgigeg_(integer *maxlen, logical *penup, integer *ltype); +extern integer sgigsg_(shortint *cap); +extern integer sgkopn_(shortint *device, integer *tty); +extern integer siblki_(integer *im, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg); +extern integer siblkr_(integer *im, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg); +extern integer siblks_(integer *im, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg); +extern integer siblmi_(integer *im, integer *fp, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg, integer *order); +extern integer siblmr_(integer *im, integer *fp, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg, integer *order); +extern integer siblms_(integer *im, integer *fp, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg, integer *order); +extern integer skcopy_(integer *cooin); +extern integer skdecm_(integer *im, shortint *wcs, integer *mw, integer *coo); +extern integer skdecr_(shortint *instr, integer *coo, integer *imcoo); +extern integer skdecs_(shortint *instr, integer *mw, integer *coo, integer *imcoo); +extern integer skimws_(integer *im, integer *mw, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skstai_(integer *coo, integer *param); +extern integer skstrs_(shortint *instr, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skwrdr_(integer *index, shortint *outstr, integer *maxch, shortint *dict); +extern integer stallc_(integer *stp, integer *blklen); +extern integer stentr_(integer *stp, shortint *key, integer *usymln); +extern integer stfcte_(shortint *card, integer *index); +extern integer stfind_(integer *stp, shortint *key); +extern integer stfinl_(integer *stp, shortint *key, integer *symbos, integer *maxsys); +extern integer stgene_(shortint *progrm, shortint *memory, integer *regiss); +extern integer stggee_(integer *fd, shortint *obuf); +extern integer stggsg_(shortint *cap); +extern integer stgmsn_(integer *fd); +extern integer stgrey_(integer *fd, shortint *obuf, integer *maxch); +extern integer stgtxe_(integer *pksize); +extern integer sthash_(shortint *key, integer *moduls); +extern integer sthead_(integer *stp); +extern integer stname_(integer *stp, integer *sym); +extern integer stnext_(integer *stp, integer *sym); +extern integer stnsys_(integer *stp, integer *marker); +extern integer stopen_(shortint *name__, integer *leninx, integer *lenstb, integer *szsbuf); +extern integer stpstr_(integer *stp, shortint *str, integer *minchs); +extern integer strdic_(shortint *instr, shortint *outstr, integer *maxchs, shortint *dict); +extern integer strefb_(integer *stp, integer *offset); +extern integer streff_(integer *stp, integer *offset); +extern integer strese_(integer *fd); +extern integer strgee_(integer *fd); +extern integer strids_(shortint *set, shortint *str); +extern integer stridx_(shortint *ch, shortint *str); +extern integer strlds_(shortint *set, shortint *str); +extern integer strldx_(shortint *ch, shortint *str); +extern integer strmac_(shortint *macro, shortint *argstr, shortint *outstr, integer *maxch); +extern integer strmah_(shortint *str, shortint *pat); +extern integer strncp_(shortint *s1, shortint *s2, integer *n); +extern integer stropn_(shortint *str, integer *maxch, integer *mode); +extern integer strseh_(shortint *str, shortint *patstr); +extern integer stsize_(integer *stp); +extern integer sttygg_(shortint *args, integer *ip, shortint *keyw, integer *maxkc, shortint *value, integer *maxvc, integer *defact, integer *yesno); +extern integer sysged_(integer *fd, shortint *cmd, shortint *taskne, integer *arglit, integer *timeit, integer *prtype); +extern integer syshot_(shortint *keyfi1, shortint *keyfi2, shortint *parfie, shortint *showpt, logical *showvl); +extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint); +extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint); +extern integer ttopen_(shortint *termil, integer *mode); +extern integer ttstai_(integer *fd, integer *param); +extern integer ttstas_(integer *fd, integer *param, shortint *outstr, integer *maxch); +extern integer ttybih_(integer *capcoe, integer *tcapce, integer *ncaps); +extern integer ttycas_(integer *tty); +extern integer ttyctl_(integer *fd, integer *tty, shortint *cap, integer *afflnt); +extern integer ttyeny_(shortint *cap); +extern integer ttyexs_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer ttyfiy_(integer *tty, shortint *cap, integer *ip); +extern integer ttygds_(shortint *ttynae); +extern integer ttygei_(integer *tty, shortint *cap); +extern integer ttyges_(integer *tty, shortint *cap, shortint *outstr, integer *maxch); +extern integer ttylod_(shortint *fname, shortint *device, shortint *outstr, integer *maxch); +extern integer ttyods_(shortint *ttynae); +extern integer ttyopn_(shortint *termce, shortint *device, I_fp ttylod); +extern integer ttyred_(integer *fd, integer *tty, shortint *outbuf, integer *maxch, shortint *patbuf, integer *timeot); +extern integer ttysti_(integer *tty, integer *paramr); +extern integer ttysui_(shortint *ctrlsr, shortint *outstr, integer *maxch, integer *coords, integer *ncoors); +extern integer vfnadd_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfndee_(shortint *osfn, integer *ip, shortint *outstr, integer *maxch); +extern integer vfndel_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfnenr_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfngen_(integer *vfd, shortint *vfn, shortint *osfn, integer *maxch); +extern integer vfnise_(shortint *fname); +extern integer vfnmap_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfnmau_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfnopn_(shortint *vfn, integer *mode); +extern integer vfnunp_(integer *vfd, shortint *osfn, shortint *vfn, integer *maxch); +extern integer vvfncm_(shortint *a, integer *nchars); +extern integer wfgson_(shortint *atstr); +extern integer wfsmph_(doublereal *x, doublereal *v, integer *npts); +extern integer wlcree_(void); +extern integer wldir1_(integer *wlct, integer *flip, doublereal *polepn, logical *north, doublereal *polarn, doublereal *lbegin, doublereal *lend, doublereal *screey); +extern integer wlfine_(doublereal *x, doublereal *y, doublereal *screey); +extern integer wlfuln_(integer *wd, integer *labels, integer *nlabes, integer *axis, integer *side, integer *precin); +extern integer wlline_(shortint *linetg); +extern integer wlmaxy_(doublereal *array, integer *npts); +extern integer wloppe_(integer *side); +extern integer wlpren_(integer *wd, integer *axis); +extern integer xalloe_(shortint *device); +extern integer xdeale_(shortint *device, integer *rewind); +extern integer xdevor_(shortint *device, shortint *owner, integer *maxch); +extern integer xerpoi_(void); +extern integer xfaccs_(shortint *fname, integer *mode, integer *type__); +extern integer xfnote_(integer *fd); +extern integer xfopen_(shortint *fname, integer *mode, integer *type__); +extern integer xfpoll_(integer *fds, integer *nfds, integer *timeot); +extern integer xfread_(integer *fd, shortint *buffer, integer *maxchs); +extern integer xfscan_(integer *fd); +extern integer xgdevt_(shortint *device, shortint *outstr, integer *maxch, integer *onedev); +extern integer xgtpid_(void); +extern integer xisaty_(integer *fd); +extern integer xnint_(doublereal *x); +extern integer xsizef_(integer *dtype); +extern integer xstrcp_(shortint *s1, shortint *s2); +extern integer xstrln_(shortint *str); +extern integer xtargn_(shortint *argstr); +extern integer xtbaon_(integer *nc, integer *nl, integer *maxval); +extern integer xtext1_(shortint *files, shortint *exttye, shortint *index, shortint *extnae, shortint *extver, integer *lindex, integer *lname, integer *lver, shortint *ikpars, integer *err); +extern integer xtexts_(shortint *files, shortint *exttye, shortint *index, shortint *extnae, shortint *extver, integer *lindex, integer *lname, integer *lver, integer *datals, shortint *ikpars, integer *err, integer *imext); +extern integer xtfpd_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpi_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpit_(integer *pm, integer *lvalin, integer *cvalin); +extern integer xtfpl_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpr_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfps_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpsd_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpsi_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpsl_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpsr_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpss_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpvd_(integer *fp, integer *im, integer *line); +extern integer xtfpvi_(integer *fp, integer *im, integer *line); +extern integer xtfpvl_(integer *fp, integer *im, integer *line); +extern integer xtfpvr_(integer *fp, integer *im, integer *line); +extern integer xtfpvs_(integer *fp, integer *im, integer *line); +extern integer xtimes_(shortint *files, shortint *index, shortint *extnae, shortint *extver, integer *lindex, integer *lname, integer *lver, shortint *ikpars, integer *err); +extern integer xtimtm_(integer *list1, integer *list2, integer *list3, shortint *image1, shortint *image2, shortint *image3, integer *szimae); +extern integer xtlogn_(shortint *logpam, shortint *prefix, integer *logfd, integer *stdflg); +extern integer xtoc_(complex *xval, shortint *outstr, integer *maxch, integer *decpl, integer *fmt, integer *width); +extern integer xtsamd_(integer *im, integer *bpm, doublereal *sample, integer *nsampe, integer *nlines); +extern integer xtsami_(integer *im, integer *bpm, integer *sample, integer *nsampe, integer *nlines); +extern integer xtsamr_(integer *im, integer *bpm, real *sample, integer *nsampe, integer *nlines); +extern integer xtsams_(integer *im, integer *bpm, shortint *sample, integer *nsampe, integer *nlines); +extern integer xtscod_(integer *i__, integer *j); +extern integer xtscoe_(integer *i__, integer *j); +extern integer xttxtn_(shortint *fname); +extern integer xvvnee_(integer *type1, integer *type2); +extern integer xvvpah_(shortint *str, shortint *pat); +extern integer xxscan_(void); +extern integer ytfpit_(integer *pmin, integer *lvalin, integer *cvalin); +extern integer zsccoa_(real *a, shortint *badpix, integer *npix, real *mean, real *sigma); +extern integer zscfie_(real *data, integer *npix, real *zstart, real *zslope, real *krej, integer *ngrow, integer *maxitr); +extern integer zscpmn_(shortint *sectin, integer *refim); +extern integer zscres_(real *data, real *flat, real *normx, shortint *badpix, integer *npix, doublereal *sumxsr, doublereal *sumxz, doublereal *sumx, doublereal *sumz, real *thresd, integer *ngrow); +extern integer zttger_(integer *chan, integer *ch); +extern integer zttloe_(shortint *in, shortint *out, integer *nchars); +extern integer zttquy_(shortint *logtet, integer *nchars, shortint *dtext, integer *maxch, integer *szdtet); +extern logical aveqc_(shortint *a, shortint *b, integer *npix); +extern logical aveqd_(doublereal *a, doublereal *b, integer *npix); +extern logical aveqi_(integer *a, integer *b, integer *npix); +extern logical aveql_(integer *a, integer *b, integer *npix); +extern logical aveqr_(real *a, real *b, integer *npix); +extern logical aveqs_(shortint *a, shortint *b, integer *npix); +extern logical aveqx_(complex *a, complex *b, integer *npix); +extern logical clgetb_(shortint *param); +extern logical clgpsb_(integer *pp, shortint *parnae); +extern logical envgeb_(shortint *varnae); +extern logical fmlocd_(integer *fm, integer *lfile); +extern logical fnulle_(shortint *fname); +extern logical fpequd_(doublereal *x, doublereal *y); +extern logical fpequr_(real *x, real *y); +extern logical fpnonr_(real *x1, real *x2); +extern logical fxffpd_(doublereal *x, doublereal *y, integer *it); +extern logical fxfisk_(shortint *line); +extern logical fxfxn1_(shortint *buf, integer *dataln); +extern logical ggetb_(integer *gp, shortint *cap); +extern logical glbeq_(real *a, real *b); +extern logical gtygeb_(integer *tty, shortint *cap); +extern logical imgetb_(integer *im, shortint *key); +extern logical impml1_(integer *im); +extern logical impml2_(integer *im, integer *lineno); +extern logical impml3_(integer *im, integer *lineno, integer *bandno); +extern logical impmlv_(integer *im, integer *v); +extern logical impms1_(integer *im, integer *x1, integer *x2); +extern logical impms2_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern logical impms3_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern logical impmsv_(integer *im, integer *vs, integer *ve, integer *ndim); +extern logical isinre_(integer *ranges, integer *number); +extern logical itob_(integer *intege); +extern logical lisine_(integer *ranges, integer *number); +extern logical mefcmv_(integer *mef, shortint *extnae, integer *extver); +extern logical mefgeb_(integer *mef, shortint *key); +extern logical plempy_(integer *pl); +extern logical pllcot_(shortint *llsrc, integer *xs, integer *npix, integer *mval); +extern logical pllemy_(shortint *llsrc, integer *xs, integer *npix); +extern logical plleql_(shortint *l1, shortint *l2); +extern logical plliny_(integer *pl, integer *v); +extern logical plreqi_(integer *r1, integer *r2); +extern logical plreql_(integer *r1, integer *r2); +extern logical plreqs_(shortint *r1, shortint *r2); +extern logical plsect_(integer *plsrc, integer *v1, integer *v2, integer *ndim, integer *mval); +extern logical plsecy_(integer *plsrc, integer *v1, integer *v2, integer *ndim); +extern logical plubox_(integer *ufd, integer *y, integer *rlreg, integer *xs, integer *npix); +extern logical plucie_(integer *ufd, integer *y, integer *rlreg, integer *xs, integer *npix); +extern logical plupon_(integer *ufd, integer *line, integer *rlreg, integer *xs, integer *npix); +extern logical pmempy_(integer *pl); +extern logical pmliny_(integer *pl, integer *v); +extern logical pmsect_(integer *pl, integer *vs, integer *ve, integer *ndim, integer *mval); +extern logical pmsecy_(integer *pl, integer *vs, integer *ve, integer *ndim); +extern logical qpgetb_(integer *qp, shortint *param); +extern logical qplesd_(doublereal *x, doublereal *y); +extern logical qplesi_(integer *x, integer *y); +extern logical qplesr_(real *x, real *y); +extern logical rngeli_(integer *rg, integer *x); +extern logical rngelr_(integer *rg, real *x, real *delta); +extern logical rngini_(integer *rg, integer *x); +extern logical rnginr_(integer *rg, real *x); +extern logical sgewse_(void); +extern logical sgmexe_(integer *fn, shortint *gim, integer *nwords); +extern logical sgmspc_(integer *tr, integer *gki, integer *fn, shortint *gim, integer *bp, integer *buftop, integer *deletn); +extern logical sgmwse_(logical *enable); +extern logical sgmwsn_(integer *fn, shortint *gim, real *rx1, real *ry1, real *rx2, real *ry2); +extern logical streq_(shortint *s1, shortint *s2); +extern logical strge_(shortint *s1, shortint *s2); +extern logical strgt_(shortint *s1, shortint *s2); +extern logical strle_(shortint *s1, shortint *s2); +extern logical strlt_(shortint *s1, shortint *s2); +extern logical strne_(shortint *s1, shortint *s2); +extern logical strse1_(shortint *str, shortint *patstr, integer *patlen); +extern logical ttygeb_(integer *tty, shortint *cap); +extern logical xerpop_(void); +extern logical xtexth_(shortint *extnae, shortint *pattes); +extern logical xtimlq_(integer *im1, integer *im2); +extern logical xtimnq_(shortint *imnam1, shortint *imnam2); +extern real adoti_(integer *a, integer *b, integer *npix); +extern real adotr_(real *a, real *b, integer *npix); +extern real adots_(shortint *a, shortint *b, integer *npix); +extern real adotx_(complex *a, complex *b, integer *npix); +extern real aelogr_(real *x); +extern real agmaxi_(real *sval, real *zhgh, real *zdra, integer *nviz, integer *iivz, integer *nevz, integer *iiez); +extern real agmini_(real *sval, real *zlow, real *zdra, integer *nviz, integer *iivz, integer *nevz, integer *iiez); +extern real ahivr_(real *a, integer *npix); +extern real alovr_(real *a, integer *npix); +extern real amedr_(real *a, integer *npix); +extern real apolr_(real *x, real *coeff, integer *ncoeff); +extern real asokr_(real *a, integer *npix, integer *ksel); +extern real assqi_(integer *a, integer *npix); +extern real assqr_(real *a, integer *npix); +extern real assqs_(shortint *a, integer *npix); +extern real asumi_(integer *a, integer *npix); +extern real asumr_(real *a, integer *npix); +extern real asums_(shortint *a, integer *npix); +extern real c1dcer_(real *x, real *data, integer *npts, real *width); +extern real cented_(real *x, real *data, integer *npts, real *width, integer *type__, real *radius, real *thresd); +extern real cfux_(real *rx); +extern real cfuy_(real *ry); +extern real clgetr_(shortint *param); +extern real clgpsr_(integer *pp, shortint *parnae); +extern real cmfx_(integer *ix); +extern real cmfy_(integer *iy); +extern real cmux_(integer *ix); +extern real cmuy_(integer *iy); +extern real concom_(real *xq, real *yq, real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, integer *loc); +extern real conlcm_(real *x, real *y, real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, integer *loc); +extern real cpfx_(integer *ix); +extern real cpfy_(integer *iy); +extern real cpux_(integer *ix); +extern real cpuy_(integer *iy); +extern real cqdger_(integer *cq, integer *record, shortint *field); +extern real cqfger_(integer *cq, shortint *field); +extern real cqistr_(integer *res, integer *param); +extern real cqrstr_(integer *res, integer *param); +extern real cufx_(real *rx); +extern real cufy_(real *ry); +extern real dtgetr_(integer *dt, integer *record, shortint *field); +extern real elogr_(real *x); +extern real envger_(shortint *varnae); +extern real fpfixr_(real *x); +extern real fran_(void); +extern real gammln_(real *xx); +extern real gasdev_(integer *seed); +extern real ggetr_(integer *gp, shortint *cap); +extern real glbmip_(real *x1, real *x2, integer *nminor); +extern real glbtin_(integer *gp, integer *ax, real *ndcleh); +extern real grcrel_(shortint *opstr, integer *ip); +extern real gstatr_(integer *gp, integer *param); +extern real gtdise_(real *x, real *step, real *nearek); +extern real gtgetr_(integer *gt, integer *param); +extern real gtliny_(real *x1, real *x2); +extern real gtxctn_(integer *gp, real *x1, integer *wcs1, integer *wcs2); +extern real gtyctn_(integer *gp, real *y1, integer *wcs1, integer *wcs2); +extern real gtyger_(integer *tty, shortint *cap); +extern real icrmsr_(real *x, real *y, real *fit, real *wts, integer *npts); +extern real imgetr_(integer *im, shortint *key); +extern real imstar_(integer *im, integer *param); +extern real ingdvr_(real *x); +extern real ingetr_(integer *in, integer *param); +extern real inrmsr_(real *y, real *fit, real *wts, integer *npts); +extern real mefger_(integer *mef, shortint *key); +extern real mwc1tr_(integer *act, real *x); +extern real obsger_(integer *obs, shortint *param); +extern real poidev_(real *xm, integer *seed); +extern real qmspar_(real *uservl, real *defval); +extern real qpgetr_(integer *qp, shortint *param); +extern real qpiovr_(integer *io, integer *param); +extern real qpmaxr_(real *x, real *y); +extern real qpminr_(real *x, real *y); +extern real qpstar_(integer *qp, integer *param); +extern real rmgdaa_(integer *rm, integer *index); +extern real rmgmed_(integer *rm, real *nclip, integer *navg, real *blank, integer *exclue, shortint *nused); +extern real rmmed_(integer *rm, real *nclip, integer *navg, real *blank, integer *exclue, integer *index, real *in, shortint *mask, shortint *nused); +extern real rmsord_(integer *rm, real *nclip, integer *index, real *data); +extern real rmturh_(integer *rm, integer *index, real *data); +extern real rngnet_(integer *rg, real *x, integer *ival, real *rval); +extern real rpthe4_(real *p1x, real *p1y, real *p2x, real *p2y); +extern real ttyger_(integer *tty, shortint *cap); +extern real wldisr_(real *x1, real *y1, real *x2, real *y2); +extern shortint ahivc_(shortint *a, integer *npix); +extern shortint ahivs_(shortint *a, integer *npix); +extern shortint alovc_(shortint *a, integer *npix); +extern shortint alovs_(shortint *a, integer *npix); +extern shortint amedc_(shortint *a, integer *npix); +extern shortint ameds_(shortint *a, integer *npix); +extern shortint asokc_(shortint *a, integer *npix, integer *ksel); +extern shortint asoks_(shortint *a, integer *npix, integer *ksel); +extern shortint chfeth_(shortint *str, integer *ip, shortint *ch); +extern shortint chrlwr_(shortint *ch); +extern shortint chrupr_(shortint *ch); +extern shortint clgetc_(shortint *param); +extern shortint clgets_(shortint *param); +extern shortint clgpsc_(integer *pp, shortint *parnae); +extern shortint clgpss_(integer *pp, shortint *parnae); +extern shortint cqitye_(integer *itype); +extern shortint imgetc_(integer *im, shortint *key); +extern shortint imgets_(integer *im, shortint *key); +extern shortint mefgec_(integer *mef, shortint *key); +extern shortint mefges_(integer *mef, shortint *key); +extern shortint psfonr_(integer *ps, integer *font); +extern shortint qpgetc_(integer *qp, shortint *param); +extern shortint qpgets_(integer *qp, shortint *param); +extern shortint xfgetc_(integer *fd, shortint *ch); +extern shortint xfgetr_(shortint *ch); +extern int bitmov_(integer *a, integer *aoff, integer *b, integer *boff, integer *nbits); +extern int bswap2_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len); +extern int bswap4_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len); +extern int bytmov_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len); +extern int chrpak_(shortint *a, integer *aoff, char *b, integer *boff, integer *nchars, ftnlen b_len); +extern int chrupk_(char *a, integer *aoff, shortint *b, integer *boff, integer *nchars, ftnlen a_len); +extern int f77pak_(shortint *sppstr, char *f77str, integer *maxch, ftnlen f77str_len); +extern int f77upk_(char *f77str, shortint *sppstr, integer *maxch, ftnlen f77str_len); +extern int ieevpd_(doublereal *native, doublereal *ieee, integer *nelem); +extern int ieevud_(doublereal *ieee, doublereal *native, integer *nelem); +extern int ieepad_(doublereal *x); +extern int ieeupd_(doublereal *x); +extern int ieesnd_(doublereal *x); +extern int ieegnd_(doublereal *x); +extern int ieestd_(integer *onin, integer *onout); +extern int ieezsd_(void); +extern int ieemad_(integer *inval, integer *outval); +extern int ieegmd_(integer *inval, integer *outval); +extern int ieesmd_(integer *inval, integer *outval); +extern int ieevpr_(real *native, real *ieee, integer *nelem); +extern int ieevur_(real *ieee, real *native, integer *nelem); +extern int ieepar_(real *x); +extern int ieeupr_(real *x); +extern int ieesnr_(real *x); +extern int ieegnr_(real *x); +extern int ieestr_(integer *onin, integer *onout); +extern int ieezsr_(void); +extern int ieemar_(integer *inval, integer *outval); +extern int ieegmr_(integer *inval, integer *outval); +extern int ieesmr_(integer *inval, integer *outval); +extern integer miilen_(integer *nelems, integer *miidae); +extern integer miinem_(integer *nchars, integer *miitye); +extern int miipak_(integer *spp, integer *mii, integer *nelems, integer *sppdae, integer *miidae); +extern int miipa6_(integer *spp, integer *mii, integer *nelems, integer *sppdae); +extern int miipa2_(integer *spp, integer *mii, integer *nelems, integer *sppdae); +extern int miipa8_(integer *spp, integer *mii, integer *nelems, integer *sppdae); +extern int miipad_(integer *spp, doublereal *mii, integer *nelems, integer *sppdae); +extern int miipar_(integer *spp, real *mii, integer *nelems, integer *sppdae); +extern integer miipke_(integer *nelems, integer *miitye); +extern int miiupk_(integer *mii, integer *spp, integer *nelems, integer *miidae, integer *sppdae); +extern int miiup6_(integer *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiup2_(integer *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiup8_(integer *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiupd_(doublereal *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiupr_(real *mii, integer *spp, integer *nelems, integer *sppdae); +extern integer nmilen_(integer *nelems, integer *nmidae); +extern integer nminem_(integer *nchars, integer *nmitye); +extern int nmipak_(integer *spp, integer *nmi, integer *nelems, integer *sppdae, integer *nmidae); +extern int nmipa6_(integer *spp, integer *nmi, integer *nelems, integer *sppdae); +extern int nmipa2_(integer *spp, integer *nmi, integer *nelems, integer *sppdae); +extern int nmipa8_(integer *spp, integer *nmi, integer *nelems, integer *sppdae); +extern int nmipad_(integer *spp, doublereal *nmi, integer *nelems, integer *sppdae); +extern int nmipar_(integer *spp, real *nmi, integer *nelems, integer *sppdae); +extern integer nmipke_(integer *nelems, integer *nmitye); +extern int nmiupk_(integer *nmi, integer *spp, integer *nelems, integer *nmidae, integer *sppdae); +extern int nmiup6_(integer *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiup2_(integer *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiup8_(integer *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiupd_(doublereal *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiupr_(real *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int strpak_(shortint *instr, char *outstr, integer *maxch, ftnlen outstr_len); +extern int strupk_(char *instr, shortint *outstr, integer *maxch, ftnlen instr_len); +extern real urand_(integer *lseed); +extern integer xori_(integer *a, integer *b); +extern shortint xors_(shortint *a, shortint *b); +extern integer xorl_(integer *a, integer *b); +extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint); +extern int sbit_(void); +extern int tbit_(void); |