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 kfodpr_(void);
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 ktsdpr_(integer *jobcoe);
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);
