extern int clcint_(void);
extern int clcnek_(shortint *taskne);
extern int clcmak_(integer *marker);
extern int clcfre_(integer *marker);
extern int clcenr_(shortint *param, shortint *value);
extern integer clcfeh_(shortint *param, shortint *outstr, integer *maxch);
extern integer clcfid_(shortint *param, shortint *outstr, integer *maxch);
extern int clcscn_(shortint *cmd);
extern int clclit_(integer *fd, shortint *pset, shortint *format);
extern int clccos_(void);
extern int clcloe_(void);
extern int clcmd_(shortint *cmd);
extern int clcmdw_(shortint *cmd);
extern int clcpst_(integer *pp);
extern int clepst_(integer *pp);
extern integer clgcur_(shortint *param, real *wx, real *wy, integer *wcs, integer *key, shortint *strval, integer *maxch);
extern logical clgetb_(shortint *param);
extern shortint clgetc_(shortint *param);
extern doublereal clgetd_(shortint *param);
extern integer clgeti_(shortint *param);
extern integer clgetl_(shortint *param);
extern E_f clgetr_(shortint *param);
extern shortint clgets_(shortint *param);
extern C_f clgetx_(complex * ret_val, shortint *param);
extern integer clpopi_(shortint *param);
extern integer clpops_(shortint *param);
extern integer clpopu_(shortint *param);
extern integer clplen_(integer *list);
extern integer clgfil_(integer *list, shortint *fname, integer *maxch);
extern int clpcls_(integer *list);
extern int clprew_(integer *list);
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 int clgpst_(integer *pp, shortint *pname, shortint *outstr, integer *maxch);
extern int clgpsa_(integer *pp, shortint *pname, shortint *outstr, integer *maxch);
extern logical clgpsb_(integer *pp, shortint *parnae);
extern shortint clgpsc_(integer *pp, shortint *parnae);
extern doublereal clgpsd_(integer *pp, shortint *parnae);
extern integer clgpsi_(integer *pp, shortint *parnae);
extern integer clgpsl_(integer *pp, shortint *parnae);
extern E_f clgpsr_(integer *pp, shortint *parnae);
extern shortint clgpss_(integer *pp, shortint *parnae);
extern C_f clgpsx_(complex * ret_val, integer *pp, shortint *parnae);
extern int clgstr_(shortint *param, shortint *outstr, integer *maxch);
extern integer clgwrd_(shortint *param, shortint *keywod, integer *maxchr, shortint *dictiy);
extern int cllpst_(integer *pp, integer *fd, shortint *format);
extern int clopen_(integer *stdinn, integer *stdoun, integer *stdern, integer *device, integer *devtye);
extern integer clopst_(shortint *pset);
extern int clppst_(integer *pp, shortint *pname, shortint *sval);
extern int clppsa_(integer *pp, shortint *pname, shortint *sval);
extern int clppsb_(integer *pp, shortint *parnae, logical *bval);
extern int clppsc_(integer *pp, shortint *parnae, shortint *cval);
extern int clppsd_(integer *pp, shortint *parnae, doublereal *dval);
extern int clppsi_(integer *pp, shortint *parnae, integer *ival);
extern int clppsl_(integer *pp, shortint *parnae, integer *lval);
extern int clppsr_(integer *pp, shortint *parnae, real *rval);
extern int clppss_(integer *pp, shortint *parnae, shortint *sval);
extern int clppsx_(integer *pp, shortint *parnae, complex *xval);
extern integer clpsee_(integer *pp, shortint *parnae);
extern int clpstr_(shortint *param, shortint *value);
extern int clputb_(shortint *param, logical *bval);
extern int clputc_(shortint *param, shortint *cval);
extern int clputd_(shortint *param, doublereal *dval);
extern int clputi_(shortint *param, integer *value);
extern int clputs_(shortint *param, shortint *value);
extern int clputl_(shortint *param, integer *lval);
extern int clputr_(shortint *param, real *rval);
extern int clputx_(shortint *param, complex *xval);
extern int clreqr_(shortint *param);
extern int clseti_(integer *paramr, integer *value);
extern integer clstai_(integer *paramr);
extern int gexfls_(void);
extern int gexflt_(integer *stream, integer *gpvale, integer *epagfh);
extern int gexflr_(integer *stream);
extern integer rdukey_(shortint *keystr, integer *maxch);
extern int zclsps_(integer *chan, integer *status);
extern int zardps_(integer *ps, shortint *buf, integer *maxbys, integer *offset);
extern int zawrps_(integer *ps, shortint *buf, integer *nbytes, integer *offset);
extern int zawtps_(integer *ps, integer *status);
extern int zsttps_(integer *ps, integer *what, integer *lvalue);
extern integer clpsit_(shortint *cmd, integer *arg1, integer *arg2);
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 int miiwrd_(integer *fd, integer *spp, integer *nelem);
extern int miiwri_(integer *fd, integer *spp, integer *nelem);
extern int miiwrl_(integer *fd, integer *spp, integer *nelem);
extern int miiwrr_(integer *fd, integer *spp, integer *nelem);
extern int miiwrs_(integer *fd, integer *spp, integer *nelem);
extern int brktie_(integer *ltime, integer *tm);
extern integer btoi_(logical *boolee);
extern integer clktie_(integer *oldtie);
extern int cnvdae_(integer *ltime, shortint *outstr, integer *maxch);
extern int cnvtie_(integer *ltime, shortint *outstr, integer *maxch);
extern integer cputie_(integer *oldcpe);
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 doublereal dtmday_(integer *year, integer *month, integer *day, doublereal *t);
extern logical envgeb_(shortint *varnae);
extern doublereal envged_(shortint *varnae);
extern integer envgei_(shortint *varnae);
extern E_f envger_(shortint *varnae);
extern integer envges_(shortint *key, shortint *value, integer *maxch);
extern int envinr_(shortint *envvar, shortint *outstr, integer *maxch);
extern int envint_(void);
extern integer envfid_(shortint *key, shortint *value, integer *maxch);
extern integer envpus_(shortint *key, shortint *value);
extern int envmak_(integer *oldtop);
extern integer envfre_(integer *oldtop, integer *userfn);
extern int envlit_(integer *fd, shortint *prefix, integer *prints);
extern integer envfit_(integer *valp);
extern integer envnet_(integer *lastel, integer *valp, integer *showrs);
extern int envret_(shortint *key, shortint *value);
extern integer envscn_(shortint *cmd);
extern int erract_(integer *severy);
extern integer errcoe_(void);
extern integer errget_(shortint *outstr, integer *maxch);
extern int xerror_(integer *errore, shortint *messae);
extern int xfatal_(integer *errore, shortint *messae);
extern int xeract_(integer *errore, shortint *messae, integer *severy);
extern int gethot_(shortint *outstr, integer *maxch);
extern integer xgtpid_(void);
extern int xgtuid_(shortint *userne, integer *maxch);
extern integer gmttot_(integer *gmt);
extern integer lsttot_(integer *lst);
extern int gqsort_(integer *x, integer *nelem, I_fp compae, integer *arg);
extern int intrde_(void);
extern int intree_(void);
extern int intrrt_(void);
extern logical itob_(integer *intege);
extern integer lnoopn_(integer *maxlis);
extern int lnocle_(integer *lp);
extern int lnosae_(integer *lp, integer *line, integer *loffst, integer *ltag);
extern integer lnofeh_(integer *lp, integer *line, integer *loffst, integer *ltag);
extern integer locpr_(U_fp proc);
extern integer locva_(integer *variae);
extern integer lpopen_(shortint *device, integer *mode, integer *type__);
extern int lpzard_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int lpzawe_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int lpzawt_(integer *chan, integer *nbytes);
extern int maideh_(void);
extern int xstdeh_(integer *excepn, integer *nexthr);
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 sysged_(integer *fd, shortint *cmd, shortint *taskne, integer *arglit, integer *timeit, integer *prtype);
extern int syssct_(integer *cmdin, shortint *iargs);
extern int sysges_(shortint *fname);
extern int syspat_(shortint *args, integer *ip, logical *skip);
extern int sysret_(shortint *args, integer *ip);
extern int sysgsg_(shortint *args, integer *ip, shortint *outstr, integer *maxch);
extern integer miirec_(integer *fd, integer *spp, integer *maxchs);
extern int miiwrc_(integer *fd, integer *spp, integer *nchars);
extern integer onenty_(integer *prtype, shortint *bkgfie, shortint *cmd);
extern int onerrr_(U_fp userpc);
extern int onerre_(U_fp userpc);
extern int xonerr_(integer *status);
extern int onexit_(U_fp userpc);
extern int onexie_(U_fp userpc);
extern int xonext_(integer *exitce);
extern integer oscmd_(shortint *cmd, shortint *infile__, shortint *outfie, shortint *errfie);
extern int pagefs_(shortint *files);
extern int pagefe_(shortint *fname, shortint *prompt);
extern int xpages_(shortint *files, shortint *device, shortint *prompt, integer *firste, integer *clearn, integer *mapcc);
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 int pgsett_(shortint *prompt, shortint *upromt, shortint *fname);
extern integer pggete_(integer *fd, shortint *lbuf);
extern integer pggetd_(integer *tty, shortint *fname, integer *nchars, integer *totchs, integer *lineno, integer *fileno, integer *nfiles);
extern int pggetr_(shortint *strval, integer *maxch);
extern int pgpusd_(integer *cmd);
extern integer pgpeed_(void);
extern int prchdr_(integer *pid, shortint *newdir);
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 int prvret_(shortint *name__, shortint *value);
extern int prenvt_(integer *pid, shortint *envvar, shortint *valuer);
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 int prkill_(integer *job);
extern integer propcr_(shortint *proces, integer *in, integer *out);
extern int prdumn_(shortint *osfn, integer *mode, integer *chan);
extern int przclr_(integer *chan, integer *status);
extern int pronic_(integer *vex, integer *nexthr);
extern integer propdr_(shortint *proces, shortint *bkgfie, shortint *bkgmsg);
extern integer propen_(shortint *proces, integer *in, integer *out);
extern int proscd_(integer *pr, shortint *cmd);
extern integer prpsio_(integer *pid, integer *fd, integer *rwflag);
extern int prpsld_(U_fp giotr, U_fp contrl, U_fp gflush, U_fp writep, U_fp readty, U_fp writey);
extern int prredr_(integer *pid, integer *stream, integer *newfd);
extern int prseti_(integer *pid, integer *param, integer *value);
extern int prsigl_(integer *pid, integer *signal);
extern integer prstai_(integer *pid, integer *param);
extern int prupde_(integer *pid, shortint *messae, integer *flusht);
extern integer psioit_(shortint *lbuf, integer *pseude, integer *nchars);
extern int psioxr_(integer *fd, shortint *buf, integer *nchars);
extern int xqsort_(integer *x, integer *nelem, I_fp compae);
extern int sttyco_(shortint *args, integer *ttin, integer *ttout, integer *outfd);
extern int sttynm_(integer *ttin, integer *ttout, shortint *termil);
extern int sttyse_(integer *ttin, integer *ttout, integer *tty);
extern int sttytt_(integer *ttin, integer *ttout, shortint *termil);
extern int sttyet_(shortint *envvar, shortint *value);
extern int sttysm_(integer *ttin, integer *ttout, integer *fd, integer *all);
extern integer sttygg_(shortint *args, integer *ip, shortint *keyw, integer *maxkc, shortint *value, integer *maxvc, integer *defact, integer *yesno);
extern int syserr_(integer *errcoe);
extern int sysers_(integer *errcoe, shortint *usersg);
extern int sysid_(shortint *outstr, integer *maxch);
extern int syspac_(integer *errcoe, shortint *errmsg);
extern int sysmte_(integer *savete);
extern int syspte_(integer *fd, shortint *opstr, integer *savete);
extern int tsleep_(integer *secons);
extern integer ttopen_(shortint *termil, integer *mode);
extern int ttseti_(integer *fd, integer *param, integer *value);
extern integer ttstai_(integer *fd, integer *param);
extern int ttsets_(integer *fd, integer *param, shortint *svalue);
extern integer ttstas_(integer *fd, integer *param, shortint *outstr, integer *maxch);
extern integer xalloe_(shortint *device);
extern integer xdeale_(shortint *device, integer *rewind);
extern int xdevss_(shortint *device, integer *out);
extern integer xdevor_(shortint *device, shortint *owner, integer *maxch);
extern int xerfmg_(shortint *errmsg, shortint *outstr, integer *maxch);
extern int xerpsh_(void);
extern logical xerpop_(void);
extern integer xerpoi_(void);
extern int xerpue_(integer *fd, shortint *text);
extern int xerret_(void);
extern int xersel_(integer *errcoe);
extern int xerpsr_(shortint *str);
extern int xervey_(void);
extern integer xgdevt_(shortint *device, shortint *outstr, integer *maxch, integer *onedev);
extern integer xisaty_(integer *fd);
extern int xmjbuf_(integer *bp);
extern int xttyse_(integer *width, integer *height);
extern int xwhen_(integer *signal, integer *handlr, integer *oldhar);
extern integer xfaccs_(shortint *fname, integer *mode, integer *type__);
extern int aread_(integer *fd, shortint *buffer, integer *maxchs, integer *charot);
extern int areadb_(integer *fd, shortint *buffer, integer *maxbys, integer *byteot);
extern integer await_(integer *fd);
extern integer awaitb_(integer *fd);
extern int awrite_(integer *fd, shortint *buffer, integer *nchars, integer *charot);
extern int awritb_(integer *fd, shortint *buffer, integer *nbytes, integer *byteot);
extern int xfcloe_(integer *fdarg);
extern int xfdele_(shortint *fname);
extern int deletg_(shortint *fname, integer *versis, integer *subfis);
extern integer diropn_(shortint *fname, integer *mode);
extern int fopdir_(shortint *osfn, integer *mode, integer *channl);
extern int fcldir_(integer *channl, integer *status);
extern int fgtdir_(integer *chan, shortint *outlie, integer *maxch, integer *status);
extern int fptdir_(integer *chan, shortint *line, integer *nchars, integer *status);
extern int ffldir_(integer *chan, integer *status);
extern int fstdir_(integer *chan, integer *param, integer *lvalue);
extern int fskdir_(integer *chan, integer *offset, integer *status);
extern int fntdir_(integer *chan, integer *offset);
extern int falloc_(shortint *fname, integer *filese);
extern int fcanpb_(integer *fd);
extern int xfchdr_(shortint *newdir);
extern int fclobr_(shortint *fname);
extern int fcopy_(shortint *oldfie, shortint *newfie);
extern int fcopyo_(integer *in, integer *out);
extern int fdebug_(integer *out, integer *fd1arg, integer *fd2arg);
extern int fdevbf_(U_fp zard, U_fp zawr, U_fp zawt, U_fp zstt, U_fp zcls);
extern integer fdevbk_(shortint *path);
extern int fdevtx_(U_fp zget, U_fp zput, U_fp zfls, U_fp zstt, U_fp zcls, U_fp zsek, U_fp znot);
extern int fdirne_(shortint *vfn, shortint *path, integer *maxch);
extern int fexbuf_(integer *fd);
extern integer ffault_(integer *fd, integer *fileot, integer *nresee, integer *rwflag);
extern int ffilbf_(integer *fd, integer *bp, integer *bufsie, integer *buffet);
extern integer ffilsz_(integer *fd);
extern int fflsbf_(integer *fd, integer *bp, integer *maxchs, integer *buffet);
extern int fgdevm_(integer *fd);
extern integer fgdev0_(integer *ffp, integer *what);
extern integer fgetfd_(shortint *filene, integer *mode, integer *type__);
extern integer fsetfd_(integer *fd, shortint *filene, integer *mode, integer *type__);
extern integer filbuf_(integer *fd);
extern int filerr_(shortint *fname, integer *errcoe);
extern integer filopn_(shortint *fname, integer *mode, integer *type__, S_fp zopenc, U_fp device);
extern integer finfo_(shortint *fname, integer *ostrut);
extern int finit_(void);
extern int fioclp_(integer *status);
extern int fioqfh_(integer *fd, integer *status);
extern int flsbuf_(integer *fd, integer *nresee);
extern int xffluh_(integer *fd);
extern int fmapfn_(shortint *vfn, shortint *osfn, integer *maxch);
extern int fmkbfs_(integer *fd);
extern int fmkcoy_(shortint *oldfie, shortint *newfie);
extern int fmkdir_(shortint *newdir);
extern int fmkpbf_(integer *fd);
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 fntopb_(shortint *temple, integer *sort);
extern int fntmkt_(shortint *pat, shortint *patstr, integer *maxch, integer *ep, integer *nedit);
extern integer fntedt_(shortint *in, shortint *out, integer *editp, integer *nedit, shortint *patbuf);
extern integer fntgfb_(integer *list, shortint *fname, integer *maxch);
extern integer fntrfb_(integer *list, integer *index, shortint *fname, integer *maxch);
extern int fntclb_(integer *list);
extern int fntreb_(integer *list);
extern integer fntleb_(integer *list);
extern integer fntget_(shortint *temple, integer *ix, integer *patp, integer *npat, integer *sbuf, integer *maxch);
extern integer fntgfn_(integer *pp, shortint *outstr, integer *maxch);
extern integer fntree_(integer *pp, shortint *outstr, integer *maxch, integer *token);
extern integer fntopt_(shortint *str, shortint *patstr, integer *maxch, shortint *fname, shortint *ldir, integer *ftype);
extern integer fntopn_(shortint *temple);
extern int fntcls_(integer *pp);
extern logical fnulle_(shortint *fname);
extern integer fopnbf_(shortint *fname, integer *mode, U_fp zopn, U_fp zard, U_fp zawr, U_fp zawa, U_fp zstt, U_fp zcls);
extern integer fopntx_(shortint *fname, integer *mode, U_fp zopn, U_fp zget, U_fp zput, U_fp zfls, U_fp zstt, U_fp zcls, U_fp zsek, U_fp znot);
extern int fowner_(shortint *fname, shortint *owner, integer *maxch);
extern int fpathe_(shortint *vfn, shortint *outpue, integer *maxchs);
extern int fputtx_(integer *fd, shortint *buf, integer *nchars, integer *status);
extern integer freadp_(integer *fd, integer *offset, integer *nchars);
extern int fredir_(integer *fd, shortint *fname, integer *mode, integer *type__);
extern int fredio_(integer *fd, integer *newfd);
extern int frenae_(shortint *oldfne, shortint *newfne);
extern int frmbfs_(integer *fd);
extern int frtnfd_(integer *fd);
extern int fseti_(integer *fd, integer *param, integer *value);
extern int fsetev_(shortint *envvar, integer *value);
extern integer fsfopn_(shortint *fname, integer *mode);
extern int fsfdee_(shortint *fname);
extern int fsfgee_(shortint *fname, shortint *fsffie, integer *maxch);
extern integer fstati_(integer *fd, integer *what);
extern integer fstatl_(integer *fd, integer *what);
extern int fstats_(integer *fd, integer *what, shortint *outstr, integer *maxch);
extern integer fstdfe_(shortint *fname, integer *ofd);
extern int fstrfp_(integer *newfp);
extern int fsvtfn_(shortint *fname);
extern int frmtmp_(void);
extern int fswapd_(integer *fd1, integer *fd2);
extern int fwatio_(integer *fd);
extern integer fwritp_(integer *fd, integer *offset, integer *nchars);
extern int fwtacc_(integer *fd, shortint *fname);
extern shortint xfgetc_(integer *fd, shortint *ch);
extern shortint xfgetr_(shortint *ch);
extern integer getci_(integer *fd, integer *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 int xmktep_(shortint *seed, shortint *tempfe, integer *maxchs);
extern integer ndopen_(shortint *fname, integer *mode);
extern integer xfnote_(integer *fd);
extern integer nowhie_(shortint *in, shortint *out, integer *maxch);
extern int zopnnu_(shortint *osfn, integer *mode, integer *chan);
extern int zclsnu_(integer *chan, integer *status);
extern int zsttnu_(integer *chan, integer *param, integer *lvalue);
extern int zardnu_(integer *chan, shortint *buf, integer *maxbys, integer *loffst);
extern int zawrnu_(integer *chan, shortint *buf, integer *nbytes, integer *loffst);
extern int zawtnu_(integer *chan, integer *status);
extern int zgetnu_(integer *chan, shortint *buf, integer *maxch, integer *status);
extern int zputnu_(integer *chan, shortint *buf, integer *nchars, integer *status);
extern int zflsnu_(integer *chan, integer *status);
extern int zseknu_(integer *chan, integer *loffst, integer *status);
extern int znotnu_(integer *chan, integer *loffst);
extern integer xfopen_(shortint *fname, integer *mode, integer *type__);
extern integer osfnlk_(shortint *osfn);
extern integer osfntt_(shortint *osfn, integer *time);
extern integer osfnuk_(shortint *osfn, integer *time);
extern int osfnrk_(shortint *osfn);
extern int osfnik_(shortint *osfn);
extern int osfnms_(shortint *osfn, shortint *lockfe, shortint *timel1, shortint *timel2, integer *maxch);
extern int osfnpe_(shortint *spposn, shortint *hoston, integer *maxch);
extern integer protet_(shortint *fname, integer *action);
extern int xfputc_(integer *fd, shortint *ch);
extern int xfputr_(shortint *ch);
extern int putcc_(integer *fd, shortint *ch);
extern int putci_(integer *fd, integer *ch);
extern int putlie_(integer *fd, shortint *linebf);
extern integer xfread_(integer *fd, shortint *buffer, integer *maxchs);
extern int xfrnam_(shortint *oldnae, shortint *newnae);
extern integer reopen_(integer *fd, integer *mode);
extern int xfseek_(integer *fd, integer *offset);
extern integer stropn_(shortint *str, integer *maxch, integer *mode);
extern int strcle_(integer *fd);
extern int strsee_(integer *fd, integer *mode);
extern integer strgee_(integer *fd);
extern int xfungc_(integer *fd, shortint *ch);
extern int ungeti_(integer *fd, integer *ch);
extern int ungete_(integer *fd, shortint *str);
extern int unread_(integer *fd, shortint *buf, integer *nchars);
extern integer vfnopn_(shortint *vfn, integer *mode);
extern integer vfnmap_(integer *vfd, shortint *osfn, integer *maxch);
extern integer vfnmau_(integer *vfd, shortint *osfn, integer *maxch);
extern integer vfnadd_(integer *vfd, shortint *osfn, integer *maxch);
extern integer vfndel_(integer *vfd, shortint *osfn, integer *maxch);
extern integer vfnunp_(integer *vfd, shortint *osfn, shortint *vfn, integer *maxch);
extern int vfncle_(integer *vfd, integer *update);
extern int vvfnre_(integer *vfd);
extern integer vfnenr_(integer *vfd, shortint *osfn, integer *maxch);
extern integer vfngen_(integer *vfd, shortint *vfn, shortint *osfn, integer *maxch);
extern integer vvfncm_(shortint *a, integer *nchars);
extern int vfntre_(shortint *rawvfn, shortint *osdir, integer *lenosr, shortint *root, integer *lenrot, shortint *extn, integer *lenexn);
extern int vfnexr_(shortint *vfn, shortint *outstr, integer *maxch);
extern int vfnene_(shortint *vfn, integer *ip, shortint *root, integer *lenrot, shortint *extn, integer *lenexn);
extern int vvfnee_(integer *ch, shortint *outbuf, integer *op, integer *maxch);
extern integer vfndee_(shortint *osfn, integer *ip, shortint *outstr, integer *maxch);
extern int vfnman_(shortint *irafen, shortint *osextn, integer *maxch);
extern int vfnunn_(shortint *osextn, shortint *irafen, integer *maxch);
extern int vvfnip_(shortint *map, shortint *iraf, shortint *os, integer *nextn, integer *maxexn);
extern int vfnsqe_(shortint *root, shortint *outstr, integer *maxch);
extern integer vfnise_(shortint *fname);
extern int vvfnis_(shortint *ex, shortint *extn, integer *maxexn, integer *nextn);
extern int xfwrie_(integer *fd, shortint *buffer, integer *maxchs);
extern int xerpuc_(shortint *ch);
extern int zgettt_(integer *fd, shortint *buf, integer *maxch, integer *status);
extern int zputtt_(integer *fd, shortint *buf, integer *nchars, integer *status);
extern int zttloo_(integer *inflag, integer *outflg);
extern int zttplk_(integer *flag__);
extern int zttpbf_(integer *errcoe);
extern int zttlov_(integer *chan);
extern int zttpug_(integer *chan, shortint *dstr, integer *nchars);
extern int zttgeg_(integer *chan, shortint *obuf, integer *maxch, integer *nchars);
extern integer zttquy_(shortint *logtet, integer *nchars, shortint *dtext, integer *maxch, integer *szdtet);
extern integer zttger_(integer *chan, integer *ch);
extern integer zttloe_(shortint *in, shortint *out, integer *nchars);
extern int zttupe_(shortint *in, shortint *out, integer *nchars);
extern int zttttt_(shortint *messae);
extern int zsettt_(integer *chan, integer *param, integer *value);
extern int zstttt_(integer *fd, integer *param, integer *lvalue);
extern int zsestt_(integer *fd, integer *param, shortint *svalue);
extern int zststt_(integer *fd, integer *param, shortint *outstr, integer *maxch, integer *nchars);
extern int zopntt_(shortint *osfn, integer *mode, integer *chan);
extern int zclstt_(integer *fd, integer *status);
extern int zflstt_(integer *fd, integer *status);
extern int zsektt_(integer *fd, integer *offset, integer *status);
extern int znottt_(integer *fd, integer *offset);
extern integer fmaccs_(shortint *dfname, integer *mode);
extern int fmcloe_(integer *fm);
extern int fmcopy_(shortint *dfname, shortint *newnae);
extern int fmcopo_(integer *old, integer *new__);
extern int fmdebg_(integer *fm, integer *out, integer *what);
extern int fmdele_(shortint *dfname);
extern integer fmgetd_(integer *fm, integer *lfile, integer *mode, integer *type__);
extern int fmretd_(integer *fm, integer *lfile);
extern int fmloct_(integer *fm, integer *lfile);
extern int fmunlk_(integer *fm, integer *lfile);
extern logical fmlocd_(integer *fm, integer *lfile);
extern integer fmfinf_(integer *fc, integer *lfile);
extern int fmfcdg_(integer *fm, integer *out, integer *what);
extern int fmfcit_(integer *fm, integer *cachee);
extern int fmfcfe_(integer *fm);
extern int fmfcsc_(integer *fm);
extern integer fmfopn_(integer *fm, integer *lfile, integer *mode, integer *type__);
extern int fmiobd_(integer *fm);
extern int fmioek_(integer *fm);
extern integer fmioed_(integer *fm, integer *lfile, integer *npages);
extern int fmiopr_(integer *fm, integer *errcoe, shortint *opstr);
extern int fmiorr_(integer *fm);
extern int fmiosf_(integer *fm);
extern int fmiotk_(integer *fm);
extern int fmlfad_(integer *lf, shortint *buf, integer *maxbys, integer *offset);
extern int fmlfae_(integer *lf, shortint *buf, integer *nbytes, integer *offset);
extern int fmlfat_(integer *lf, integer *status);
extern int fmlfbd_(integer *lf, shortint *buf, integer *maxbys, integer *offset);
extern int fmlfbe_(integer *lf, shortint *buf, integer *nbytes, integer *offset);
extern int fmlfbt_(integer *lf, integer *status);
extern int fmlfce_(integer *lf, integer *status);
extern int fmlfcy_(integer *old, integer *olfile, integer *new__, integer *nlfile);
extern int fmlfde_(integer *fm, integer *lfile);
extern int fmlfne_(integer *fm, integer *lfile, integer *type__, shortint *lfname, integer *maxch);
extern int fmlfon_(shortint *pklfne, integer *mode, integer *chan);
extern integer fmlfpe_(shortint *lfname, integer *fm, integer *lfile, integer *type__);
extern integer fmlfst_(integer *fm, integer *lfile, integer *statbf);
extern int fmlfsi_(integer *lf, integer *param, integer *lvalue);
extern int fmlfue_(integer *fm, integer *lfile);
extern integer fmnexe_(integer *fm);
extern integer fmopen_(shortint *fname, integer *mode);
extern int fmrebd_(shortint *dfname);
extern int fmrene_(shortint *old, shortint *new__);
extern int fmseti_(integer *fm, integer *param, integer *value);
extern integer fmstai_(integer *fm, integer *param);
extern int fmsync_(integer *fm);
extern integer cctoc_(shortint *str, integer *ip, shortint *cval);
extern int chdept_(shortint *ch, shortint *str, integer *maxch, integer *op);
extern shortint chfeth_(shortint *str, integer *ip, shortint *ch);
extern shortint chrlwr_(shortint *ch);
extern shortint chrupr_(shortint *ch);
extern int clprif_(shortint *param, shortint *formag);
extern integer clscan_(shortint *param);
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 int dtcscl_(doublereal *v, integer *e, integer *sense);
extern integer dtoc_(doublereal *dval, shortint *outstr, integer *maxch, integer *decpl, integer *afmt, integer *width);
extern integer dtoc3_(doublereal *val, shortint *out, integer *maxch, integer *decpl, integer *afmt, integer *width);
extern int eprinf_(shortint *formag);
extern integer evexpr_(shortint *expr, integer *getopa, integer *ufcnea);
extern int xevunp_(integer *opcode, integer *in, integer *out);
extern int xevbip_(integer *opcode, integer *in1, integer *in2, integer *out);
extern int xevbop_(integer *opcode, integer *in1, integer *in2, integer *out);
extern integer xevpah_(shortint *str, shortint *pat);
extern integer xevnee_(integer *type1, integer *type2);
extern int xevqut_(integer *cond, integer *trueop, integer *falsep, integer *out);
extern int xevcan_(shortint *fcn, integer *args, integer *nargs, integer *out);
extern int xevstt_(integer *arg, integer *out);
extern int xevadg_(integer *arg, integer *arglit, integer *out);
extern int xever1_(shortint *fmt, shortint *arg);
extern int xever2_(shortint *fmt, shortint *arg1, integer *arg2);
extern int xeverr_(shortint *errmsg);
extern integer xevgek_(integer *ip, integer *out);
extern int xevinp_(integer *o, integer *olen, integer *otype);
extern int xevmap_(integer *o, integer *olen, integer *otype);
extern int xevfrp_(integer *o);
extern integer xevpae_(integer *fd, logical *yydebg, I_fp yylex);
extern integer evvexr_(shortint *expr, integer *getop, integer *getopa, integer *ufcn, integer *ufcnda, integer *flags);
extern int evvfre_(integer *o);
extern int xvvunp_(integer *opcode, integer *in, integer *out);
extern int xvvbip_(integer *opcode, integer *in1, integer *in2, integer *out);
extern int xvvbop_(integer *opcode, integer *in1, integer *in2, integer *out);
extern integer xvvpah_(shortint *str, shortint *pat);
extern integer xvvnee_(integer *type1, integer *type2);
extern int xvvqut_(integer *cond, integer *in1, integer *in2, integer *out);
extern int xvvcan_(shortint *fcn, integer *args, integer *nargs, integer *out);
extern int xvvstt_(integer *arg, integer *out);
extern int xvvadg_(integer *arg, integer *arglit, integer *out);
extern int xvver1_(shortint *fmt, shortint *arg);
extern int xvver2_(shortint *fmt, shortint *arg1, integer *arg2);
extern int xvverr_(shortint *errmsg);
extern integer xvvgek_(integer *ip, integer *out);
extern int xvvche_(integer *o1, integer *o2, integer *dtype);
extern int xvvinp_(integer *o, integer *olen, integer *otype);
extern int xvvmap_(integer *o, integer *olen, integer *otype);
extern int xvvfrp_(integer *o);
extern integer xvvlos_(shortint *s);
extern shortint xvvnus_(shortint *ignore);
extern integer xvvnui_(integer *ignore);
extern integer xvvnul_(integer *ignore);
extern E_f xvvnur_(real *ignore);
extern doublereal xvvnud_(doublereal *ignore);
extern integer xvvpae_(integer *fd, logical *yydebg, I_fp yylex);
extern int fmterr_(shortint *preame, shortint *format, integer *index);
extern int fmtint_(integer *ftype);
extern int fmtred_(void);
extern int fmtsel_(shortint *ch, integer *col);
extern int fmtstr_(integer *fd, shortint *str, integer *col, shortint *fillcr, integer *leftjy, integer *maxch, integer *width);
extern int fpradv_(void);
extern integer fprfmt_(integer *ival);
extern int fprinf_(integer *fd, shortint *formag);
extern int fprntf_(integer *newfd, shortint *formag, integer *filete);
extern integer xfscan_(integer *fd);
extern integer xxscan_(void);
extern int gargb_(logical *bval);
extern int gargc_(shortint *cval);
extern int gargd_(doublereal *dval);
extern int gargi_(integer *ival);
extern int gargl_(integer *lval);
extern int gargr_(real *rval);
extern int gargrd_(integer *lval, integer *radix);
extern int gargs_(shortint *sval);
extern int gargsr_(shortint *outstr, integer *maxch);
extern int gargtk_(integer *token, shortint *outstr, integer *maxch);
extern int gargwd_(shortint *outstr, integer *maxch);
extern int gargx_(complex *xval);
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 gltoc_(integer *lval, shortint *outstr, integer *maxch, integer *base);
extern integer gstrct_(shortint *str, shortint *outstr, integer *maxch);
extern integer gstrcy_(shortint *s1, shortint *s2, integer *maxch);
extern integer itoc_(integer *ival, shortint *str, integer *maxch);
extern integer lexnum_(shortint *str, integer *ipstat, integer *nchars);
extern integer ltoc_(integer *lval, shortint *outstr, integer *maxch);
extern integer nscan_(void);
extern int pargd_(doublereal *dval);
extern int pargc_(shortint *cval);
extern int pargs_(shortint *sval);
extern int pargi_(integer *ival);
extern int pargl_(integer *lval);
extern int pargr_(real *rval);
extern int pargg_(doublereal *value, integer *dtype);
extern int pargb_(logical *bval);
extern int pargsr_(shortint *str);
extern int pargx_(complex *xval);
extern integer patmah_(shortint *str, shortint *pat);
extern integer gpatmh_(shortint *str, shortint *pat, integer *firstr, integer *lastcr);
extern integer patinx_(shortint *pat, integer *n);
extern integer patamh_(shortint *str, integer *from, shortint *pat);
extern integer patgse_(shortint *pat, integer *n);
extern integer patomh_(shortint *str, integer *ip, shortint *pat, integer *pp);
extern integer patloe_(shortint *ch, shortint *pat, integer *offset);
extern integer patmae_(shortint *str, shortint *pat, integer *szpat);
extern integer gpatme_(shortint *patstr, integer *from, integer *delim, shortint *patbuf, integer *szpat);
extern integer patgel_(shortint *patstr, shortint *patbuf, integer *szpat, integer *ip, integer *op);
extern integer patsts_(shortint *patbuf, integer *szpat, integer *op, integer *lastop, integer *lastce);
extern int patfit_(integer *delim, shortint *patstr, integer *ip, shortint *patbuf, integer *szpat, integer *op);
extern int xprinf_(shortint *formag);
extern int resetn_(void);
extern int scanc_(shortint *cval);
extern int sprinf_(shortint *outstr, integer *maxch, shortint *formag);
extern int sscan_(shortint *str);
extern int xstrct_(shortint *str, shortint *outstr, integer *maxch);
extern integer xstrcp_(shortint *s1, shortint *s2);
extern int xstrcy_(shortint *s1, shortint *s2, integer *maxch);
extern integer strdic_(shortint *instr, shortint *outstr, integer *maxchs, shortint *dict);
extern logical streq_(shortint *s1, shortint *s2);
extern logical strge_(shortint *s1, shortint *s2);
extern logical strgt_(shortint *s1, shortint *s2);
extern integer stridx_(shortint *ch, shortint *str);
extern integer strids_(shortint *set, shortint *str);
extern integer strldx_(shortint *ch, shortint *str);
extern integer strlds_(shortint *set, shortint *str);
extern logical strle_(shortint *s1, shortint *s2);
extern integer xstrln_(shortint *str);
extern logical strlt_(shortint *s1, shortint *s2);
extern int strlwr_(shortint *a);
extern integer strmac_(shortint *macro, shortint *argstr, shortint *outstr, integer *maxch);
extern integer strmah_(shortint *str, shortint *pat);
extern integer gstrmh_(shortint *str, shortint *pat, integer *firstr, integer *lastcr);
extern integer strncp_(shortint *s1, shortint *s2, integer *n);
extern logical strne_(shortint *s1, shortint *s2);
extern integer strseh_(shortint *str, shortint *patstr);
extern logical strse1_(shortint *str, shortint *patstr, integer *patlen);
extern int strsrt_(integer *x, shortint *sb, integer *nstr);
extern int strtbl_(integer *fd, shortint *buf, integer *strp, integer *nstr, integer *firstl, integer *lastcl, integer *maxch, integer *ncol);
extern int strupr_(shortint *str);
extern integer xtoc_(complex *xval, shortint *outstr, integer *maxch, integer *decpl, integer *fmt, integer *width);
extern int giotr_(integer *stream);
extern int giotrt_(integer *vex, integer *nexthr);
extern int grcaxs_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry);
extern int gaxfis_(integer *w, real *wx1, real *wx2, real *wy1, real *wy2, real *x1, real *dx, integer *xt, real *y1, real *dy, integer *yt);
extern int gaxndc_(real *wx, real *wy, real *sx, real *sy);
extern int gaxdrw_(real *wx, real *wy);
extern int gaxtik_(real *dx, real *dy);
extern int gaxstt_(real *wx, real *wy);
extern int gaxflh_(integer *stream);
extern int gaxtet_(integer *stream, real *sx, real *sy, shortint *text, integer *hjusty, integer *vjusty);
extern int grccle_(integer *fd, integer *rc);
extern integer grccod_(integer *rc, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, shortint *opstr);
extern int grcwod_(shortint *opstr, integer *ip, shortint *outstr, integer *maxch);
extern integer grcbol_(shortint *opstr, integer *ip);
extern E_f grcrel_(shortint *opstr, integer *ip);
extern int grckes_(integer *rc, shortint *opstr, integer *ip, integer *onoff);
extern int grcvit_(integer *tr, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, shortint *opstr, integer *ip);
extern int grcint_(integer *rc);
extern integer grcopn_(shortint *device, integer *mode, integer *stream, integer *rc);
extern int grcpoe_(integer *stream, real *v, integer *npts);
extern int grcred_(integer *tr, integer *stream, shortint *fname);
extern int grcrew_(integer *rc, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry);
extern int grcscc_(real *sx, real *sy, real *mx, real *my);
extern int grcndr_(real *mx, real *my, real *sx, real *sy);
extern int grcsts_(integer *fd, integer *rc);
extern int grctet_(integer *stream, real *x, real *y, shortint *text);
extern int grcwan_(integer *fd);
extern int grcscs_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, real *wx, real *wy, integer *wcs);
extern int grcsen_(integer *w, real *ct);
extern int grcwcc_(real *ct, real *wx, real *wy, real *mx, real *my);
extern int grcnds_(real *ct, real *mx, real *my, real *wx, real *wy);
extern integer grcses_(integer *tr, integer *raster, real *mx, real *my);
extern int grcwre_(integer *tr, integer *stream, shortint *fname, logical *clobbr, logical *fullfe);
extern int gtrbap_(integer *stream);
extern integer gtrcot_(shortint *kernfe, shortint *taskne, shortint *devnae, integer *stream, integer *in, integer *out);
extern int gtrcol_(integer *stream, shortint *gki, integer *sourcd);
extern int gtrdee_(integer *tr, integer *gki);
extern int gtrdit_(integer *pid, integer *in, integer *out, integer *stream);
extern integer gtrfen_(integer *tr, integer *gki);
extern int gtrfre_(integer *tr, integer *gki, integer *stream);
extern int gtrgfh_(integer *stream);
extern int gtrgtn_(integer *fd, real *x1, real *x2, real *y1, real *y2);
extern integer gtrgty_(integer *stream);
extern integer gtrint_(integer *stream);
extern int gtrops_(shortint *devspc, integer *mode, integer *stream, integer *sourcd);
extern int gtrpae_(integer *fd, integer *stream);
extern int gtrptn_(integer *stream, real *x1, real *x2, real *y1, real *y2);
extern integer gtrrer_(integer *fd, integer *key, real *sx, real *sy, integer *raster, real *rx, real *ry);
extern int gtrrew_(integer *stream);
extern int gtrret_(integer *status);
extern int gtrset_(integer *fd, real *x1, real *x2, real *y1, real *y2);
extern int gtrsts_(integer *fd);
extern int gtrmee_(integer *fd, integer *stream, shortint *name__);
extern int gtrtre_(integer *tr, integer *gki);
extern int gtruno_(integer *stream);
extern int gtrwae_(integer *fd, integer *stream);
extern int gtrwrr_(integer *fd, real *x, real *y);
extern integer gtrwrp_(integer *fd, integer *nchars);
extern integer gtrpop_(shortint *pv, integer *npts, integer *x1, integer *x2, integer *y1, integer *y2);
extern integer gtrcle_(integer *p1, integer *p2, integer *npts, integer *index, real *s, real *ref);
extern int gtrwsn_(shortint *gki);
extern int gtrctn_(integer *mx, integer *my, integer *sx, integer *sy);
extern int gtrpon_(shortint *gki);
extern integer gptfit_(shortint *gki, integer *ip, integer *lastip);
extern int gptcll_(integer *pen, integer *mx, integer *my);
extern int gptclr_(integer *pen, integer *mx, integer *my);
extern int gptclb_(integer *pen, integer *mx, integer *my);
extern int gptclt_(integer *pen, integer *mx, integer *my);
extern int gptflh_(void);
extern int prpsit_(void);
extern integer rcursr_(integer *stream, shortint *outstr, integer *maxch);
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 int grcres_(integer *stream, real *x, real *y);
extern integer grcrey_(integer *stream, shortint *prompt, shortint *obuf, integer *maxch);
extern int grcmee_(integer *stream, shortint *messae);
extern int grcpcr_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry);
extern int 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 int gimcrr_(integer *gp, integer *raster, integer *type__, integer *width, integer *height, integer *depth);
extern int gimder_(integer *gp, integer *raster);
extern int gimdig_(integer *gp, integer *mappig, integer *erase);
extern int gimeng_(integer *gp, integer *mappig, integer *refreh);
extern int gimfrp_(integer *gp, integer *colorp);
extern int gimfrg_(integer *gp, integer *mappig);
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 int gimins_(integer *gp);
extern int gimlop_(integer *gp, integer *colorp, real *offset, real *slope);
extern integer gimqur_(integer *gp, integer *raster, integer *type__, integer *width, integer *height, integer *depth);
extern int gimrat_(integer *gp);
extern integer gimrep_(integer *gp, integer *colorp, integer *first, integer *maxelm, integer *r__, integer *g, integer *b);
extern int gimreg_(integer *gp, integer *mappig);
extern int gimrex_(integer *gp, integer *raster, integer *ct, real *x1, real *y1, real *width, real *height);
extern int gimiod_(integer *gp, integer *iomap, integer *first, integer *nelem);
extern int gimres_(integer *gp, integer *raster, shortint *data, integer *nbits, integer *x1, integer *y1, integer *nx, integer *ny);
extern int 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 int gimsex_(integer *gp, integer *raster, integer *ct, real *x1, real *y1, real *width, real *height, integer *color, integer *rop);
extern int gimser_(integer *gp, integer *raster);
extern int gimwrp_(integer *gp, integer *colorp, integer *first, integer *nelem, integer *r__, integer *g, integer *b);
extern int gimioe_(integer *gp, integer *iomap, integer *first, integer *nelem);
extern int gimwrs_(integer *gp, integer *raster, shortint *data, integer *nbits, integer *x1, integer *y1, integer *nx, integer *ny);
extern int gkical_(integer *fd);
extern int gkiclr_(integer *fd);
extern int gkicls_(integer *fd, shortint *device);
extern int gkides_(integer *fd, integer *flags);
extern int gkieof_(integer *fd);
extern int gkiese_(integer *fd, integer *fn, shortint *instrn, integer *nwords);
extern int gkiexe_(shortint *gki, integer *dd);
extern int gkifia_(integer *fd, shortint *points, integer *npts);
extern int gkifat_(integer *fd, integer *ap);
extern integer gkifen_(integer *fd, integer *instrn);
extern int gkiffh_(integer *fd);
extern int gkiflh_(integer *fd);
extern int gkigey_(integer *fd, shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int gkiger_(integer *fd, integer *cursor, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry);
extern int gkiges_(integer *fd, integer *wcs, integer *lenwcs);
extern int gkiint_(integer *stream);
extern int gkiinl_(integer *stream, integer *dd);
extern int gkisul_(integer *stream, integer *pid, integer *prpsia);
extern int gkiops_(integer *fd, shortint *device, integer *mode);
extern int gkipuy_(integer *fd, shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int gkipoe_(integer *fd, shortint *points, integer *npts);
extern int gkiplt_(integer *fd, integer *ap);
extern int gkipor_(integer *fd, shortint *points, integer *npts);
extern int gkipmt_(integer *fd, integer *ap);
extern int gkpinl_(integer *dd, integer *outfd, integer *verbot, integer *usegks);
extern int gkpcle_(void);
extern int gkpgrm_(integer *graphm);
extern int gkpops_(shortint *devnae, integer *n, integer *mode);
extern int gkpcls_(shortint *devnae, integer *n);
extern int gkpres_(integer *flags);
extern int gkpdes_(integer *flags);
extern int gkpmfe_(shortint *title, integer *n);
extern int gkpclr_(integer *dummy);
extern int gkpcal_(integer *dummy);
extern int gkpflh_(integer *dummy);
extern int gkppoe_(shortint *p, integer *npts);
extern int gkppor_(shortint *p, integer *npts);
extern int gkpfia_(shortint *p, integer *npts);
extern int gkptet_(integer *x, integer *y, shortint *text, integer *n);
extern int gkppuy_(shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int gkpgey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int gkpser_(integer *x, integer *y, integer *cursor);
extern int gkpger_(integer *cursor);
extern int gkpplt_(shortint *gki);
extern int gkppmt_(shortint *gki);
extern int gkpfat_(shortint *gki);
extern int gkptxt_(shortint *gki);
extern int gkpese_(integer *fn, shortint *instrn, integer *nwords);
extern int gkpses_(shortint *wcs, integer *nwords);
extern int gkpges_(shortint *wcs, integer *nwords);
extern int gkpunn_(shortint *gki);
extern int gkppst_(integer *fd, shortint *p, integer *npts, shortint *label, integer *verboe, integer *gkiuns);
extern int gkpdup_(integer *fd, shortint *data, integer *nwords);
extern int gkirey_(integer *fd, shortint *m, integer *np);
extern int gkiree_(integer *fd, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry);
extern int gkires_(integer *fd, integer *flags);
extern int gkirer_(integer *stream, integer *fd, integer *oldfd, integer *oldtye);
extern int gkiser_(integer *fd, integer *x, integer *y, integer *cursor);
extern int gkises_(integer *fd, integer *wcs, integer *lenwcs);
extern int gkimfe_(integer *fd, shortint *title);
extern int gkitet_(integer *fd, integer *x, integer *y, shortint *text);
extern int gkitxt_(integer *fd, integer *ap);
extern int gkiwee_(integer *fd, integer *fn, shortint *hdr, integer *hdrlen, shortint *data, integer *dataln);
extern int gkiwre_(integer *fd, shortint *gki);
extern int gkptxg_(shortint *code);
extern int gacwk_(integer *wkid);
extern int gca_(real *px, real *py, real *qx, real *qy, integer *dimx, integer *dimy, integer *ncs, integer *nrs, integer *dx, integer *dy, integer *colia);
extern int gcas_(real *px, real *py, real *qx, real *qy, integer *dimx, integer *dimy, integer *ncs, integer *nrs, integer *dx, integer *dy, shortint *colia);
extern int gclks_(void);
extern int gclrwk_(integer *wkid, integer *cofl);
extern int gclwk_(integer *wkid);
extern int gdawk_(integer *wkid);
extern int gfa_(integer *n, real *px, real *py);
extern int gopks_(integer *errfil);
extern int gopwk_(integer *wkid, integer *conid, integer *wtype);
extern int gpl_(integer *n, real *px, real *py);
extern int gpm_(integer *n, real *px, real *py);
extern int gqasf_(integer *ierror, integer *lasf);
extern int gqchh_(integer *ierror, real *chh);
extern int gqchup_(integer *ierror, real *chupx, real *chupy);
extern int gqclip_(integer *errind, integer *iclip, real *iar);
extern int gqcntn_(integer *errind, integer *cntr);
extern int gqmk_(integer *ierr, integer *mtype);
extern int gqnt_(integer *ntnr, integer *errind, real *window, real *vport);
extern int gqopwk_(integer *n, integer *errind, integer *ol, integer *wkid);
extern int gqplci_(integer *errind, integer *coli);
extern int gqpmci_(integer *errind, integer *coli);
extern int gqpmi_(integer *errind, real *index);
extern int gqtxal_(integer *ierror, integer *txalh, integer *txalv);
extern int gqtxci_(integer *ierror, integer *coli);
extern int gqtxp_(integer *ierror, integer *path);
extern int gqwks_(integer *wkid, integer *errind, integer *state);
extern int gsasf_(integer *lasf);
extern int gsawi_(integer *param, integer *value);
extern int gsawr_(integer *param, real *value);
extern int gschh_(real *chh);
extern int gschup_(real *chux, real *chuy);
extern int gsclip_(integer *iclip);
extern int gscr_(integer *wkstan, integer *colorx, real *rgb);
extern int gselnt_(integer *wcs);
extern int gsfaci_(integer *index);
extern int gsfais_(integer *ints);
extern int gslwsc_(real *width);
extern int gsmk_(integer *mtype);
extern int gsmksc_(real *width);
extern int gsplci_(integer *coli);
extern int gspmci_(integer *coli);
extern int gspmi_(integer *index);
extern int gstxal_(integer *txalh, integer *txalv);
extern int gstxci_(integer *coli);
extern int gstxp_(integer *txp);
extern int gsvp_(integer *wcs, real *x1, real *x2, real *y1, real *y2);
extern int gswn_(integer *wcs, real *x1, real *x2, real *y1, real *y2);
extern int gxgtx_(real *px, real *py, shortint *chars);
extern int glabax_(integer *gp, shortint *title, shortint *xlabel, shortint *ylabel);
extern int glbene_(real *x, shortint *out, integer *maxch, shortint *format, real *step);
extern int glbfis_(integer *gp, integer *ap, integer *ax1, integer *ax2, integer *angle);
extern E_f glbmip_(real *x1, real *x2, integer *nminor);
extern int glbdrd_(integer *gp, integer *ax1, integer *ax2);
extern integer glbgek_(integer *gp, integer *ax, real *x, real *y, integer *majork);
extern logical glbeq_(real *a, real *b);
extern int glblas_(integer *gp, integer *ax, shortint *xlabel, shortint *ylabel);
extern int glblob_(integer *gp, real *sx, real *sy, real *val, shortint *fmt, integer *scalig);
extern int glbses_(integer *gp, integer *ap, integer *ax1, integer *ax2, integer *angle);
extern int glbsep_(integer *gp, integer *axes, integer *ntitls, shortint *xlabel, shortint *ylabel);
extern int glbset_(integer *gp, integer *ntitls, shortint *xlabel, shortint *ylabel);
extern E_f glbtin_(integer *gp, integer *ax, real *ndcleh);
extern int glbple_(integer *gp, shortint *title, integer *ntitls);
extern int glbveg_(integer *gp);
extern integer idkopn_(integer *aframe, integer *acolor, integer *tty);
extern int idkcle_(integer *fd);
extern int idkflh_(integer *fd);
extern int idkfre_(integer *fd);
extern int idkmoe_(integer *fd, integer *x, integer *y);
extern int idkdrw_(integer *fd, integer *ax, integer *ay);
extern int idkver_(integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int idklih_(integer *fd, integer *width);
extern int imdcal_(integer *dummy);
extern int imdclr_(integer *dummy);
extern int imdcle_(void);
extern int imdcls_(shortint *devnae, integer *n);
extern int imdcor_(integer *index);
extern int imddrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font);
extern int imdese_(integer *fn, shortint *instrn, integer *nwords);
extern int imdfia_(shortint *p, integer *npts);
extern int imdfat_(shortint *gki);
extern int imdflh_(integer *dummy);
extern int imdfot_(integer *font);
extern int imdgey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int imdint_(integer *tty, shortint *devnae);
extern integer imdgsg_(shortint *cap);
extern int imdlie_(integer *index);
extern int imdopv_(shortint *devnae, integer *frame, integer *color, integer *dd);
extern int imdops_(shortint *devnae, integer *n, integer *mode);
extern int imdpuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int imdbcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int imdmcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int imdpoe_(shortint *p, integer *npts);
extern int imddae_(integer *gout, shortint *p, integer *npts, integer *ltype);
extern integer imdgeg_(integer *maxlen, logical *penup, integer *ltype);
extern int imdplt_(shortint *gki);
extern int imdpor_(shortint *p, integer *npts);
extern int imdpmt_(shortint *gki);
extern int imdret_(void);
extern int imdtet_(integer *xc, integer *yc, shortint *text, integer *n);
extern int imdtxt_(shortint *gki);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern int sgical_(integer *dummy);
extern int sgiclr_(integer *dummy);
extern int sgicle_(void);
extern int sgicls_(shortint *devnae, integer *n);
extern int sgicor_(integer *index);
extern integer sgidrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font);
extern int sgiese_(integer *fn, shortint *instrn, integer *nwords);
extern int sgifia_(shortint *p, integer *npts);
extern int sgifat_(shortint *gki);
extern int sgiflh_(integer *dummy);
extern int sgifot_(integer *font);
extern int sgigey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int sgiint_(integer *tty, shortint *devnae);
extern integer sgigsg_(shortint *cap);
extern int sgilie_(integer *index);
extern int sgiopn_(shortint *devnae, integer *dd);
extern int sgiops_(shortint *devnae, integer *n, integer *mode);
extern int sgipuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int sgibcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int sgimcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int sgipoe_(shortint *p, integer *npts);
extern int sgidae_(integer *gout, shortint *p, integer *npts, integer *ltype);
extern integer sgigeg_(integer *maxlen, logical *penup, integer *ltype);
extern int sgiplt_(shortint *gki);
extern int sgipor_(shortint *p, integer *npts);
extern int sgipmt_(shortint *gki);
extern int sgiret_(void);
extern int sgitet_(integer *xc, integer *yc, shortint *text, integer *n);
extern int sgitxt_(shortint *gki);
extern integer sgkopn_(shortint *device, integer *tty);
extern int sgkcle_(integer *fd);
extern int sgkflh_(integer *fd);
extern int sgkfre_(integer *fd);
extern int sgkmoe_(integer *fd, integer *x, integer *y);
extern int sgkdrw_(integer *fd, integer *ax, integer *ay);
extern int sgkver_(integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int sgklih_(integer *fd, integer *width);
extern int sgkmke_(shortint *root, integer *num, shortint *outstr, integer *maxch);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern int stgcal_(integer *dummy);
extern int stgclr_(integer *dummy);
extern int stgcle_(void);
extern int stgcls_(shortint *devnae, integer *n);
extern int stgctl_(shortint *cap);
extern int stgct1_(shortint *cap, integer *arg1);
extern int stgct2_(shortint *cap, integer *arg1, integer *arg2);
extern int stgct3_(shortint *cap, integer *arg1, integer *arg2, integer *arg3);
extern int stgdes_(integer *flags);
extern int stgdrw_(integer *x, integer *y);
extern int stgdrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font);
extern int sgchme_(integer *mx, integer *my);
extern int sgchdw_(integer *mx, integer *my);
extern int sgchfh_(void);
extern integer stgene_(shortint *progrm, shortint *memory, integer *regiss);
extern integer sgeexe_(shortint *progrm, shortint *memory, integer *regiss);
extern int sgeprf_(integer *number, shortint *memory, integer *iop, integer *top, shortint *progrm, integer *pc);
extern int stgese_(integer *fn, shortint *instrn, integer *nwords);
extern int sgewsn_(integer *fn, shortint *instrn, real *x1, real *y1, real *x2, real *y2);
extern logical sgewse_(void);
extern int sgespc_(integer *tr, integer *gki, integer *fn, shortint *instrn, integer *bp, integer *buftop, integer *deletn);
extern int stgfia_(shortint *p, integer *npts);
extern int stgfat_(shortint *gki);
extern int sgfpor_(integer *fd);
extern int sgfttr_(integer *fd, shortint *buf, integer *maxch, integer *status);
extern integer sgfger_(integer *fd, shortint *svbuf, integer *sp, shortint *buf, integer *ip, integer *maxch, integer *nchars);
extern int stgflh_(integer *dummy);
extern int stggey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2);
extern int stgger_(integer *cursor);
extern int stggdb_(void);
extern int stggeb_(void);
extern logical sgmexe_(integer *fn, shortint *gim, integer *nwords);
extern logical sgmwsn_(integer *fn, shortint *gim, real *rx1, real *ry1, real *rx2, real *ry2);
extern logical sgmwse_(logical *enable);
extern logical sgmspc_(integer *tr, integer *gki, integer *fn, shortint *gim, integer *bp, integer *buftop, integer *deletn);
extern int sgmwie_(integer *width, integer *height);
extern int sgmqur_(shortint *gim);
extern int sgmwrs_(shortint *gim);
extern int sgmres_(shortint *gim);
extern int sgmwrp_(shortint *gim);
extern int sgmrep_(shortint *gim);
extern int sgmioe_(shortint *gim);
extern int sgmiod_(shortint *gim);
extern int sgmgeg_(shortint *gim);
extern int sgmout_(shortint *cap, shortint *gim, integer *nargs);
extern int sgmquy_(shortint *queryp, shortint *gim, integer *nargs, shortint *retvap, shortint *retval, integer *nout);
extern int stggrm_(integer *stream);
extern int stgint_(integer *tty, shortint *devnae);
extern integer stggsg_(shortint *cap);
extern int stglor_(integer *newcur);
extern int stgmoe_(integer *x, integer *y);
extern int stgonr_(integer *errcoe);
extern int stgont_(integer *vex, integer *nexthr);
extern int stgopn_(shortint *devnae, integer *dd, integer *in, integer *out, integer *xres, integer *yres, integer *hardcr);
extern int stgops_(shortint *devnae, integer *n, integer *mode);
extern int stgou2_(integer *fd, shortint *progrm, integer *arg1, integer *arg2);
extern int stgour_(shortint *cap, shortint *strval);
extern int stgpuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2);
extern int stgpoe_(shortint *p, integer *npts);
extern int stgplt_(shortint *gki);
extern int stgpor_(shortint *p, integer *npts);
extern int stgpmt_(shortint *gki);
extern int stgrer_(integer *cursor, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry);
extern int stgrdr_(integer *tty, integer *cursor, integer *outpuc, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry);
extern int stgres_(integer *flags);
extern int stgren_(integer *xres, integer *yres);
extern int stgret_(void);
extern integer stgrey_(integer *fd, shortint *obuf, integer *maxch);
extern integer stggee_(integer *fd, shortint *obuf);
extern integer stgmsn_(integer *fd);
extern int stgser_(integer *x, integer *y, integer *cursor);
extern int stgtet_(integer *xc, integer *yc, shortint *text, integer *n);
extern int stgtxy_(integer *qualiy);
extern int stgtxt_(shortint *gki);
extern integer stgtxe_(integer *pksize);
extern int stgunn_(shortint *gki);
extern int stgwry_(integer *fd, shortint *text, integer *nchars);
extern int stgpue_(integer *fd, shortint *text);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern doublereal aelogd_(doublereal *x);
extern E_f aelogr_(real *x);
extern doublereal elogd_(doublereal *x);
extern E_f elogr_(real *x);
extern logical fpequd_(doublereal *x, doublereal *y);
extern logical fpequr_(real *x, real *y);
extern doublereal fpfixd_(doublereal *x);
extern E_f fpfixr_(real *x);
extern logical fpnonr_(real *x1, real *x2);
extern int fpnord_(doublereal *x, doublereal *normx, integer *expon);
extern int fpnorr_(real *x, real *normx, integer *expon);
extern int gactie_(integer *gp, integer *flags);
extern int gadraw_(integer *gp, real *wx, real *wy);
extern int gplcll_(integer *pen, integer *mx, integer *my);
extern int gplclr_(integer *pen, integer *mx, integer *my);
extern int gplclb_(integer *pen, integer *mx, integer *my);
extern int gplclt_(integer *pen, integer *mx, integer *my);
extern int gamove_(integer *gp, real *x, real *y);
extern int gascae_(integer *gp, real *v, integer *npts, integer *axis);
extern int gcancl_(integer *gp);
extern int gclear_(integer *gp);
extern int gclose_(integer *gp);
extern int gctran_(integer *gp, real *x1, real *y1, real *x2, real *y2, integer *wcsa, integer *wcsb);
extern int gcurps_(integer *gp, real *x, real *y);
extern int gdeace_(integer *gp, integer *flags);
extern int gescae_(integer *gp, integer *fn, shortint *instrn, integer *nwords);
extern int gfill_(integer *gp, real *x, real *y, integer *npts, integer *style);
extern int gflush_(integer *gp);
extern int gframe_(integer *gp);
extern int gfrint_(integer *gp);
extern int ggcell_(integer *gp, shortint *m, integer *nx, integer *ny, real *x1, real *y1, real *x2, real *y2);
extern integer ggcur_(integer *gp, integer *cn, integer *key, real *sx, real *sy, integer *raster, real *rx, real *ry);
extern logical ggetb_(integer *gp, shortint *cap);
extern integer ggeti_(integer *gp, shortint *cap);
extern E_f ggetr_(integer *gp, shortint *cap);
extern integer ggets_(integer *gp, shortint *cap, shortint *outstr, integer *maxch);
extern int ggscae_(integer *gp, real *x, real *y, real *dx, real *dy);
extern int ggview_(integer *gp, real *x1, real *x2, real *y1, real *y2);
extern int ggwind_(integer *gp, real *x1, real *x2, real *y1, real *y2);
extern int gline_(integer *gp, real *x1, real *y1, real *x2, real *y2);
extern int gmark_(integer *gp, real *x, real *y, integer *markte, real *xsize, real *ysize);
extern int gmftie_(integer *gp, shortint *mftite);
extern int gmprif_(integer *gp, shortint *object, shortint *format);
extern int gmsg_(integer *gp, shortint *object, shortint *messae);
extern int gmsgb_(integer *gp, shortint *object, logical *value);
extern int gmsgc_(integer *gp, shortint *object, shortint *value);
extern int gmsgs_(integer *gp, shortint *object, shortint *value);
extern int gmsgi_(integer *gp, shortint *object, integer *value);
extern int gmsgl_(integer *gp, shortint *object, integer *value);
extern int gmsgr_(integer *gp, shortint *object, real *value);
extern int gmsgd_(integer *gp, shortint *object, doublereal *value);
extern int gmsgx_(integer *gp, shortint *object, complex *value);
extern integer gopeni_(shortint *device, integer *mode, shortint *uifnae, integer *fd);
extern integer gopen_(shortint *device, integer *mode, integer *fd);
extern int gpagee_(integer *gp, shortint *fname, shortint *prompt);
extern int gpcell_(integer *gp, shortint *m, integer *nx, integer *ny, real *x1, real *y1, real *x2, real *y2);
extern int gplcae_(integer *gp);
extern int gplcal_(void);
extern int gplflh_(void);
extern int gpline_(integer *gp, real *x, real *y, integer *npts);
extern int gploto_(integer *gp, real *v, integer *npts, real *x1, real *x2, shortint *title);
extern int gplotv_(real *v, integer *npts, real *x1, real *x2, shortint *title);
extern int gplret_(void);
extern int gplsee_(integer *gp, integer *type__);
extern int gpmark_(integer *gp, real *x, real *y, integer *npts, integer *markte, real *xsize, real *ysize);
extern integer gqvery_(void);
extern int grdraw_(integer *gp, real *x, real *y);
extern int gwrwcs_(shortint *devnae, integer *wcs, integer *lenwcs);
extern integer grdwcs_(shortint *devnae, integer *wcs, integer *lenwcs);
extern int gwcsme_(shortint *devnae, shortint *fname, integer *maxch);
extern int greace_(integer *gp, integer *flags);
extern int greset_(integer *gp, integer *flags);
extern int grmove_(integer *gp, real *x, real *y);
extern int grscae_(integer *gp, real *v, integer *npts, integer *axis);
extern int gscan_(integer *gp, shortint *commad);
extern int gscur_(integer *gp, real *x, real *y);
extern int gseti_(integer *gp, integer *param, integer *value);
extern int gsetr_(integer *gp, integer *param, real *rval);
extern int gstsei_(integer *newvae, integer *value, integer *state);
extern int gstser_(real *newvae, real *value, integer *state);
extern int gsets_(integer *gp, integer *param, shortint *value);
extern integer gstati_(integer *gp, integer *param);
extern E_f gstatr_(integer *gp, integer *param);
extern integer gstats_(integer *gp, integer *param, shortint *outstr, integer *maxch);
extern int gsview_(integer *gp, real *x1, real *x2, real *y1, real *y2);
extern int gswind_(integer *gp, real *x1, real *x2, real *y1, real *y2);
extern int gtext_(integer *gp, real *x, real *y, shortint *text, shortint *format);
extern int gtickr_(real *x1, real *x2, integer *roughs, integer *logflg, real *xtick1, real *step);
extern integer gtndis_(real *x1, real *x2, real *step);
extern E_f gtliny_(real *x1, real *x2);
extern E_f gtdise_(real *x, real *step, real *nearek);
extern int gtxset_(integer *tx, shortint *format, integer *ip);
extern int gumark_(integer *gp, real *x, real *y, integer *npts, real *xcen, real *ycen, real *xsize, real *ysize, integer *fill);
extern int gvline_(integer *gp, real *v, integer *npts, real *x1, real *x2);
extern int gvmark_(integer *gp, real *v, integer *npts, real *x1, real *x2, integer *markte, real *xsize, real *ysize);
extern int gplwci_(integer *gp, real *wx, real *wy, real *mx, real *my);
extern integer gtycas_(integer *gty);
extern int gtycle_(integer *tty);
extern logical gtygeb_(integer *tty, shortint *cap);
extern integer gtygei_(integer *tty, shortint *cap);
extern E_f gtyger_(integer *tty, shortint *cap);
extern integer gtyges_(integer *tty, shortint *cap, shortint *outstr, integer *maxch);
extern int gtyins_(integer *tty, integer *tcapce, integer *tcapix, integer *ncaps);
extern integer gtyfiy_(integer *tty, shortint *cap, integer *ip);
extern integer gtybih_(integer *capcoe, integer *tcapce, integer *ncaps);
extern integer gtyeny_(shortint *cap);
extern integer gtyopn_(shortint *termce, shortint *device, shortint *ufiels);
extern int gtysce_(integer *tty, shortint *termce, shortint *devnae);
extern int gtyfey_(integer *fd, shortint *device, integer *tty);
extern integer gtyexs_(shortint *str, integer *ip, shortint *outstr, integer *maxch);
extern integer idbopn_(integer *im, integer *ualen);
extern integer idbned_(integer *idb, integer *recptr);
extern int idbcle_(integer *idb);
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 idbpug_(integer *im, shortint *key, shortint *strval);
extern integer imaccf_(integer *im, shortint *key);
extern int imaddb_(integer *im, shortint *key, logical *value);
extern int imaddd_(integer *im, shortint *key, doublereal *value);
extern int imaddf_(integer *im, shortint *key, shortint *datate);
extern int imaddi_(integer *im, shortint *key, integer *value);
extern int imaddl_(integer *im, shortint *key, integer *value);
extern int imaddr_(integer *im, shortint *key, real *value);
extern int imadds_(integer *im, shortint *key, shortint *value);
extern int imastr_(integer *im, shortint *key, shortint *value);
extern int imdelf_(integer *im, shortint *key);
extern logical imgetb_(integer *im, shortint *key);
extern shortint imgetc_(integer *im, shortint *key);
extern doublereal imgetd_(integer *im, shortint *key);
extern integer imgeti_(integer *im, shortint *key);
extern integer imgetl_(integer *im, shortint *key);
extern E_f imgetr_(integer *im, shortint *key);
extern shortint imgets_(integer *im, shortint *key);
extern integer imgfte_(integer *im, shortint *key);
extern integer imgnfn_(integer *fn, shortint *outstr, integer *maxch);
extern integer imofns_(integer *im, shortint *temple);
extern integer imofnu_(integer *im, shortint *temple);
extern int imcfnl_(integer *fn);
extern integer imofnl_(integer *im, shortint *temple, integer *sort);
extern int imfnss_(integer *im, shortint *patcoe, integer *strp, integer *nstr, integer *nextch, integer *sbuf);
extern int imfnpy_(shortint *key, integer *strp, integer *nstr, integer *nextch, integer *sbuf);
extern int imgstr_(integer *im, shortint *key, shortint *outstr, integer *maxch);
extern int impstr_(integer *im, shortint *key, shortint *value);
extern int imputb_(integer *im, shortint *key, logical *bval);
extern int imputd_(integer *im, shortint *key, doublereal *dval);
extern int imputh_(integer *im, shortint *key, shortint *text);
extern int imputi_(integer *im, shortint *key, integer *ival);
extern int imputl_(integer *im, shortint *key, integer *lval);
extern int imputr_(integer *im, shortint *key, real *rval);
extern int imputs_(integer *im, shortint *key, shortint *value);
extern int fxfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status);
extern int fxfadr_(integer *im, shortint *pname, integer *dtype, shortint *pval);
extern int fxfcle_(integer *im, integer *status);
extern int fxfcoy_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status);
extern integer fxfcte_(shortint *card, integer *kwindx);
extern int fxfdee_(integer *kernel, shortint *root, shortint *extn, integer *status);
extern int fxfenb_(shortint *keywod, integer *param, shortint *card, shortint *commet);
extern int fxfeni_(shortint *keywod, integer *param, shortint *card, shortint *commet);
extern int fxfenl_(shortint *keywod, integer *param, shortint *card, shortint *commet);
extern int fxfenr_(shortint *keywod, real *param, shortint *card, shortint *commet, integer *precin);
extern int fxfend_(shortint *keywod, doublereal *param, shortint *card, shortint *commet, integer *precin);
extern int fxfens_(shortint *root, shortint *keywod, integer *axisno);
extern int fxfenc_(shortint *keywod, shortint *param, integer *maxch, shortint *card, shortint *commet);
extern int fxfene_(integer *ctime, shortint *datesr, integer *maxch, shortint *format, integer *cutovr);
extern int fxfakc_(shortint *keywod, shortint *value, integer *len, shortint *commet, integer *pn);
extern int fxfakb_(shortint *keywod, integer *value, shortint *commet, integer *pn);
extern int fxfaki_(shortint *keywod, integer *value, shortint *commet, integer *pn);
extern int fxfakr_(shortint *keywod, real *value, shortint *commet, integer *precin, integer *pn);
extern int fxfakd_(shortint *keywod, doublereal *value, shortint *commet, integer *precin, integer *pn);
extern int fxfexh_(integer *infd, integer *outfd, integer *nlines, integer *group, integer *nbks, integer *hdroff, integer *pixoff);
extern int fxfxhd_(integer *in, integer *out, shortint *buf, integer *bufsie, integer *hoffst, integer *poffst, integer *hsize);
extern logical fxfxn1_(shortint *buf, integer *dataln);
extern integer fxfxal_(integer *hd, integer *ncua, integer *nlines);
extern int fxfgei_(shortint *card, integer *ival);
extern int fxfger_(shortint *card, real *rval);
extern int fxfged_(shortint *card, doublereal *dval);
extern int fxfgeb_(shortint *card, integer *bval);
extern int fxfgsr_(shortint *card, shortint *outstr, integer *maxch);
extern int fxfget_(shortint *card, shortint *commet, integer *maxch);
extern int fxfglm_(shortint *time, shortint *date, integer *limtie);
extern int fxfgen_(integer *im, integer *oim, integer *acmode, shortint *outstr, integer *maxch);
extern int fxfksn_(shortint *ksectn, integer *fit, integer *group);
extern integer fxfksx_(shortint *outstr);
extern int fxfkse_(integer *param, shortint *ksectn, integer *ip, integer *fit);
extern int fxfksl_(shortint *outstr, integer *param, integer *fit);
extern int fxfksm_(shortint *pm, integer *param, integer *fit);
extern int fxfkss_(integer *fit, integer *acmode);
extern int fxfkst_(integer *fit);
extern int fxfmad_(shortint *instr, integer *ip, shortint *card, integer *colout, integer *maxcos, integer *delim);
extern int fxfnul_(void);
extern int fxfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *group, integer *gcarg, integer *acmode, integer *status);
extern int fxfalc_(integer *fit);
extern int fxfint_(void);
extern int fxfprr_(integer *im, integer *group);
extern int fxfdur_(integer *im, integer *status);
extern integer fxfchv_(integer *im, integer *group);
extern int fxfche_(integer *im);
extern int fxfrek_(integer *im);
extern int fxffcr_(shortint *file);
extern int fxfgas_(integer *im, logical *fsec);
extern int fxfchp_(integer *im, shortint *ksectn, integer *acmode, integer *group, integer *ksinh);
extern int fxfcll_(integer *im);
extern int fxfopx_(integer *im, integer *status);
extern integer fxfhee_(integer *im);
extern int fxfbyt_(integer *im, shortint *fname);
extern int fxfwrs_(integer *fd, integer *size);
extern int fxfmas_(integer *im, integer *nheads);
extern int fxfovt_(integer *fit, integer *im);
extern integer fxftox_(integer *im);
extern int fxfdiw_(integer *im);
extern int fxffiw_(integer *im, shortint *key);
extern int fxffac_(shortint *fname, integer *size);
extern int fxfchm_(integer *im);
extern int fxfnoe_(integer *im);
extern int fxfpaa_(shortint *ibuf, shortint *obuf, integer *npix, integer *pixtye);
extern int fxfpld_(integer *im);
extern int fxfple_(integer *im, integer *fd);
extern int fxfplo_(integer *im, integer *maxlen, integer *pcount, integer *depth);
extern int fxfplp_(integer *im, integer *hdrfd, integer *pcount);
extern int fxfcoj_(integer *im, integer *infd, integer *hdroff, integer *poff, integer *datase);
extern int fxfplf_(integer *im);
extern integer fxfred_(integer *fd, shortint *ibuf, shortint *obuf, integer *ncards);
extern int fxfrhr_(integer *im, integer *group, integer *acmode);
extern logical fxffpd_(doublereal *x, doublereal *y, integer *it);
extern int fxfree_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status);
extern int fxfrfr_(integer *im, integer *group, integer *poff);
extern int fxfren_(integer *im, integer *cfit, integer *igroup, integer *hoff, integer *poff, integer *extn, integer *extv);
extern integer fxfexr_(integer *fit, integer *ig, integer *extn, integer *extv);
extern int fxfskn_(integer *im, integer *group, integer *cfit, integer *hoff, integer *poff, integer *extn, integer *extv, integer *spool);
extern int fxflor_(integer *in, integer *fit, integer *spool, integer *nrec10, integer *dataln);
extern int fxfmea_(integer *im, integer *userh, integer *fitsln);
extern integer fxfstr_(shortint *s1, shortint *s2);
extern int fxfdae_(shortint *datesr, integer *limtie);
extern int fxfmar_(integer *pat, integer *plines, integer *str, integer *slines, integer *merge, integer *po);
extern int fxfacp_(shortint *line, integer *tpt, integer *nbkw, integer *nbl);
extern int fxfact_(shortint *line, integer *tst, integer *nsb);
extern int fxfbls_(integer *nbl, integer *po);
extern logical fxfisk_(shortint *line);
extern int fxffog_(integer *fit, shortint *messg);
extern int fxfupr_(integer *im, integer *status);
extern integer fxfhdt_(integer *group, integer *fit, integer *pfd, integer *acmode);
extern int fxfhef_(integer *im, integer *group, integer *acmode, integer *hdroff, integer *diff, integer *ualen);
extern int fxfwrr_(integer *im, integer *fit, integer *hdrfd, integer *diff);
extern integer fxfuad_(integer *fit, integer *im, integer *up, shortint *card);
extern int fxfsex_(integer *im, integer *fit);
extern int fxfmay_(integer *infd, integer *outfd, integer *hdroff, integer *pixoff, integer *charsa);
extern int fxfsee_(integer *im, logical *overwe);
extern int fxfsev_(integer *im);
extern int fxfrep_(shortint *in, shortint *out);
extern int fxfove_(integer *im);
extern int fxfupd_(integer *im);
extern int fxfuna_(shortint *cbuf, integer *npix, integer *pixtye, doublereal *bscale, doublereal *bzero);
extern int fxfalr_(integer *a, real *b, integer *npix, doublereal *bscale, doublereal *bzero);
extern int fxfald_(integer *a, doublereal *b, integer *npix, doublereal *bscale, doublereal *bzero);
extern int fxfalu_(shortint *a, shortint *b, integer *npix);
extern int fxfasr_(shortint *a, real *b, integer *npix, doublereal *bscale, doublereal *bzero);
extern int fxfzop_(shortint *pkfn, integer *mode, integer *status);
extern int fxfzcl_(integer *chan, integer *status);
extern int fxfzrd_(integer *chan, shortint *obuf, integer *nbytes, integer *boffst);
extern int fxfzwr_(integer *chan, shortint *ibuf, integer *nbytes, integer *boffst);
extern int fxfzwt_(integer *chan, integer *status);
extern int fxfzst_(integer *chan, integer *param, integer *value);
extern int fxfcnx_(integer *im, integer *totpix, shortint *obuf, integer *nbytes, integer *boffst);
extern int oifacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status);
extern int oifcle_(integer *im, integer *status);
extern int oifcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status);
extern int oifdee_(integer *kernel, shortint *root, shortint *extn, integer *status);
extern int oifgpe_(shortint *pixfie, shortint *hdrfie, shortint *path, integer *maxch);
extern int oifmke_(integer *im, shortint *pixfie, integer *maxch);
extern int oifopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status);
extern int oifopx_(integer *im, integer *status);
extern integer oifrdr_(integer *fd, integer *im, integer *uchars, integer *htype);
extern int oifree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status);
extern int oifupr_(integer *im, integer *status);
extern int oifwrr_(integer *fd, integer *im, integer *htype);
extern int oiftrm_(shortint *s, integer *nchars);
extern int plfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status);
extern int plfcle_(integer *im, integer *status);
extern int plfcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status);
extern int plfdee_(integer *kernel, shortint *root, shortint *extn, integer *status);
extern int plfnul_(void);
extern int plfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status);
extern int plfree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status);
extern int plfupr_(integer *im, integer *status);
extern int qpfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status);
extern int qpfcle_(integer *im, integer *status);
extern int qpfcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status);
extern int qpfcos_(integer *im, integer *qp);
extern int qpfdee_(integer *kernel, shortint *root, shortint *extn, integer *status);
extern int qpfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status);
extern int qpfopx_(integer *im, integer *status);
extern int qpfree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status);
extern int qpfupr_(integer *im, integer *status);
extern int qpfwar_(integer *qpf, integer *im);
extern int qpfwfr_(integer *qpf, integer *im);
extern int qpfzop_(shortint *pkfn, integer *mode, integer *status);
extern int qpfzcl_(integer *chan, integer *status);
extern int qpfzrd_(integer *chan, shortint *obuf, integer *nbytes, integer *boffst);
extern int qpfzwr_(integer *chan, shortint *ibuf, integer *nbytes, integer *boffst);
extern int qpfzwt_(integer *chan, integer *status);
extern int qpfzst_(integer *chan, integer *param, integer *value);
extern int stfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status);
extern int stfadr_(integer *im, shortint *pname, integer *dtype, integer *plen, shortint *pval, integer *pno);
extern int stfcle_(integer *im, integer *status);
extern int stfcoy_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status);
extern int stfcos_(integer *stf, integer *spool, integer *gpb, integer *user);
extern integer stfcte_(shortint *card, integer *index);
extern int stfdee_(integer *kernel, shortint *root, shortint *extn, integer *status);
extern int stfgei_(shortint *card, integer *ival);
extern int stfgeb_(shortint *card, integer *bval);
extern int stfges_(shortint *card, shortint *outstr, integer *maxch);
extern int stfget_(shortint *card, shortint *commet, integer *maxch);
extern int stfgen_(integer *im, integer *oim, integer *acmode, shortint *outstr, integer *maxch);
extern int stfins_(integer *im);
extern int stfmeb_(integer *nim, integer *oim);
extern int stfmke_(shortint *hdrrot, shortint *hdrexn, shortint *pixfne, integer *maxch);
extern int stfnee_(integer *im);
extern int stfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *grarg, integer *gcarg, integer *acmode, integer *status);
extern int stfopx_(integer *im, integer *status);
extern int stforb_(integer *ostf, integer *nstf);
extern int stfrdr_(integer *im, integer *group, integer *acmode);
extern int stfrek_(integer *im);
extern int stfrne_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status);
extern int stfrfr_(integer *im, integer *fits, integer *fitsln);
extern int stfrgb_(integer *im, integer *group, integer *acmode, real *datamn, real *datamx);
extern int stfupr_(integer *im, integer *status);
extern int stfwfr_(integer *im);
extern int stfwgb_(integer *im, integer *group, real *datamn, real *datamx);
extern integer ikiacs_(shortint *image, shortint *root, shortint *extn, integer *acmode);
extern int ikicle_(integer *im);
extern int ikicoy_(shortint *old, shortint *new__);
extern int ikidee_(shortint *image);
extern integer ikiext_(shortint *envime, shortint *defime, shortint *envimn, shortint *defimn);
extern integer ikivan_(integer *kernel, shortint *extn);
extern integer ikigen_(integer *kernel, integer *index, shortint *extn, integer *maxch);
extern integer ikiger_(shortint *param);
extern integer ikiged_(integer *ip, shortint *outstr, integer *maxch, integer *delim);
extern int ikideg_(shortint *str, integer *fd, integer *flags);
extern int ikiint_(void);
extern int ikildr_(shortint *kname, U_fp exopen, U_fp excloe, U_fp exopix, U_fp exupdr, U_fp exaccs, U_fp excopy, U_fp exdele, U_fp exrene, integer *flags);
extern int ikimke_(shortint *root, shortint *extn, shortint *fname, integer *maxch);
extern int ikiopn_(integer *nim, shortint *image, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *oim);
extern int ikiopx_(integer *im);
extern int ikipae_(shortint *image, shortint *root, shortint *extn);
extern int ikiree_(shortint *old, shortint *new__);
extern int ikiupr_(integer *im);
extern int imflsd_(integer *imdes);
extern int imflsi_(integer *imdes);
extern int imflsl_(integer *imdes);
extern int imflsr_(integer *imdes);
extern int imflss_(integer *imdes);
extern int imflsx_(integer *imdes);
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 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 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 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 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 int impakd_(doublereal *a, integer *b, integer *npix, integer *dtype);
extern int impaki_(integer *a, integer *b, integer *npix, integer *dtype);
extern int impakl_(integer *a, integer *b, integer *npix, integer *dtype);
extern int impakr_(real *a, integer *b, integer *npix, integer *dtype);
extern int impaks_(shortint *a, integer *b, integer *npix, integer *dtype);
extern int impakx_(complex *a, integer *b, integer *npix, integer *dtype);
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 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 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 int imupkd_(integer *a, doublereal *b, integer *npix, integer *dtype);
extern int imupki_(integer *a, integer *b, integer *npix, integer *dtype);
extern int imupkl_(integer *a, integer *b, integer *npix, integer *dtype);
extern int imupkr_(integer *a, real *b, integer *npix, integer *dtype);
extern int imupks_(integer *a, shortint *b, integer *npix, integer *dtype);
extern int imupkx_(integer *a, complex *b, integer *npix, integer *dtype);
extern integer imaccs_(shortint *image, integer *acmode);
extern int imaflp_(shortint *a, integer *npix, integer *szpixl);
extern int imflps_(shortint *a, integer *npix);
extern int imflpl_(integer *a, integer *npix);
extern int imaplv_(integer *im, integer *lv, integer *pv, integer *ndim);
extern int imbln1_(integer *imdes, integer *nx);
extern int imbln2_(integer *imdes, integer *nx, integer *ny);
extern int imbln3_(integer *imdes, integer *nx, integer *ny, integer *nz);
extern int imbtrn_(integer *im, integer *v1, integer *v2, integer *ndim);
extern int imcopy_(shortint *old, shortint *new__);
extern integer imcssz_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype, integer *npix, integer *rwflag);
extern int imdele_(shortint *image);
extern integer imdmap_(shortint *device, integer *accese, I_fp imdopn);
extern int imerr_(shortint *imagee, integer *errcoe);
extern int imflsh_(integer *im, integer *bp, integer *vs, integer *ve, integer *ndim);
extern int imfluh_(integer *imdes);
extern int imgclr_(shortint *imspec, shortint *clustr, integer *maxch);
extern integer imggsc_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype, integer *totpix);
extern integer imgibf_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype);
extern int imgime_(shortint *imspec, shortint *image, integer *maxch);
extern integer imgnln_(integer *im, integer *linepr, integer *v, integer *dtype);
extern integer imgobf_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype);
extern int imgsen_(shortint *imspec, shortint *sectin, integer *maxch);
extern int iminie_(integer *im, integer *lenimr);
extern int imioff_(integer *im, integer *pixoff, integer *comprs, integer *devblz);
extern int imalin_(integer *offset, integer *blksie);
extern int imisec_(integer *imdes, shortint *sectin);
extern int imctrt_(integer *imdes, integer *dim, integer *x1arg, integer *x2arg, integer *step);
extern int imdect_(shortint *sectin, integer *ip, integer *x1, integer *x2, integer *step);
extern integer imloop_(integer *v, integer *vs, integer *ve, integer *vinc, integer *ndim);
extern int immaky_(integer *im, integer *oim);
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 int imopsf_(integer *im);
extern int impare_(shortint *imspec, shortint *clustr, integer *szclur, shortint *ksectn, integer *szksen, shortint *sectin, integer *szsecn, integer *clindx, integer *clsize);
extern integer impmsr_(integer *im, integer *bp, integer *szbuf);
extern int impmlr_(integer *im, integer *bp);
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 integer impmmp_(shortint *mask, integer *mode, integer *refim);
extern integer impmmo_(integer *pl, integer *refim);
extern integer impmon_(shortint *mask, integer *mode, shortint *title, integer *maxch, integer *refim);
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 integer impnln_(integer *im, integer *linepr, integer *v, integer *dtype);
extern int imrbpx_(integer *im, shortint *obuf, integer *totpix, integer *v, integer *vinc);
extern int imrdpx_(integer *im, shortint *obuf, integer *npix, integer *v, integer *xstep);
extern int imrene_(shortint *old, shortint *new__);
extern int imrmbs_(integer *im);
extern int imsamp_(shortint *a, shortint *b, integer *npix, integer *szpixl, integer *step);
extern int imsmps_(shortint *a, shortint *b, integer *npix, integer *step);
extern int imsmpl_(integer *a, integer *b, integer *npix, integer *step);
extern int imsetf_(integer *fd, integer *im);
extern int imseti_(integer *im, integer *param, integer *value);
extern int imsetr_(integer *im, integer *param, real *value);
extern integer imsinb_(integer *im, integer *vs, integer *ve, integer *ndim);
extern int imsslv_(integer *im, integer *vs, integer *ve, integer *v, integer *vinc, integer *npix);
extern integer imstai_(integer *im, integer *option);
extern E_f imstar_(integer *im, integer *param);
extern int imstas_(integer *im, integer *option, shortint *outstr, integer *maxch);
extern integer imtopp_(shortint *param);
extern integer imtopn_(shortint *temple);
extern integer imtgem_(integer *imt, shortint *outstr, integer *maxch);
extern integer imtrgm_(integer *imt, integer *index, shortint *outstr, integer *maxch);
extern integer imtlen_(integer *imt);
extern int imtrew_(integer *imt);
extern int imtcle_(integer *imt);
extern integer imtmae_(shortint *fnt, shortint *outstr, integer *maxch);
extern int imunmp_(integer *im);
extern int imwbpx_(integer *im, shortint *ibuf, integer *totpix, integer *v, integer *vinc);
extern int imwrie_(integer *imdes, shortint *buf, integer *nchars, integer *offset);
extern int imwrpx_(integer *im, shortint *buf, integer *npix, integer *v, integer *xstep);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern int tirafs_(void);
extern integer onenty_(integer *prtype, shortint *bkgfie, shortint *cmd);
extern int kservr_(integer *in, integer *out, integer *buflen);
extern int kszfif_(integer *in, integer *out, integer *iobuf, integer *leniof, integer *bfdd);
extern int kszfix_(integer *in, integer *out, integer *iobuf, integer *leniof, integer *txdd);
extern int kszfit_(integer *in, integer *out, integer *iobuf, integer *leniof);
extern int kserrr_(integer *errcoe, shortint *errmsg);
extern int ksloaf_(integer *bfdd);
extern int ksloax_(integer *txdd);
extern integer kssend_(integer *server, integer *opcode, integer *subcoe);
extern integer ksrece_(integer *server);
extern int ksfman_(shortint *vfn, shortint *osfn, integer *maxch);
extern int ksop2r_(integer *opcode, integer *subcoe, shortint *ostr, shortint *sstr);
extern int kbzard_(integer *device, integer *chan, shortint *obuf, integer *maxbys, integer *loffst);
extern int kbzawr_(integer *device, integer *chan, shortint *ibuf, integer *nbytes, integer *loffst);
extern int kbzawt_(integer *device, integer *chan, integer *status);
extern int kbzcls_(integer *device, integer *chan, integer *status);
extern int kbzopn_(integer *device, shortint *osfn, integer *mode, integer *chan);
extern int kbzstt_(integer *device, integer *chan, integer *what, integer *lvalue);
extern int kclcpr_(integer *pid, integer *exitss);
extern int kcldir_(integer *chan, integer *status);
extern int kcldpr_(integer *jobcoe, integer *killfg, integer *exitss);
extern int kdvall_(shortint *device, integer *allflg, integer *status);
extern int kdvown_(shortint *device, shortint *owner, integer *maxch, integer *status);
extern int kfacss_(shortint *osfn, integer *mode, integer *type__, integer *status);
extern int kfaloc_(shortint *osfn, integer *nbytes, integer *status);
extern int kfchdr_(shortint *dirnae, integer *status);
extern int kfdele_(shortint *osfn, integer *status);
extern int kfgcwd_(shortint *outstr, integer *maxch, integer *nchars);
extern int kfinfo_(shortint *osfn, integer *fi, integer *status);
extern int kopnbf_(shortint *osfn, integer *mode, integer *chan);
extern int kclsbf_(integer *chan, integer *status);
extern int kardbf_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int kawrbf_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kawtbf_(integer *chan, integer *status);
extern int ksttbf_(integer *chan, integer *what, integer *lvalue);
extern int kopngd_(shortint *osfn, integer *mode, integer *chan);
extern int kclsgd_(integer *chan, integer *status);
extern int kardgd_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int kawrgd_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kawtgd_(integer *chan, integer *status);
extern int ksttgd_(integer *chan, integer *what, integer *lvalue);
extern int kopnlp_(shortint *osfn, integer *mode, integer *chan);
extern int kclslp_(integer *chan, integer *status);
extern int kardlp_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int kawrlp_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kawtlp_(integer *chan, integer *status);
extern int ksttlp_(integer *chan, integer *what, integer *lvalue);
extern int kopnpl_(shortint *osfn, integer *mode, integer *chan);
extern int kclspl_(integer *chan, integer *status);
extern int kardpl_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int kawrpl_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kawtpl_(integer *chan, integer *status);
extern int ksttpl_(integer *chan, integer *what, integer *lvalue);
extern int kardpr_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int kawrpr_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kawtpr_(integer *chan, integer *status);
extern int ksttpr_(integer *chan, integer *what, integer *lvalue);
extern int kopnsf_(shortint *osfn, integer *mode, integer *chan);
extern int kclssf_(integer *chan, integer *status);
extern int kardsf_(integer *chan, shortint *buf, integer *maxbys, integer *offset);
extern int kawrsf_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kawtsf_(integer *chan, integer *status);
extern int ksttsf_(integer *chan, integer *what, integer *lvalue);
extern int kopntx_(shortint *osfn, integer *mode, integer *chan);
extern int kclstx_(integer *chan, integer *status);
extern int kgettx_(integer *chan, shortint *text, integer *maxch, integer *status);
extern int kputtx_(integer *chan, shortint *text, integer *nchars, integer *status);
extern int kflstx_(integer *chan, integer *status);
extern int ksektx_(integer *chan, integer *loffst, integer *status);
extern int knottx_(integer *chan, integer *loffst);
extern int kstttx_(integer *chan, integer *what, integer *lvalue);
extern int kopnty_(shortint *osfn, integer *mode, integer *chan);
extern int kclsty_(integer *chan, integer *status);
extern int kgetty_(integer *chan, shortint *text, integer *maxch, integer *status);
extern int kputty_(integer *chan, shortint *text, integer *nchars, integer *status);
extern int kflsty_(integer *chan, integer *status);
extern int ksekty_(integer *chan, integer *loffst, integer *status);
extern int knotty_(integer *chan, integer *loffst);
extern int ksttty_(integer *chan, integer *what, integer *lvalue);
extern int kfmkcp_(shortint *oldosn, shortint *newosn, integer *status);
extern int kfmkdr_(shortint *osfn, integer *status);
extern int kfpath_(shortint *vfn, shortint *osfn, integer *maxch, integer *nchars);
extern int kfprot_(shortint *osfn, integer *protfg, integer *status);
extern int kfrnam_(shortint *oldosn, shortint *newosn, integer *status);
extern int kfsubd_(shortint *osdir, integer *maxch, shortint *subdir, integer *nchars);
extern int kfxdir_(shortint *vfn, shortint *osdir, integer *maxch, integer *nchars);
extern int kgfdir_(integer *chan, shortint *osfn, integer *maxch, integer *status);
extern integer kicont_(shortint *rname);
extern int kience_(integer *data, shortint *str, integer *nchars);
extern integer kidece_(shortint *str, integer *nchars);
extern int kienvt_(shortint *name__, shortint *value);
extern int kierrr_(integer *server);
extern integer kiexte_(shortint *resoue, shortint *nodene, integer *maxch, integer *nchars);
extern int kifren_(integer *chan);
extern int kifman_(shortint *vfn, shortint *pkosfn, integer *maxch);
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 int kiinit_(integer *inchan, integer *outchn, integer *errchn, integer *device, integer *devtye);
extern integer kiloce_(shortint *node);
extern integer kimapn_(integer *chan, shortint *nodene, integer *maxch);
extern integer kimape_(shortint *name__, shortint *newnae, integer *maxch);
extern int kintpr_(integer *pid, integer *vex, integer *status);
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 int kishot_(integer *fd);
extern int kixnoe_(shortint *r1, shortint *r2, integer *maxch);
extern int kopcpr_(shortint *proces, integer *inchan, integer *outchn, integer *pid);
extern int kopdir_(shortint *osfn, integer *chan);
extern int kopdpr_(shortint *proces, shortint *bkgfie, shortint *bkgmsg, integer *jobcoe);
extern int koscmd_(shortint *oscmd, shortint *stdine, shortint *stdoue, shortint *stdere, integer *status);
extern int ksared_(integer *server, shortint *buf, integer *maxbys);
extern int ksawat_(integer *server, integer *status);
extern int ksawre_(integer *server, shortint *buf, integer *nbytes);
extern int ktzcls_(integer *device, integer *chan, integer *status);
extern int ktzfls_(integer *device, integer *chan, integer *status);
extern int ktzget_(integer *device, integer *chan, shortint *obuf, integer *maxch, integer *status);
extern int ktznot_(integer *device, integer *chan, integer *loffst);
extern int ktzopn_(integer *device, shortint *osfn, integer *mode, integer *chan);
extern int ktzput_(integer *device, integer *chan, shortint *ibuf, integer *nchars, integer *status);
extern int kiflux_(integer *device, integer *chan, integer *status);
extern int ktzsek_(integer *device, integer *chan, integer *loffst, integer *status);
extern int ktzstt_(integer *device, integer *chan, integer *what, integer *lvalue);
extern int kzclmt_(integer *chan, integer *devpos, integer *status);
extern int kzopmt_(shortint *device, integer *mode, shortint *devcap, integer *devpos, integer *newfie, integer *chan);
extern int kzrdmt_(integer *chan, shortint *obuf, integer *maxbys, integer *offset);
extern int kzrwmt_(shortint *drive, shortint *devcap, integer *status);
extern int kzstmt_(integer *chan, integer *what, integer *lvalue);
extern int kzwrmt_(integer *chan, shortint *buf, integer *nbytes, integer *offset);
extern int kzwtmt_(integer *chan, integer *devpos, integer *status);
extern integer begmem_(integer *bestse, integer *oldsie, integer *maxsie);
extern int fixmem_(integer *oldsie);
extern int xcallc_(integer *ubufp, integer *buflen, integer *dtype);
extern integer coerce_(integer *ptr, integer *type1, integer *type2);
extern integer kmallc_(integer *ubufp, integer *nelems, integer *dtype);
extern integer krealc_(integer *ptr, integer *aneles, integer *adtype);
extern int xmallc_(integer *ubufp, integer *nelems, integer *dtype);
extern integer mallo1_(integer *outpur, integer *nelems, integer *dtype, integer *szalin, integer *fwaaln);
extern int xmfree_(integer *ptr, integer *dtype);
extern integer mgdptr_(integer *fwa, integer *dtype, integer *szalin, integer *fwaaln);
extern integer mgtfwa_(integer *ptr, integer *dtype);
extern integer msvfwa_(integer *fwa, integer *dtype, integer *szalin, integer *fwaaln);
extern int xrealc_(integer *ubufp, integer *nelems, integer *dtype);
extern int salloc_(integer *outpur, integer *nelem, integer *datate);
extern int smark_(integer *oldsp);
extern int sfree_(integer *oldsp);
extern int stkmkg_(integer *curseg, integer *sp, integer *segmee);
extern integer xsizef_(integer *dtype);
extern int vmallc_(integer *ubufp, integer *nelems, integer *dtype);
extern int mtalle_(shortint *mtname);
extern int mtgets_(shortint *mtname, integer *mt);
extern int mtsavs_(integer *mt);
extern int mtsync_(integer *status);
extern int mtclre_(void);
extern integer mtcap_(shortint *mtname);
extern int mtclen_(integer *level, integer *stale, integer *out);
extern int mtdeae_(shortint *mtname, integer *rewine);
extern integer mtdevd_(shortint *iodev);
extern int mtence_(shortint *outstr, integer *maxch, shortint *device, integer *fileno, integer *recno, shortint *attrl);
extern integer mtfile_(shortint *fname);
extern int mtfnae_(shortint *mtname, integer *fileno, shortint *outstr, integer *maxch);
extern int mtglok_(shortint *mtname, shortint *lockfe, integer *maxch);
extern integer mtgtyn_(shortint *device, shortint *ufiels);
extern int mtloce_(shortint *device, shortint *lockfe, integer *maxch);
extern integer mtneeo_(shortint *mtname);
extern integer mtopen_(shortint *mtname, integer *acmode, integer *bufsie);
extern int mtpare_(shortint *mtname, shortint *device, integer *szdeve, integer *file, integer *record, shortint *attrl, integer *szattl);
extern int mtposn_(shortint *mtname, integer *file, integer *record);
extern int mtreae_(shortint *mtname, integer *mt);
extern int mtrewd_(shortint *mtname, integer *initce);
extern integer mtskid_(integer *fd, integer *nrecos);
extern int mtstas_(integer *out, shortint *mtname);
extern int mtupde_(integer *mt);
extern int mtsavd_(integer *fd, shortint *keywod, integer *value);
extern int mtpute_(integer *fd, shortint *text);
extern int zardmt_(integer *mtchan, shortint *buf, integer *maxbys, integer *offset);
extern int zawrmt_(integer *mtchan, shortint *buf, integer *nbytes, integer *offset);
extern int zawtmt_(integer *mtchan, integer *status);
extern int zclsmt_(integer *mtchan, integer *status);
extern int zopnmt_(shortint *iodev, integer *acmode, integer *mtchan);
extern int zsttmt_(integer *mtchan, integer *what, integer *lvalue);
extern doublereal mwc1td_(integer *act, doublereal *x);
extern E_f mwc1tr_(integer *act, real *x);
extern int mwc2td_(integer *act, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2);
extern int mwc2tr_(integer *act, real *x1, real *y1, real *x2, real *y2);
extern int mwctrd_(integer *act, doublereal *p1, doublereal *p2, integer *ndim);
extern int mwctrr_(integer *act, real *p1, real *p2, integer *ndim);
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 int mwltrd_(doublereal *p1, doublereal *p2, doublereal *ltm, doublereal *ltv, integer *ndim);
extern int mwltrr_(real *p1, real *p2, real *ltm, real *ltv, integer *ndim);
extern int mwmmud_(doublereal *a, doublereal *b, doublereal *c__, integer *ndim);
extern int mwmmur_(real *a, real *b, real *c__, integer *ndim);
extern int mwv1td_(integer *act, doublereal *x1, doublereal *x2, integer *npts);
extern int mwv1tr_(integer *act, real *x1, real *x2, integer *npts);
extern int mwv2td_(integer *act, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2, integer *npts);
extern int mwv2tr_(integer *act, real *x1, real *y1, real *x2, real *y2, integer *npts);
extern int mwvmud_(doublereal *a, doublereal *b, doublereal *c__, integer *ndim);
extern int mwvmur_(real *a, real *b, real *c__, integer *ndim);
extern int mwvtrd_(integer *ct, doublereal *v1, doublereal *v2, integer *ndim, integer *npts);
extern int mwvtrr_(integer *ct, real *v1, real *v2, integer *ndim, integer *npts);
extern int iwcfis_(integer *iw);
extern integer iwcare_(shortint *card, integer *type__, integer *axis, integer *index);
extern int iwents_(integer *mw, integer *iw, integer *ndim);
extern integer iwfind_(integer *iw, integer *type__, integer *axis, integer *index);
extern integer iwgbis_(integer *iw, integer *ctype, integer *axis);
extern int iwputy_(integer *iw, doublereal *new__, doublereal *old, integer *ndim, shortint *kwfort, integer *kwtype, integer *kwindx);
extern int iwputr_(integer *fd, integer *iw, integer *axis, integer *ctype, shortint *fmt1, shortint *fmt2, integer *maxinx);
extern integer iwrfis_(integer *mw, integer *im, integer *mode);
extern int iwsetp_(integer *mw, integer *im);
extern integer mwalld_(integer *mw, integer *nelem);
extern integer mwalls_(integer *mw, integer *nchars);
extern int mwcloe_(integer *mw);
extern int mwctfe_(integer *ct);
extern integer mwfins_(integer *mw, shortint *system);
extern integer mwflop_(integer *mw, shortint *fnname);
extern int mwgaxt_(integer *mw, integer *axbits, integer *axis, integer *naxes);
extern int mwgaxp_(integer *mw, integer *axno, integer *axval, integer *ndim);
extern int mwgltd_(integer *mw, doublereal *ltm, doublereal *ltv, integer *ndim);
extern int mwgltr_(integer *mw, real *ltm, real *ltv, integer *ndim);
extern int mwgsym_(integer *mw, shortint *outstr, integer *maxch);
extern int mwgwas_(integer *mw, integer *axis, shortint *attrie, shortint *valstr, integer *maxch);
extern int mwgwsd_(integer *mw, integer *axis, doublereal *pv, doublereal *wv, integer *npts);
extern int mwgwsr_(integer *mw, integer *axis, real *pv, real *wv, integer *npts);
extern int mwgwtd_(integer *mw, doublereal *r__, doublereal *w, doublereal *cd, integer *ndim);
extern int mwgwtr_(integer *mw, real *r__, real *w, real *cd, integer *ndim);
extern int mwinvd_(doublereal *oltm, doublereal *nltm, integer *ndim);
extern int mwinvr_(real *oltm, real *nltm, integer *ndim);
extern int mwload_(integer *mw, integer *bp);
extern int mwloam_(integer *mw, integer *im);
extern int mwlude_(doublereal *a, integer *ix, integer *ndim);
extern int mwlubb_(doublereal *a, integer *ix, doublereal *b, integer *ndim);
extern int mwmkid_(doublereal *ltm, integer *ndim);
extern int mwmkir_(real *ltm, integer *ndim);
extern integer mwnewy_(integer *omw);
extern integer mwcopd_(integer *mw, integer *omw, integer *ooff, integer *nelem);
extern integer mwcops_(integer *mw, integer *omw, integer *ooff);
extern int mwnewm_(integer *mw, shortint *system, integer *ndim);
extern integer mwopen_(integer *bufptr, integer *ndim);
extern integer mwopem_(integer *im);
extern integer mwrefr_(integer *mw, shortint *str);
extern int mwrote_(integer *mw, real *theta, real *center, integer *axbits);
extern integer mwsave_(integer *omw, integer *bp, integer *buflen);
extern int mwsavm_(integer *mw, integer *im);
extern int mwsaxp_(integer *mw, integer *axno, integer *axval, integer *ndim);
extern int mwscae_(integer *mw, real *scale, integer *axbits);
extern integer mwsctn_(integer *mw, shortint *syste1, shortint *syste2, integer *axbits);
extern int mwsdes_(integer *mw);
extern int mwseti_(integer *mw, integer *param, integer *value);
extern int mwshit_(integer *mw, real *shift, integer *axbits);
extern int mwshow_(integer *mw, integer *fd, integer *what);
extern int mwsltd_(integer *mw, doublereal *ltm, doublereal *ltv, integer *ndim);
extern int mwsltr_(integer *mw, real *ltm, real *ltv, integer *ndim);
extern int mwssym_(integer *mw, shortint *system);
extern integer mwstai_(integer *mw, integer *param);
extern int mwswas_(integer *mw, integer *axis, shortint *attrie, shortint *valstr);
extern int mwswsd_(integer *mw, integer *axis, doublereal *pv, doublereal *wv, integer *npts);
extern int mwswsr_(integer *mw, integer *axis, real *pv, real *wv, integer *npts);
extern int mwswtd_(integer *mw, doublereal *r__, doublereal *w, doublereal *cd, integer *ndim);
extern int mwswtr_(integer *mw, real *r__, real *w, real *cd, integer *ndim);
extern int mwswte_(integer *mw, integer *axis, integer *naxes, shortint *wtype, shortint *wattr);
extern int mwtrad_(integer *mw, doublereal *ltv1, doublereal *ltm, doublereal *ltv2, integer *ndim);
extern int mwaxtn_(doublereal *oltm, doublereal *oltv, doublereal *nltm, doublereal *nltv, integer *pdim, doublereal *ltm, doublereal *ltv, integer *ax, integer *ndim);
extern int mwtrar_(integer *mw, real *ltv1, real *ltm, real *ltv2, integer *ndim);
extern int wfaitt_(integer *fc, integer *dir);
extern int wfaitd_(integer *fc, doublereal *p, doublereal *w);
extern int wfaitv_(integer *fc, doublereal *w, doublereal *p);
extern int wfarct_(integer *fc, integer *dir);
extern int wfarcd_(integer *fc, doublereal *p, doublereal *w);
extern int wfarcv_(integer *fc, doublereal *w, doublereal *p);
extern int wfcart_(integer *fc, integer *dir);
extern int wfcard_(integer *fc, doublereal *p, doublereal *w);
extern int wfcarv_(integer *fc, doublereal *w, doublereal *p);
extern int wfcsct_(integer *fc, integer *dir);
extern int wfcscd_(integer *fc, doublereal *p, doublereal *w);
extern int wfcscv_(integer *fc, doublereal *w, doublereal *p);
extern int wfdecs_(integer *fc, integer *ira, integer *idec);
extern int wfglst_(integer *fc, integer *dir);
extern int wfglsd_(integer *fc, doublereal *p, doublereal *w);
extern int wfglsv_(integer *fc, doublereal *w, doublereal *p);
extern integer wfgson_(shortint *atstr);
extern int wfgsce_(integer *sf);
extern doublereal wfgsel_(integer *sf, doublereal *x, doublereal *y);
extern int wfgscf_(integer *sf, doublereal *coeff, integer *ncoeff);
extern doublereal wfgsdr_(integer *sf1, doublereal *x, doublereal *y, integer *nxd, integer *nyd);
extern int wfgsre_(integer *sf, doublereal *fit);
extern int wfgsbl_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis);
extern int wfgsbg_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis);
extern int wfgsbb_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis);
extern int wfinit_(void);
extern int wffnld_(shortint *name__, integer *flags, integer *init, integer *destry, integer *fwd, integer *inv);
extern int wfmert_(integer *fc, integer *dir);
extern int wfmerd_(integer *fc, doublereal *p, doublereal *w);
extern int wfmerv_(integer *fc, doublereal *w, doublereal *p);
extern int wfmolt_(integer *fc, integer *dir);
extern int wfmold_(integer *fc, doublereal *p, doublereal *w);
extern int wfmolv_(integer *fc, doublereal *w, doublereal *p);
extern int wfmspt_(integer *fc, integer *dir);
extern int wfmspy_(integer *fc);
extern int wfmspd_(integer *fc, doublereal *in, doublereal *out);
extern int wfmspv_(integer *fc, doublereal *in, doublereal *out);
extern int wfmspf_(shortint *atval, integer *coeff, doublereal *xmin, doublereal *xmax);
extern doublereal wfmspl_(doublereal *coeff, doublereal *xin);
extern doublereal wfmspi_(doublereal *coeff, doublereal *y, doublereal *x, doublereal *dydx);
extern int wfpart_(integer *fc, integer *dir);
extern int wfpard_(integer *fc, doublereal *p, doublereal *w);
extern int wfparv_(integer *fc, doublereal *w, doublereal *p);
extern int wfpcot_(integer *fc, integer *dir);
extern int wfpcod_(integer *fc, doublereal *p, doublereal *w);
extern int wfpcov_(integer *fc, doublereal *w, doublereal *p);
extern int wfqsct_(integer *fc, integer *dir);
extern int wfqscd_(integer *fc, doublereal *p, doublereal *w);
extern int wfqscv_(integer *fc, doublereal *w, doublereal *p);
extern int wfsmpt_(integer *fc, integer *dir);
extern int wfsmpn_(integer *fc, doublereal *ax, doublereal *ay);
extern integer wfsmph_(doublereal *x, doublereal *v, integer *npts);
extern int wfsint_(integer *fc, integer *dir);
extern int wfsind_(integer *fc, doublereal *p, doublereal *w);
extern int wfsinv_(integer *fc, doublereal *w, doublereal *p);
extern int wfstgt_(integer *fc, integer *dir);
extern int wfstgd_(integer *fc, doublereal *p, doublereal *w);
extern int wfstgv_(integer *fc, doublereal *w, doublereal *p);
extern int wftant_(integer *fc, integer *dir);
extern int wftand_(integer *fc, doublereal *p, doublereal *w);
extern int wftanv_(integer *fc, doublereal *w, doublereal *p);
extern int wftnxt_(integer *fc, integer *dir);
extern int wftnxd_(integer *fc, doublereal *p, doublereal *w);
extern int wftnxv_(integer *fc, doublereal *w, doublereal *p);
extern int wftnxy_(integer *fc);
extern int wftsct_(integer *fc, integer *dir);
extern int wftscd_(integer *fc, doublereal *p, doublereal *w);
extern int wftscv_(integer *fc, doublereal *w, doublereal *p);
extern int wfzeat_(integer *fc, integer *dir);
extern int wfzead_(integer *fc, doublereal *p, doublereal *w);
extern int wfzeav_(integer *fc, doublereal *w, doublereal *p);
extern int wfzpxt_(integer *fc, integer *dir);
extern int wfzpxd_(integer *fc, doublereal *p, doublereal *w);
extern int wfzpxv_(integer *fc, doublereal *w, doublereal *p);
extern int wfzpxy_(integer *fc);
extern int bitmov_(integer *a, integer *aoff, integer *b, integer *boff, integer *nbits);
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 E_f 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 int plglpi_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop);
extern int plglpl_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop);
extern int plglps_(integer *pl, integer *v, shortint *pxdst, integer *pxdeph, integer *npix, integer *rop);
extern int plglri_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop);
extern int plglrl_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop);
extern int plglrs_(integer *pl, integer *v, shortint *rldst, integer *rldeph, integer *npix, integer *rop);
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 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 int plplpi_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop);
extern int plplpl_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop);
extern int plplps_(integer *pl, integer *v, shortint *pxsrc, integer *pxdeph, integer *npix, integer *rop);
extern int plplri_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop);
extern int plplrl_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop);
extern int plplrs_(integer *pl, integer *v, shortint *rlsrc, integer *rldeph, integer *npix, integer *rop);
extern int plpixi_(integer *pxsrc, integer *xs, integer *srcmal, integer *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop);
extern int plpixl_(integer *pxsrc, integer *xs, integer *srcmal, integer *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop);
extern int plpixs_(shortint *pxsrc, integer *xs, integer *srcmal, shortint *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop);
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 logical plreqi_(integer *r1, integer *r2);
extern logical plreql_(integer *r1, integer *r2);
extern logical plreqs_(shortint *r1, shortint *r2);
extern int plrpri_(integer *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol);
extern int plrprl_(integer *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol);
extern int plrprs_(shortint *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol);
extern int plrani_(integer *rlsrc, integer *xs, integer *srcmal, integer *rldst, integer *ds, integer *dstmal, integer *rlout, integer *npix, integer *rop);
extern int plranl_(integer *rlsrc, integer *xs, integer *srcmal, integer *rldst, integer *ds, integer *dstmal, integer *rlout, integer *npix, integer *rop);
extern int plrans_(shortint *rlsrc, integer *xs, integer *srcmal, shortint *rldst, integer *ds, integer *dstmal, shortint *rlout, integer *npix, integer *rop);
extern integer placcs_(integer *pl, integer *v);
extern integer plrefe_(integer *pl, integer *v);
extern integer plallc_(integer *pl, integer *nwords);
extern int plascp_(integer *pl, integer *vs, integer *ve, integer *outfd);
extern int plbox_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *rop);
extern logical plubox_(integer *ufd, integer *y, integer *rlreg, integer *xs, integer *npix);
extern int plcire_(integer *pl, integer *x, integer *y, integer *radius, integer *rop);
extern logical plucie_(integer *ufd, integer *y, integer *rlreg, integer *xs, integer *npix);
extern int plcler_(integer *pl);
extern int plcloe_(integer *pl);
extern int plcoms_(integer *pl);
extern integer plcome_(integer *pl1, integer *pl2, integer *outfd);
extern integer plcree_(integer *naxes, integer *axlen, integer *depth);
extern int pldebt_(integer *fd, shortint *buf, integer *col, integer *firstl, integer *maxcol);
extern int pldebg_(integer *pl, integer *fd, integer *width, integer *what);
extern logical plempy_(integer *pl);
extern integer plempe_(integer *pl);
extern int plglls_(integer *pl, integer *v, shortint *lldst, integer *lldeph, integer *npix, integer *rop);
extern int plgete_(integer *pl, integer *v);
extern int plgsie_(integer *pl, integer *naxes, integer *axlen, integer *depth);
extern integer plllen_(shortint *ll);
extern logical plleql_(shortint *l1, shortint *l2);
extern int plline_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *width, integer *rop);
extern logical plliny_(integer *pl, integer *v);
extern int pllneg_(shortint *ll, integer *ld);
extern int plload_(integer *pl, integer *bp);
extern int plloaf_(integer *pl, shortint *mask, shortint *title, integer *maxch);
extern int plloam_(integer *pl, shortint *imname, shortint *title, integer *maxch);
extern integer plloop_(integer *v, integer *vs, integer *ve, integer *ndim);
extern int pllprs_(shortint *ll, integer *fd, shortint *label, integer *firstl, integer *maxcos);
extern int pllinp_(shortint *llsrc, integer *xs, integer *srcmal, shortint *lldst, integer *ds, integer *dstmal, shortint *llout, integer *npix, integer *rop);
extern int 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 plnewy_(integer *oldpl);
extern integer plopen_(integer *smp);
extern int plplls_(integer *pl, integer *v, shortint *llsrc, integer *lldeph, integer *npix, integer *rop);
extern int plpoit_(integer *pl, integer *x, integer *y, integer *rop);
extern int plpoln_(integer *pl, integer *x, integer *y, integer *npts, integer *rop);
extern logical plupon_(integer *ufd, integer *line, integer *rlreg, integer *xs, integer *npix);
extern int plregp_(integer *pl, L_fp ufcn, integer *ufd, integer *y1, integer *y2, integer *rop);
extern integer plropn_(integer *pl, integer *plane, integer *buflit);
extern integer plrgex_(integer *plr, integer *i__, integer *j);
extern int plrget_(integer *plr, integer *bufp, integer *xsize, integer *ysize, integer *xblock, integer *yblock);
extern int plrset_(integer *plr, integer *x1, integer *y1, integer *x2, integer *y2);
extern int plrcle_(integer *plr);
extern int plrop_(integer *plsrc, integer *vssrc, integer *pldst, integer *vsdst, integer *vn, integer *rop);
extern integer plsave_(integer *pl, integer *bp, integer *buflen, integer *flags);
extern int plsavf_(integer *pl, shortint *fname, shortint *title, integer *flags);
extern int plsavm_(integer *pl, shortint *imname, shortint *title, integer *flags);
extern logical plsect_(integer *plsrc, integer *v1, integer *v2, integer *ndim, integer *mval);
extern logical pllcot_(shortint *llsrc, integer *xs, integer *npix, integer *mval);
extern logical plsecy_(integer *plsrc, integer *v1, integer *v2, integer *ndim);
extern logical pllemy_(shortint *llsrc, integer *xs, integer *npix);
extern int plseti_(integer *pl, integer *param, integer *value);
extern int plsete_(integer *pl, integer *v);
extern int plssie_(integer *pl, integer *naxes, integer *axlen, integer *depth);
extern int plsslv_(integer *pl, integer *vs, integer *vn, integer *v, integer *ve);
extern integer plstai_(integer *pl, integer *param);
extern int plstel_(integer *plsrc, integer *vssrc, integer *pldst, integer *vsdst, integer *plstn, integer *vsstn, integer *vn, integer *rop);
extern int plupde_(integer *pl, integer *v, shortint *ll);
extern int plvald_(integer *pl);
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 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 int pmglpi_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop);
extern int pmglpl_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop);
extern int pmglps_(integer *pl, integer *v, shortint *pxdst, integer *pxdeph, integer *npix, integer *rop);
extern int pmglri_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop);
extern int pmglrl_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop);
extern int pmglrs_(integer *pl, integer *v, shortint *rldst, integer *rldeph, integer *npix, integer *rop);
extern int pmplpi_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop);
extern int pmplpl_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop);
extern int pmplps_(integer *pl, integer *v, shortint *pxsrc, integer *pxdeph, integer *npix, integer *rop);
extern int pmplri_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop);
extern int pmplrl_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop);
extern int pmplrs_(integer *pl, integer *v, shortint *rlsrc, integer *rldeph, integer *npix, integer *rop);
extern int miocle_(integer *mp);
extern integer mioopn_(shortint *mask, integer *flags, integer *im);
extern integer mioopo_(integer *pm, integer *im);
extern int miosei_(integer *mp, integer *param, integer *value);
extern int miosee_(integer *mp, integer *vs, integer *ve, integer *ndim);
extern integer miosti_(integer *mp, integer *param);
extern integer pmaccs_(integer *pl, integer *v);
extern int pmascp_(integer *pl, integer *vs, integer *ve, integer *outfd);
extern int pmbox_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *rop);
extern int pmcire_(integer *pl, integer *x, integer *y, integer *radius, integer *rop);
extern int pmcler_(integer *pl);
extern logical pmempy_(integer *pl);
extern int pmglls_(integer *pl, integer *v, shortint *lldst, integer *lldeph, integer *npix, integer *rop);
extern int pmline_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *width, integer *rop);
extern logical pmliny_(integer *pl, integer *v);
extern integer pmnewk_(integer *refim, integer *depth);
extern int pmplls_(integer *pl, integer *v, shortint *llraw, integer *lldeph, integer *npix, integer *rop);
extern int pmpoit_(integer *pl, integer *x, integer *y, integer *rop);
extern int pmpoln_(integer *pl, integer *x, integer *y, integer *npts, integer *rop);
extern integer pmropn_(integer *pl, integer *plane, integer *buflit);
extern integer pmrgex_(integer *pmr, integer *i__, integer *j);
extern int pmrset_(integer *pmr, integer *x1, integer *y1, integer *x2, integer *y2);
extern int pmrcle_(integer *pmr);
extern int pmrop_(integer *pmsrc, integer *vssrc, integer *pmdst, integer *vsdst, integer *vn, integer *rop);
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 int pmseti_(integer *pl, integer *param, integer *value);
extern int pmsete_(integer *pl, integer *v);
extern integer pmstai_(integer *pl, integer *param);
extern int pmstel_(integer *pmsrc, integer *vssrc, integer *pmdst, integer *vsdst, integer *pmstn, integer *vsstn, integer *vn, integer *rop);
extern int pslink_(integer *ps, integer *fillfg);
extern int psnewe_(integer *ps);
extern int pspagk_(integer *ps);
extern int pscenr_(integer *ps, shortint *str);
extern integer pscens_(integer *ps, shortint *str);
extern int pscloe_(integer *ps);
extern int psdept_(integer *ps, shortint *line);
extern int pssett_(integer *ps, integer *font);
extern int psspft_(integer *ps, integer *font);
extern integer psgett_(integer *ps, shortint *fontcr);
extern shortint psfonr_(integer *ps, integer *font);
extern int psrigy_(integer *ps, shortint *str);
extern integer psrjps_(integer *ps, shortint *str);
extern int pssety_(integer *ps, integer *justiy);
extern integer psopen_(integer *fd, integer *defaur);
extern int psoutt_(integer *ps, shortint *str, integer *fillfg);
extern int pswrtk_(integer *ps, integer *curpos, shortint *str);
extern int psesct_(shortint *in, shortint *out, integer *maxch);
extern int psxpos_(integer *ps, integer *xpos);
extern int psypos_(integer *ps, integer *ypos);
extern int psindt_(integer *ps, integer *nchars);
extern int pstese_(integer *ps, integer *nlines);
extern int pswrig_(integer *ps);
extern int pstrar_(integer *ps);
extern int pspage_(integer *ps, integer *page);
extern int psfone_(integer *ps, integer *fontse);
extern int pshear_(integer *ps, shortint *ledge, shortint *center, shortint *redge);
extern int psfoor_(integer *ps, shortint *ledge, shortint *center, shortint *redge);
extern int pssets_(integer *ps, real *left, real *right, real *top, real *bottom);
extern integer pstexh_(integer *ps, shortint *str);
extern integer pschwh_(shortint *ch, integer *font);
extern int qpaddb_(integer *qp, shortint *param, logical *value, shortint *commet);
extern int qpaddc_(integer *qp, shortint *param, shortint *value, shortint *commet);
extern int qpaddd_(integer *qp, shortint *param, doublereal *value, shortint *commet);
extern int qpaddi_(integer *qp, shortint *param, integer *value, shortint *commet);
extern int qpaddl_(integer *qp, shortint *param, integer *value, shortint *commet);
extern int qpaddr_(integer *qp, shortint *param, real *value, shortint *commet);
extern int qpadds_(integer *qp, shortint *param, shortint *value, shortint *commet);
extern int qpaddx_(integer *qp, shortint *param, complex *value, shortint *commet);
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 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 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 shortint qpgetc_(integer *qp, shortint *param);
extern doublereal qpgetd_(integer *qp, shortint *param);
extern integer qpgeti_(integer *qp, shortint *param);
extern integer qpgetl_(integer *qp, shortint *param);
extern E_f qpgetr_(integer *qp, shortint *param);
extern shortint qpgets_(integer *qp, shortint *param);
extern integer qpiogs_(integer *io, integer *oev, integer *maskvl, integer *maxev, integer *onev);
extern integer qpxgvs_(integer *io, integer *oev, integer *maskvl, integer *maxev, integer *onev);
extern integer qpxgvi_(integer *io, integer *oev, integer *maskvl, integer *maxev, integer *onev);
extern integer qpxgvl_(integer *io, integer *oev, integer *maskvl, integer *maxev, integer *onev);
extern integer qpxgvr_(integer *io, integer *oev, integer *maskvl, integer *maxev, integer *onev);
extern integer qpxgvd_(integer *io, integer *oev, integer *maskvl, integer *maxev, integer *onev);
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 int qpputc_(integer *qp, shortint *param, shortint *value);
extern int qpputd_(integer *qp, shortint *param, doublereal *value);
extern int qpputi_(integer *qp, shortint *param, integer *value);
extern int qpputl_(integer *qp, shortint *param, integer *value);
extern int qpputr_(integer *qp, shortint *param, real *value);
extern int qpputs_(integer *qp, shortint *param, shortint *value);
extern integer qprlmd_(integer *os, integer *oe, integer *olen, doublereal *xs, doublereal *xe, integer *nx, doublereal *ys, doublereal *ye, integer *ny);
extern doublereal qpmind_(doublereal *x, doublereal *y);
extern doublereal qpmaxd_(doublereal *x, doublereal *y);
extern logical qplesd_(doublereal *x, doublereal *y);
extern integer qprlmi_(integer *os, integer *oe, integer *olen, integer *xs, integer *xe, integer *nx, integer *ys, integer *ye, integer *ny);
extern integer qpmini_(integer *x, integer *y);
extern integer qpmaxi_(integer *x, integer *y);
extern logical qplesi_(integer *x, integer *y);
extern integer qprlmr_(integer *os, integer *oe, integer *olen, real *xs, real *xe, integer *nx, real *ys, real *ye, integer *ny);
extern E_f qpminr_(real *x, real *y);
extern E_f qpmaxr_(real *x, real *y);
extern logical qplesr_(real *x, real *y);
extern integer qpaccs_(shortint *poefie, integer *mode);
extern integer qpaccf_(integer *qp, shortint *param);
extern int qpaddf_(integer *qp, shortint *param, shortint *datate, integer *maxelm, shortint *commet, integer *flags);
extern int qpastr_(integer *qp, shortint *param, shortint *value, shortint *commet);
extern int qpbind_(integer *qp);
extern int qpcloe_(integer *qp);
extern int qpcopy_(shortint *opoefe, shortint *npoefe);
extern int qpcopf_(integer *oqp, shortint *oparam, integer *nqp, shortint *nparam);
extern integer qpctod_(shortint *str, integer *ip, doublereal *dval);
extern integer qpctoi_(shortint *str, integer *ip, integer *ival);
extern int qpdele_(shortint *poefie);
extern int qpdelf_(integer *qp, shortint *param);
extern int qpdsym_(integer *qp, integer *out);
extern integer qpdtye_(integer *qp, shortint *datate, integer *dsym);
extern integer qpelee_(integer *qp, shortint *datate, integer *reftye);
extern int qpexce_(integer *ex);
extern int qpexmk_(integer *ex, integer *pbsave, integer *dbsave);
extern int qpexfe_(integer *ex, integer *pbsave, integer *dbsave);
extern integer qpexps_(integer *ex);
extern int qpexpn_(integer *ex, integer *opcode, integer *arg1, integer *arg2, integer *arg3);
extern integer qpexdr_(integer *ex, shortint *strval);
extern integer qpexrd_(integer *ex, doublereal *value);
extern integer qpexdc_(integer *ex, integer *nelem, integer *dtype);
extern int qpexdg_(integer *ex, integer *out, integer *what);
extern int qpexde_(integer *ex, integer *etlast, integer *offset, integer *dtype);
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 qpexpt_(integer *qp, shortint *s1, shortint *s2, integer *maxch);
extern logical qpgetb_(integer *qp, shortint *param);
extern integer qpopet_(integer *qp, shortint *text);
extern integer qpgetk_(integer *gt, shortint *tokbuf, integer *maxch);
extern int qpungk_(integer *gt, shortint *tokbuf);
extern integer qprawk_(integer *gt, shortint *outstr, integer *maxch);
extern integer qpnexk_(integer *gt);
extern int qpclot_(integer *gt);
extern integer qpargt_(integer *gt, shortint *argbuf, integer *maxch);
extern C_f qpgetx_(complex * ret_val, integer *qp, shortint *param);
extern integer qpgmsm_(integer *qp, shortint *macro, integer *textp);
extern integer qpofns_(integer *qp, shortint *temple);
extern integer qpofnu_(integer *qp, shortint *temple);
extern integer qpofnl_(integer *qp, shortint *temple, logical *sort);
extern integer qpgnfn_(integer *fl, shortint *outstr, integer *maxch);
extern integer qplenl_(integer *fl);
extern int qpseel_(integer *fl, integer *pos);
extern int qpcfnl_(integer *fl);
extern integer qpgetm_(integer *qp, shortint *param, integer *opp);
extern integer qpgpsm_(integer *qp, shortint *param);
extern integer qpgstr_(integer *qp, shortint *param, shortint *outstr, integer *maxch);
extern int qpinht_(integer *nqp, integer *oqp, integer *out);
extern int qpioce_(integer *io);
extern integer qpiogr_(integer *io, shortint *outstr, integer *maxch);
extern integer qpioge_(integer *io, integer *vs, integer *ve, integer *maxdim);
extern int qpiolk_(integer *io, shortint *mask, integer *merge);
extern integer qpiols_(integer *io);
extern int qpiomx_(integer *io, shortint *key);
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 int qpiops_(integer *io, integer *iev, integer *nevens);
extern integer qpiort_(integer *io, integer *evi);
extern int qpiosr_(integer *io, shortint *expr);
extern int qpiosi_(integer *io, integer *param, integer *value);
extern int qpiour_(integer *io, integer *param, real *value);
extern int qpiose_(integer *io, integer *vs, integer *ve, integer *ndim);
extern integer qpiost_(integer *io, integer *param);
extern E_f qpiovr_(integer *io, integer *param);
extern int qpiosc_(integer *io);
extern int qpiowt_(integer *io, integer *evi);
extern integer qplenf_(integer *qp, shortint *param);
extern integer qploas_(integer *qp);
extern integer qmaccs_(void);
extern integer qmsymb_(integer *qm);
extern int qmscan_(integer *qm, shortint *fname, integer *flags);
extern int qmscao_(integer *qm, integer *fd, integer *flags);
extern int qmsetm_(integer *qm, shortint *param, shortint *valstr);
extern int qmsets_(integer *qm, integer *qp);
extern integer qmsetr_(integer *uservl, integer *defval);
extern integer qmspai_(integer *uservl, integer *defval);
extern E_f qmspar_(real *uservl, real *defval);
extern int qmupds_(integer *qm, integer *qp);
extern integer qmgetc_(integer *fd, integer *ch);
extern int qpmkfe_(shortint *poefie, shortint *extn, shortint *fname, integer *maxch);
extern integer qpopen_(shortint *poefie, integer *mode, integer *oqp);
extern int qppare_(shortint *qpspec, shortint *root, integer *szroot, shortint *filter, integer *szfilr);
extern integer qpparl_(integer *qp, shortint *fieldt, integer *dd);
extern int qppcle_(integer *fd);
extern integer qppopn_(integer *qp, shortint *param, integer *mode, integer *type__);
extern integer qpputm_(integer *qp, shortint *param, integer *opp);
extern int qpflur_(integer *qp);
extern int qppstr_(integer *qp, shortint *param, shortint *strval);
extern int qpputb_(integer *qp, shortint *param, logical *value);
extern int qpputx_(integer *qp, shortint *param, complex *value);
extern integer qpquef_(integer *qp, shortint *param, shortint *datate, integer *maxelm, shortint *commet, integer *flags);
extern integer qpread_(integer *qp, shortint *param, shortint *buf, integer *maxelm, integer *first, shortint *datate);
extern int qprebd_(shortint *poefie);
extern int qprene_(shortint *opoefe, shortint *npoefe);
extern int qprenf_(integer *qp, shortint *param, shortint *newnae);
extern int qpsavs_(integer *qp, integer *mw);
extern int qpseti_(integer *qp, integer *param, integer *value);
extern int qpsetr_(integer *qp, integer *param, real *value);
extern integer qpsizf_(integer *qp, integer *dtype, integer *dsym, integer *reftye);
extern integer qpstai_(integer *qp, integer *param);
extern E_f qpstar_(integer *qp, integer *param);
extern int qpsync_(integer *qp);
extern int qpwrie_(integer *qp, shortint *param, shortint *buf, integer *nelem, integer *first, shortint *datate);
extern integer stallc_(integer *stp, integer *blklen);
extern int stcloe_(integer *stp);
extern integer stentr_(integer *stp, shortint *key, integer *usymln);
extern integer stfind_(integer *stp, shortint *key);
extern integer stfinl_(integer *stp, shortint *key, integer *symbos, integer *maxsys);
extern int stfree_(integer *stp, integer *marker);
extern integer sthash_(shortint *key, integer *moduls);
extern integer sthead_(integer *stp);
extern int stinfo_(integer *stp, integer *fd, integer *verboe);
extern int stmark_(integer *stp, integer *marker);
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 streff_(integer *stp, integer *offset);
extern integer strefb_(integer *stp, integer *offset);
extern integer strese_(integer *fd);
extern int stsave_(integer *stp, integer *fd);
extern integer stsize_(integer *stp);
extern int stsque_(integer *stp);
extern integer ttycas_(integer *tty);
extern int ttycds_(integer *tty);
extern int ttyclr_(integer *fd, integer *tty);
extern int ttycln_(integer *fd, integer *tty);
extern int ttycle_(integer *tty);
extern integer ttyctl_(integer *fd, integer *tty, shortint *cap, integer *afflnt);
extern int ttydey_(integer *fd, integer *tty, integer *delay);
extern int ttydee_(shortint *device, shortint *ldevie, integer *maxch);
extern integer ttygds_(shortint *ttynae);
extern integer gttyld_(shortint *fname, shortint *device, shortint *outstr, integer *maxch);
extern logical ttygeb_(integer *tty, shortint *cap);
extern integer ttygei_(integer *tty, shortint *cap);
extern E_f ttyger_(integer *tty, shortint *cap);
extern integer ttyges_(integer *tty, shortint *cap, shortint *outstr, integer *maxch);
extern int ttygoo_(integer *fd, integer *tty, integer *col, integer *line);
extern int ttygse_(integer *in, integer *out, integer *tty, integer *width, integer *height);
extern int ttyins_(integer *tty, integer *tcapce, integer *tcapix, integer *ncaps);
extern integer ttyfiy_(integer *tty, shortint *cap, integer *ip);
extern integer ttybih_(integer *capcoe, integer *tcapce, integer *ncaps);
extern integer ttyeny_(shortint *cap);
extern int ttyint_(integer *fd, integer *tty);
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 int ttysce_(integer *tty, shortint *termce, shortint *devnae);
extern int ttyfey_(integer *fd, shortint *device, integer *tty);
extern integer ttyexs_(shortint *str, integer *ip, shortint *outstr, integer *maxch);
extern int ttypue_(integer *fd, integer *tty, shortint *text, integer *mapcc);
extern int ttygpe_(integer *fd, integer *tty, shortint *text, integer *mapcc);
extern int ttybre_(integer *fd, integer *tty, integer *ostrie, integer *op, integer *sotype, logical *soseen);
extern int ttypus_(integer *fd, integer *tty, shortint *ctrlsr, integer *afflnt);
extern integer ttyred_(integer *fd, integer *tty, shortint *outbuf, integer *maxch, shortint *patbuf, integer *timeot);
extern int ttysei_(integer *tty, integer *paramr, integer *value);
extern int ttyso_(integer *fd, integer *tty, integer *onflag);
extern integer ttysti_(integer *tty, integer *paramr);
extern integer ttysui_(shortint *ctrlsr, shortint *outstr, integer *maxch, integer *coords, integer *ncoors);
extern int ttywre_(integer *fd, integer *tty, shortint *ctrlsr, integer *nchars, integer *afflnt);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern int tmktta_(void);
extern integer tcputr_(integer *tc, shortint *str);
extern int tcwris_(integer *fd, integer *tc, shortint *termce);
extern int tcinii_(integer *fd, shortint *varnae, integer *array, integer *npix);
extern int tcinic_(integer *fd, shortint *varnae, shortint *str, integer *nchars);
extern integer tcdumd_(shortint *termce, shortint *devnae, shortint *outstr, integer *maxch);
extern int acht_(shortint *a, shortint *b, integer *nelem, integer *tya, integer *tyb);
extern int achtb_(shortint *a, shortint *b, integer *nelem, integer *tyb);
extern int achtc_(shortint *a, shortint *b, integer *nelem, integer *tyb);
extern int achtd_(doublereal *a, shortint *b, integer *nelem, integer *tyb);
extern int achti_(integer *a, shortint *b, integer *nelem, integer *tyb);
extern int achtl_(integer *a, shortint *b, integer *nelem, integer *tyb);
extern int achtr_(real *a, shortint *b, integer *nelem, integer *tyb);
extern int achts_(shortint *a, shortint *b, integer *nelem, integer *tyb);
extern int achtu_(shortint *a, shortint *b, integer *nelem, integer *tyb);
extern int achtx_(complex *a, shortint *b, integer *nelem, integer *tyb);
extern int aabsd_(doublereal *a, doublereal *b, integer *npix);
extern int aabsi_(integer *a, integer *b, integer *npix);
extern int aabsl_(integer *a, integer *b, integer *npix);
extern int aabsr_(real *a, real *b, integer *npix);
extern int aabss_(shortint *a, shortint *b, integer *npix);
extern int aabsx_(complex *a, complex *b, integer *npix);
extern int aaddd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int aaddi_(integer *a, integer *b, integer *c__, integer *npix);
extern int aaddkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int aaddki_(integer *a, integer *b, integer *c__, integer *npix);
extern int aaddkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aaddkr_(real *a, real *b, real *c__, integer *npix);
extern int aaddks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aaddkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int aaddl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aaddr_(real *a, real *b, real *c__, integer *npix);
extern int aadds_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aaddx_(complex *a, complex *b, complex *c__, integer *npix);
extern int aandi_(integer *a, integer *b, integer *c__, integer *npix);
extern int aandki_(integer *a, integer *b, integer *c__, integer *npix);
extern int aandkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aandks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aandl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aands_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aavgd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma);
extern int aavgi_(integer *a, integer *npix, real *mean, real *sigma);
extern int aavgl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma);
extern int aavgr_(real *a, integer *npix, real *mean, real *sigma);
extern int aavgs_(shortint *a, integer *npix, real *mean, real *sigma);
extern int aavgx_(complex *a, integer *npix, real *mean, real *sigma);
extern int abavd_(doublereal *a, doublereal *b, integer *nblocs, integer *npixpk);
extern int abavi_(integer *a, integer *b, integer *nblocs, integer *npixpk);
extern int abavl_(integer *a, integer *b, integer *nblocs, integer *npixpk);
extern int abavr_(real *a, real *b, integer *nblocs, integer *npixpk);
extern int abavs_(shortint *a, shortint *b, integer *nblocs, integer *npixpk);
extern int abavx_(complex *a, complex *b, integer *nblocs, integer *npixpk);
extern int abeqc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abeqd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abeqi_(integer *a, integer *b, integer *c__, integer *npix);
extern int abeqkc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abeqkd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abeqki_(integer *a, integer *b, integer *c__, integer *npix);
extern int abeqkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abeqkr_(real *a, real *b, integer *c__, integer *npix);
extern int abeqks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abeqkx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abeql_(integer *a, integer *b, integer *c__, integer *npix);
extern int abeqr_(real *a, real *b, integer *c__, integer *npix);
extern int abeqs_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abeqx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abgec_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abged_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abgei_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgekc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgekd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abgeki_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgekl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgekr_(real *a, real *b, integer *c__, integer *npix);
extern int abgeks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgekx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abgel_(integer *a, integer *b, integer *c__, integer *npix);
extern int abger_(real *a, real *b, integer *c__, integer *npix);
extern int abges_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgex_(complex *a, complex *b, integer *c__, integer *npix);
extern int abgtc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgtd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abgti_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgtkc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgtkd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abgtki_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgtkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgtkr_(real *a, real *b, integer *c__, integer *npix);
extern int abgtks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgtkx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abgtl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abgtr_(real *a, real *b, integer *c__, integer *npix);
extern int abgts_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abgtx_(complex *a, complex *b, integer *c__, integer *npix);
extern int ablec_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abled_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int ablei_(integer *a, integer *b, integer *c__, integer *npix);
extern int ablekc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int ablekd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int ableki_(integer *a, integer *b, integer *c__, integer *npix);
extern int ablekl_(integer *a, integer *b, integer *c__, integer *npix);
extern int ablekr_(real *a, real *b, integer *c__, integer *npix);
extern int ableks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int ablekx_(complex *a, complex *b, integer *c__, integer *npix);
extern int ablel_(integer *a, integer *b, integer *c__, integer *npix);
extern int abler_(real *a, real *b, integer *c__, integer *npix);
extern int ables_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int ablex_(complex *a, complex *b, integer *c__, integer *npix);
extern int abltc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abltd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int ablti_(integer *a, integer *b, integer *c__, integer *npix);
extern int abltkc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abltkd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abltki_(integer *a, integer *b, integer *c__, integer *npix);
extern int abltkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abltkr_(real *a, real *b, integer *c__, integer *npix);
extern int abltks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abltkx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abltl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abltr_(real *a, real *b, integer *c__, integer *npix);
extern int ablts_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abltx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abnec_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abned_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abnei_(integer *a, integer *b, integer *c__, integer *npix);
extern int abnekc_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abnekd_(doublereal *a, doublereal *b, integer *c__, integer *npix);
extern int abneki_(integer *a, integer *b, integer *c__, integer *npix);
extern int abnekl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abnekr_(real *a, real *b, integer *c__, integer *npix);
extern int abneks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abnekx_(complex *a, complex *b, integer *c__, integer *npix);
extern int abnel_(integer *a, integer *b, integer *c__, integer *npix);
extern int abner_(real *a, real *b, integer *c__, integer *npix);
extern int abnes_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int abnex_(complex *a, complex *b, integer *c__, integer *npix);
extern int abori_(integer *a, integer *b, integer *c__, integer *npix);
extern int aborki_(integer *a, integer *b, integer *c__, integer *npix);
extern int aborkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aborks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aborl_(integer *a, integer *b, integer *c__, integer *npix);
extern int abors_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int absud_(doublereal *a, doublereal *b, integer *nblocs, integer *npixpk);
extern int absui_(integer *a, integer *b, integer *nblocs, integer *npixpk);
extern int absul_(integer *a, integer *b, integer *nblocs, integer *npixpk);
extern int absur_(real *a, real *b, integer *nblocs, integer *npixpk);
extern int absus_(shortint *a, shortint *b, integer *nblocs, integer *npixpk);
extern int achtcc_(shortint *a, shortint *b, integer *npix);
extern int achtcd_(shortint *a, doublereal *b, integer *npix);
extern int achtci_(shortint *a, integer *b, integer *npix);
extern int achtcl_(shortint *a, integer *b, integer *npix);
extern int achtcr_(shortint *a, real *b, integer *npix);
extern int achtcs_(shortint *a, shortint *b, integer *npix);
extern int achtcx_(shortint *a, complex *b, integer *npix);
extern int achtdc_(doublereal *a, shortint *b, integer *npix);
extern int achtdd_(doublereal *a, doublereal *b, integer *npix);
extern int achtdi_(doublereal *a, integer *b, integer *npix);
extern int achtdl_(doublereal *a, integer *b, integer *npix);
extern int achtdr_(doublereal *a, real *b, integer *npix);
extern int achtds_(doublereal *a, shortint *b, integer *npix);
extern int achtdx_(doublereal *a, complex *b, integer *npix);
extern int achtic_(integer *a, shortint *b, integer *npix);
extern int achtid_(integer *a, doublereal *b, integer *npix);
extern int achtii_(integer *a, integer *b, integer *npix);
extern int achtil_(integer *a, integer *b, integer *npix);
extern int achtir_(integer *a, real *b, integer *npix);
extern int achtis_(integer *a, shortint *b, integer *npix);
extern int achtix_(integer *a, complex *b, integer *npix);
extern int achtlc_(integer *a, shortint *b, integer *npix);
extern int achtld_(integer *a, doublereal *b, integer *npix);
extern int achtli_(integer *a, integer *b, integer *npix);
extern int achtll_(integer *a, integer *b, integer *npix);
extern int achtlr_(integer *a, real *b, integer *npix);
extern int achtls_(integer *a, shortint *b, integer *npix);
extern int achtlx_(integer *a, complex *b, integer *npix);
extern int achtrc_(real *a, shortint *b, integer *npix);
extern int achtrd_(real *a, doublereal *b, integer *npix);
extern int achtri_(real *a, integer *b, integer *npix);
extern int achtrl_(real *a, integer *b, integer *npix);
extern int achtrr_(real *a, real *b, integer *npix);
extern int achtrs_(real *a, shortint *b, integer *npix);
extern int achtrx_(real *a, complex *b, integer *npix);
extern int achtsc_(shortint *a, shortint *b, integer *npix);
extern int achtsd_(shortint *a, doublereal *b, integer *npix);
extern int achtsi_(shortint *a, integer *b, integer *npix);
extern int achtsl_(shortint *a, integer *b, integer *npix);
extern int achtsr_(shortint *a, real *b, integer *npix);
extern int achtss_(shortint *a, shortint *b, integer *npix);
extern int achtsx_(shortint *a, complex *b, integer *npix);
extern int achtxc_(complex *a, shortint *b, integer *npix);
extern int achtxd_(complex *a, doublereal *b, integer *npix);
extern int achtxi_(complex *a, integer *b, integer *npix);
extern int achtxl_(complex *a, integer *b, integer *npix);
extern int achtxr_(complex *a, real *b, integer *npix);
extern int achtxs_(complex *a, shortint *b, integer *npix);
extern int achtxx_(complex *a, complex *b, integer *npix);
extern int acjgx_(complex *a, complex *b, integer *npix);
extern int aclrc_(shortint *a, integer *npix);
extern int aclrd_(doublereal *a, integer *npix);
extern int aclri_(integer *a, integer *npix);
extern int aclrl_(integer *a, integer *npix);
extern int aclrr_(real *a, integer *npix);
extern int aclrs_(shortint *a, integer *npix);
extern int aclrx_(complex *a, integer *npix);
extern int acnvd_(doublereal *in, doublereal *out, integer *npix, doublereal *kernel, integer *knpix);
extern int acnvi_(integer *in, integer *out, integer *npix, integer *kernel, integer *knpix);
extern int acnvl_(integer *in, integer *out, integer *npix, integer *kernel, integer *knpix);
extern int acnvr_(real *in, real *out, integer *npix, real *kernel, integer *knpix);
extern int acnvrd_(doublereal *in, doublereal *out, integer *npix, real *kernel, integer *knpix);
extern int acnvri_(integer *in, integer *out, integer *npix, real *kernel, integer *knpix);
extern int acnvrl_(integer *in, integer *out, integer *npix, real *kernel, integer *knpix);
extern int acnvrr_(real *in, real *out, integer *npix, real *kernel, integer *knpix);
extern int acnvrs_(shortint *in, shortint *out, integer *npix, real *kernel, integer *knpix);
extern int acnvs_(shortint *in, shortint *out, integer *npix, shortint *kernel, integer *knpix);
extern int adivd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int adivi_(integer *a, integer *b, integer *c__, integer *npix);
extern int adivkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int adivki_(integer *a, integer *b, integer *c__, integer *npix);
extern int adivkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int adivkr_(real *a, real *b, real *c__, integer *npix);
extern int adivks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int adivkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int adivl_(integer *a, integer *b, integer *c__, integer *npix);
extern int adivr_(real *a, real *b, real *c__, integer *npix);
extern int adivs_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int adivx_(complex *a, complex *b, complex *c__, integer *npix);
extern doublereal adotd_(doublereal *a, doublereal *b, integer *npix);
extern E_f adoti_(integer *a, integer *b, integer *npix);
extern doublereal adotl_(integer *a, integer *b, integer *npix);
extern E_f adotr_(real *a, real *b, integer *npix);
extern E_f adots_(shortint *a, shortint *b, integer *npix);
extern E_f adotx_(complex *a, complex *b, integer *npix);
extern int advzd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, D_fp errfcn);
extern int advzi_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn);
extern int advzl_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn);
extern int advzr_(real *a, real *b, real *c__, integer *npix, E_fp errfcn);
extern int advzs_(shortint *a, shortint *b, shortint *c__, integer *npix, J_fp errfcn);
extern int advzx_(complex *a, complex *b, complex *c__, integer *npix, C_fp errfcn);
extern int aexpd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int aexpi_(integer *a, integer *b, integer *c__, integer *npix);
extern int aexpkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int aexpki_(integer *a, integer *b, integer *c__, integer *npix);
extern int aexpkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aexpkr_(real *a, real *b, real *c__, integer *npix);
extern int aexpks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aexpkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int aexpl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aexpr_(real *a, real *b, real *c__, integer *npix);
extern int aexps_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aexpx_(complex *a, complex *b, complex *c__, integer *npix);
extern int afftrr_(real *sr, real *si, real *fr, real *fi, integer *npix);
extern int afftrx_(real *a, complex *b, integer *npix);
extern int afftxr_(real *sr, real *si, real *fr, real *fi, integer *npix);
extern int afftxx_(complex *a, complex *b, integer *npix);
extern int agltc_(shortint *a, shortint *b, integer *npix, shortint *low, shortint *high, real *kmul, real *kadd, integer *nrange);
extern int agltd_(doublereal *a, doublereal *b, integer *npix, doublereal *low, doublereal *high, doublereal *kmul, doublereal *kadd, integer *nrange);
extern int aglti_(integer *a, integer *b, integer *npix, integer *low, integer *high, real *kmul, real *kadd, integer *nrange);
extern int agltl_(integer *a, integer *b, integer *npix, integer *low, integer *high, doublereal *kmul, doublereal *kadd, integer *nrange);
extern int agltr_(real *a, real *b, integer *npix, real *low, real *high, real *kmul, real *kadd, integer *nrange);
extern int aglts_(shortint *a, shortint *b, integer *npix, shortint *low, shortint *high, real *kmul, real *kadd, integer *nrange);
extern int agltx_(complex *a, complex *b, integer *npix, complex *low, complex *high, real *kmul, real *kadd, integer *nrange);
extern int ahgmc_(shortint *data, integer *npix, integer *hgm, integer *nbins, shortint *z1, shortint *z2);
extern int ahgmd_(doublereal *data, integer *npix, integer *hgm, integer *nbins, doublereal *z1, doublereal *z2);
extern int ahgmi_(integer *data, integer *npix, integer *hgm, integer *nbins, integer *z1, integer *z2);
extern int ahgml_(integer *data, integer *npix, integer *hgm, integer *nbins, integer *z1, integer *z2);
extern int ahgmr_(real *data, integer *npix, integer *hgm, integer *nbins, real *z1, real *z2);
extern int ahgms_(shortint *data, integer *npix, integer *hgm, integer *nbins, shortint *z1, shortint *z2);
extern shortint ahivc_(shortint *a, integer *npix);
extern doublereal ahivd_(doublereal *a, integer *npix);
extern integer ahivi_(integer *a, integer *npix);
extern integer ahivl_(integer *a, integer *npix);
extern E_f ahivr_(real *a, integer *npix);
extern shortint ahivs_(shortint *a, integer *npix);
extern C_f ahivx_(complex * ret_val, complex *a, integer *npix);
extern int aiftrr_(real *fr, real *fi, real *sr, real *si, integer *npix);
extern int aiftrx_(complex *a, real *b, integer *npix);
extern int aiftxr_(real *fr, real *fi, real *sr, real *si, integer *npix);
extern int aiftxx_(complex *a, complex *b, integer *npix);
extern int aimgd_(complex *a, doublereal *b, integer *npix);
extern int aimgi_(complex *a, integer *b, integer *npix);
extern int aimgl_(complex *a, integer *b, integer *npix);
extern int aimgr_(complex *a, real *b, integer *npix);
extern int aimgs_(complex *a, shortint *b, integer *npix);
extern int alani_(integer *a, integer *b, integer *c__, integer *npix);
extern int alanki_(integer *a, integer *b, integer *c__, integer *npix);
extern int alankl_(integer *a, integer *b, integer *c__, integer *npix);
extern int alanks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int alanl_(integer *a, integer *b, integer *c__, integer *npix);
extern int alans_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int alimc_(shortint *a, integer *npix, shortint *minval, shortint *maxval);
extern int alimd_(doublereal *a, integer *npix, doublereal *minval, doublereal *maxval);
extern int alimi_(integer *a, integer *npix, integer *minval, integer *maxval);
extern int aliml_(integer *a, integer *npix, integer *minval, integer *maxval);
extern int alimr_(real *a, integer *npix, real *minval, real *maxval);
extern int alims_(shortint *a, integer *npix, shortint *minval, shortint *maxval);
extern int alimx_(complex *a, integer *npix, complex *minval, complex *maxval);
extern int allnd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn);
extern int allni_(integer *a, integer *b, integer *npix, I_fp errfcn);
extern int allnl_(integer *a, integer *b, integer *npix, I_fp errfcn);
extern int allnr_(real *a, real *b, integer *npix, E_fp errfcn);
extern int allns_(shortint *a, shortint *b, integer *npix, J_fp errfcn);
extern int allnx_(complex *a, complex *b, integer *npix, C_fp errfcn);
extern int alogd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn);
extern int alogi_(integer *a, integer *b, integer *npix, I_fp errfcn);
extern int alogl_(integer *a, integer *b, integer *npix, I_fp errfcn);
extern int alogr_(real *a, real *b, integer *npix, E_fp errfcn);
extern int alogs_(shortint *a, shortint *b, integer *npix, J_fp errfcn);
extern int alogx_(complex *a, complex *b, integer *npix, C_fp errfcn);
extern int alori_(integer *a, integer *b, integer *c__, integer *npix);
extern int alorki_(integer *a, integer *b, integer *c__, integer *npix);
extern int alorkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int alorks_(shortint *a, shortint *b, integer *c__, integer *npix);
extern int alorl_(integer *a, integer *b, integer *c__, integer *npix);
extern int alors_(shortint *a, shortint *b, integer *c__, integer *npix);
extern shortint alovc_(shortint *a, integer *npix);
extern doublereal alovd_(doublereal *a, integer *npix);
extern integer alovi_(integer *a, integer *npix);
extern integer alovl_(integer *a, integer *npix);
extern E_f alovr_(real *a, integer *npix);
extern shortint alovs_(shortint *a, integer *npix);
extern C_f alovx_(complex * ret_val, complex *a, integer *npix);
extern int altad_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2);
extern int altai_(integer *a, integer *b, integer *npix, real *k1, real *k2);
extern int altal_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2);
extern int altar_(real *a, real *b, integer *npix, real *k1, real *k2);
extern int altas_(shortint *a, shortint *b, integer *npix, real *k1, real *k2);
extern int altax_(complex *a, complex *b, integer *npix, real *k1, real *k2);
extern int altmd_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2);
extern int altmi_(integer *a, integer *b, integer *npix, real *k1, real *k2);
extern int altml_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2);
extern int altmr_(real *a, real *b, integer *npix, real *k1, real *k2);
extern int altms_(shortint *a, shortint *b, integer *npix, real *k1, real *k2);
extern int altmx_(complex *a, complex *b, integer *npix, real *k1, real *k2);
extern int altrd_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2, doublereal *k3);
extern int altri_(integer *a, integer *b, integer *npix, real *k1, real *k2, real *k3);
extern int altrl_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2, doublereal *k3);
extern int altrr_(real *a, real *b, integer *npix, real *k1, real *k2, real *k3);
extern int altrs_(shortint *a, shortint *b, integer *npix, real *k1, real *k2, real *k3);
extern int altrx_(complex *a, complex *b, integer *npix, real *k1, real *k2, real *k3);
extern int aluid_(doublereal *a, doublereal *b, real *x, integer *npix);
extern int aluii_(integer *a, integer *b, real *x, integer *npix);
extern int aluil_(integer *a, integer *b, real *x, integer *npix);
extern int aluir_(real *a, real *b, real *x, integer *npix);
extern int aluis_(shortint *a, shortint *b, real *x, integer *npix);
extern int alutc_(shortint *a, shortint *b, integer *npix, shortint *lut);
extern int alutd_(integer *a, doublereal *b, integer *npix, doublereal *lut);
extern int aluti_(integer *a, integer *b, integer *npix, integer *lut);
extern int alutl_(integer *a, integer *b, integer *npix, integer *lut);
extern int alutr_(integer *a, real *b, integer *npix, real *lut);
extern int aluts_(shortint *a, shortint *b, integer *npix, shortint *lut);
extern int amagd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amagi_(integer *a, integer *b, integer *c__, integer *npix);
extern int amagl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amagr_(real *a, real *b, real *c__, integer *npix);
extern int amags_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amagx_(complex *a, complex *b, complex *c__, integer *npix);
extern int amapd_(doublereal *a, doublereal *b, integer *npix, doublereal *a1, doublereal *a2, doublereal *b1, doublereal *b2);
extern int amapi_(integer *a, integer *b, integer *npix, integer *a1, integer *a2, integer *b1, integer *b2);
extern int amapl_(integer *a, integer *b, integer *npix, integer *a1, integer *a2, integer *b1, integer *b2);
extern int amapr_(real *a, real *b, integer *npix, real *a1, real *a2, real *b1, real *b2);
extern int amaps_(shortint *a, shortint *b, integer *npix, shortint *a1, shortint *a2, shortint *b1, shortint *b2);
extern int amaxc_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amaxd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amaxi_(integer *a, integer *b, integer *c__, integer *npix);
extern int amaxkc_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amaxkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amaxki_(integer *a, integer *b, integer *c__, integer *npix);
extern int amaxkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amaxkr_(real *a, real *b, real *c__, integer *npix);
extern int amaxks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amaxkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int amaxl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amaxr_(real *a, real *b, real *c__, integer *npix);
extern int amaxs_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amaxx_(complex *a, complex *b, complex *c__, integer *npix);
extern int amed3c_(shortint *a, shortint *b, shortint *c__, shortint *m, integer *npix);
extern int amed3d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *m, integer *npix);
extern int amed3i_(integer *a, integer *b, integer *c__, integer *m, integer *npix);
extern int amed3l_(integer *a, integer *b, integer *c__, integer *m, integer *npix);
extern int amed3r_(real *a, real *b, real *c__, real *m, integer *npix);
extern int amed3s_(shortint *a, shortint *b, shortint *c__, shortint *m, integer *npix);
extern int amed4c_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *m, integer *npix);
extern int amed4d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *m, integer *npix);
extern int amed4i_(integer *a, integer *b, integer *c__, integer *d__, integer *m, integer *npix);
extern int amed4l_(integer *a, integer *b, integer *c__, integer *d__, integer *m, integer *npix);
extern int amed4r_(real *a, real *b, real *c__, real *d__, real *m, integer *npix);
extern int amed4s_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *m, integer *npix);
extern int amed5c_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *e, shortint *m, integer *npix);
extern int amed5d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *e, doublereal *m, integer *npix);
extern int amed5i_(integer *a, integer *b, integer *c__, integer *d__, integer *e, integer *m, integer *npix);
extern int amed5l_(integer *a, integer *b, integer *c__, integer *d__, integer *e, integer *m, integer *npix);
extern int amed5r_(real *a, real *b, real *c__, real *d__, real *e, real *m, integer *npix);
extern int amed5s_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *e, shortint *m, integer *npix);
extern shortint amedc_(shortint *a, integer *npix);
extern doublereal amedd_(doublereal *a, integer *npix);
extern integer amedi_(integer *a, integer *npix);
extern integer amedl_(integer *a, integer *npix);
extern E_f amedr_(real *a, integer *npix);
extern shortint ameds_(shortint *a, integer *npix);
extern C_f amedx_(complex * ret_val, complex *a, integer *npix);
extern int amgsd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amgsi_(integer *a, integer *b, integer *c__, integer *npix);
extern int amgsl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amgsr_(real *a, real *b, real *c__, integer *npix);
extern int amgss_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amgsx_(complex *a, complex *b, complex *c__, integer *npix);
extern int aminc_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amind_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amini_(integer *a, integer *b, integer *c__, integer *npix);
extern int aminkc_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aminkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int aminki_(integer *a, integer *b, integer *c__, integer *npix);
extern int aminkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aminkr_(real *a, real *b, real *c__, integer *npix);
extern int aminks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aminkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int aminl_(integer *a, integer *b, integer *c__, integer *npix);
extern int aminr_(real *a, real *b, real *c__, integer *npix);
extern int amins_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int aminx_(complex *a, complex *b, complex *c__, integer *npix);
extern int amodd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amodi_(integer *a, integer *b, integer *c__, integer *npix);
extern int amodkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amodki_(integer *a, integer *b, integer *c__, integer *npix);
extern int amodkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amodkr_(real *a, real *b, real *c__, integer *npix);
extern int amodks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amodl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amodr_(real *a, real *b, real *c__, integer *npix);
extern int amods_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amovc_(shortint *a, shortint *b, integer *npix);
extern int amovd_(doublereal *a, doublereal *b, integer *npix);
extern int amovi_(integer *a, integer *b, integer *npix);
extern int amovkc_(shortint *a, shortint *b, integer *npix);
extern int amovkd_(doublereal *a, doublereal *b, integer *npix);
extern int amovki_(integer *a, integer *b, integer *npix);
extern int amovkl_(integer *a, integer *b, integer *npix);
extern int amovkr_(real *a, real *b, integer *npix);
extern int amovks_(shortint *a, shortint *b, integer *npix);
extern int amovkx_(complex *a, complex *b, integer *npix);
extern int amovl_(integer *a, integer *b, integer *npix);
extern int amovr_(real *a, real *b, integer *npix);
extern int amovs_(shortint *a, shortint *b, integer *npix);
extern int amovx_(complex *a, complex *b, integer *npix);
extern int amuld_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amuli_(integer *a, integer *b, integer *c__, integer *npix);
extern int amulkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int amulki_(integer *a, integer *b, integer *c__, integer *npix);
extern int amulkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int amulkr_(real *a, real *b, real *c__, integer *npix);
extern int amulks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amulkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int amull_(integer *a, integer *b, integer *c__, integer *npix);
extern int amulr_(real *a, real *b, real *c__, integer *npix);
extern int amuls_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int amulx_(complex *a, complex *b, complex *c__, integer *npix);
extern int anegd_(doublereal *a, doublereal *b, integer *npix);
extern int anegi_(integer *a, integer *b, integer *npix);
extern int anegl_(integer *a, integer *b, integer *npix);
extern int anegr_(real *a, real *b, integer *npix);
extern int anegs_(shortint *a, shortint *b, integer *npix);
extern int anegx_(complex *a, complex *b, integer *npix);
extern int anoti_(integer *a, integer *b, integer *npix);
extern int anotl_(integer *a, integer *b, integer *npix);
extern int anots_(shortint *a, shortint *b, integer *npix);
extern int apkxd_(doublereal *a, doublereal *b, complex *c__, integer *npix);
extern int apkxi_(integer *a, integer *b, complex *c__, integer *npix);
extern int apkxl_(integer *a, integer *b, complex *c__, integer *npix);
extern int apkxr_(real *a, real *b, complex *c__, integer *npix);
extern int apkxs_(shortint *a, shortint *b, complex *c__, integer *npix);
extern int apkxx_(complex *a, complex *b, complex *c__, integer *npix);
extern doublereal apold_(doublereal *x, doublereal *coeff, integer *ncoeff);
extern E_f apolr_(real *x, real *coeff, integer *ncoeff);
extern int apowd_(doublereal *a, integer *b, doublereal *c__, integer *npix);
extern int apowi_(integer *a, integer *b, integer *c__, integer *npix);
extern int apowkd_(doublereal *a, integer *b, doublereal *c__, integer *npix);
extern int apowki_(integer *a, integer *b, integer *c__, integer *npix);
extern int apowkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int apowkr_(real *a, integer *b, real *c__, integer *npix);
extern int apowks_(shortint *a, integer *b, shortint *c__, integer *npix);
extern int apowkx_(complex *a, integer *b, complex *c__, integer *npix);
extern int apowl_(integer *a, integer *b, integer *c__, integer *npix);
extern int apowr_(real *a, integer *b, real *c__, integer *npix);
extern int apows_(shortint *a, integer *b, shortint *c__, integer *npix);
extern int apowx_(complex *a, integer *b, complex *c__, 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 int arcpd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int arcpi_(integer *a, integer *b, integer *c__, integer *npix);
extern int arcpl_(integer *a, integer *b, integer *c__, integer *npix);
extern int arcpr_(real *a, real *b, real *c__, integer *npix);
extern int arcps_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int arcpx_(complex *a, complex *b, complex *c__, integer *npix);
extern int arczd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, D_fp errfcn);
extern int arczi_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn);
extern int arczl_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn);
extern int arczr_(real *a, real *b, real *c__, integer *npix, E_fp errfcn);
extern int arczs_(shortint *a, shortint *b, shortint *c__, integer *npix, J_fp errfcn);
extern int arczx_(complex *a, complex *b, complex *c__, integer *npix, C_fp errfcn);
extern int argtd_(doublereal *a, integer *npix, doublereal *ceil, doublereal *newval);
extern int argti_(integer *a, integer *npix, integer *ceil, integer *newval);
extern int argtl_(integer *a, integer *npix, integer *ceil, integer *newval);
extern int argtr_(real *a, integer *npix, real *ceil, real *newval);
extern int argts_(shortint *a, integer *npix, shortint *ceil, shortint *newval);
extern int argtx_(complex *a, integer *npix, complex *ceil, complex *newval);
extern int arltd_(doublereal *a, integer *npix, doublereal *floor, doublereal *newval);
extern int arlti_(integer *a, integer *npix, integer *floor, integer *newval);
extern int arltl_(integer *a, integer *npix, integer *floor, integer *newval);
extern int arltr_(real *a, integer *npix, real *floor, real *newval);
extern int arlts_(shortint *a, integer *npix, shortint *floor, shortint *newval);
extern int arltx_(complex *a, integer *npix, complex *floor, complex *newval);
extern int aselc_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix);
extern int aseld_(doublereal *a, doublereal *b, doublereal *c__, integer *sel, integer *npix);
extern int aseli_(integer *a, integer *b, integer *c__, integer *sel, integer *npix);
extern int aselkc_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix);
extern int aselkd_(doublereal *a, doublereal *b, doublereal *c__, integer *sel, integer *npix);
extern int aselki_(integer *a, integer *b, integer *c__, integer *sel, integer *npix);
extern int aselkl_(integer *a, integer *b, integer *c__, integer *sel, integer *npix);
extern int aselkr_(real *a, real *b, real *c__, integer *sel, integer *npix);
extern int aselks_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix);
extern int aselkx_(complex *a, complex *b, complex *c__, integer *sel, integer *npix);
extern int asell_(integer *a, integer *b, integer *c__, integer *sel, integer *npix);
extern int aselr_(real *a, real *b, real *c__, integer *sel, integer *npix);
extern int asels_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix);
extern int aselx_(complex *a, complex *b, complex *c__, integer *sel, integer *npix);
extern shortint asokc_(shortint *a, integer *npix, integer *ksel);
extern doublereal asokd_(doublereal *a, integer *npix, integer *ksel);
extern integer asoki_(integer *a, integer *npix, integer *ksel);
extern integer asokl_(integer *a, integer *npix, integer *ksel);
extern E_f asokr_(real *a, integer *npix, integer *ksel);
extern shortint asoks_(shortint *a, integer *npix, integer *ksel);
extern C_f asokx_(complex * ret_val, complex *a, integer *npix, integer *ksel);
extern int asqrd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn);
extern int asqri_(integer *a, integer *b, integer *npix, I_fp errfcn);
extern int asqrl_(integer *a, integer *b, integer *npix, I_fp errfcn);
extern int asqrr_(real *a, real *b, integer *npix, E_fp errfcn);
extern int asqrs_(shortint *a, shortint *b, integer *npix, J_fp errfcn);
extern int asqrx_(complex *a, complex *b, integer *npix, C_fp errfcn);
extern int asrtc_(shortint *a, shortint *b, integer *npix);
extern int asrtd_(doublereal *a, doublereal *b, integer *npix);
extern int asrti_(integer *a, integer *b, integer *npix);
extern int asrtl_(integer *a, integer *b, integer *npix);
extern int asrtr_(real *a, real *b, integer *npix);
extern int asrts_(shortint *a, shortint *b, integer *npix);
extern int asrtx_(complex *a, complex *b, integer *npix);
extern doublereal assqd_(doublereal *a, integer *npix);
extern E_f assqi_(integer *a, integer *npix);
extern doublereal assql_(integer *a, integer *npix);
extern E_f assqr_(real *a, integer *npix);
extern E_f assqs_(shortint *a, integer *npix);
extern C_f assqx_(complex * ret_val, complex *a, integer *npix);
extern int asubd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int asubi_(integer *a, integer *b, integer *c__, integer *npix);
extern int asubkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix);
extern int asubki_(integer *a, integer *b, integer *c__, integer *npix);
extern int asubkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int asubkr_(real *a, real *b, real *c__, integer *npix);
extern int asubks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int asubkx_(complex *a, complex *b, complex *c__, integer *npix);
extern int asubl_(integer *a, integer *b, integer *c__, integer *npix);
extern int asubr_(real *a, real *b, real *c__, integer *npix);
extern int asubs_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int asubx_(complex *a, complex *b, complex *c__, integer *npix);
extern doublereal asumd_(doublereal *a, integer *npix);
extern E_f asumi_(integer *a, integer *npix);
extern doublereal asuml_(integer *a, integer *npix);
extern E_f asumr_(real *a, integer *npix);
extern E_f asums_(shortint *a, integer *npix);
extern C_f asumx_(complex * ret_val, complex *a, integer *npix);
extern int aupxd_(complex *a, doublereal *b, doublereal *c__, integer *npix);
extern int aupxi_(complex *a, integer *b, integer *c__, integer *npix);
extern int aupxl_(complex *a, integer *b, integer *c__, integer *npix);
extern int aupxr_(complex *a, real *b, real *c__, integer *npix);
extern int aupxs_(complex *a, shortint *b, shortint *c__, integer *npix);
extern int aupxx_(complex *a, complex *b, complex *c__, integer *npix);
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 int awsud_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, doublereal *k1, doublereal *k2);
extern int awsui_(integer *a, integer *b, integer *c__, integer *npix, real *k1, real *k2);
extern int awsul_(integer *a, integer *b, integer *c__, integer *npix, real *k1, real *k2);
extern int awsur_(real *a, real *b, real *c__, integer *npix, real *k1, real *k2);
extern int awsus_(shortint *a, shortint *b, shortint *c__, integer *npix, real *k1, real *k2);
extern int awsux_(complex *a, complex *b, complex *c__, integer *npix, complex *k1, complex *k2);
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 int axori_(integer *a, integer *b, integer *c__, integer *npix);
extern int axorki_(integer *a, integer *b, integer *c__, integer *npix);
extern int axorkl_(integer *a, integer *b, integer *c__, integer *npix);
extern int axorks_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int axorl_(integer *a, integer *b, integer *c__, integer *npix);
extern int axors_(shortint *a, shortint *b, shortint *c__, integer *npix);
extern int acjgx_(complex *a, complex *b, integer *npix);
extern int afftrr_(real *sr, real *si, real *fr, real *fi, integer *npix);
extern int afftrx_(real *a, complex *b, integer *npix);
extern int afftxr_(real *sr, real *si, real *fr, real *fi, integer *npix);
extern int afftxx_(complex *a, complex *b, integer *npix);
extern int aiftrr_(real *fr, real *fi, real *sr, real *si, integer *npix);
extern int aiftrx_(complex *a, real *b, integer *npix);
extern int aiftxr_(real *fr, real *fi, real *sr, real *si, integer *npix);
extern int aiftxx_(complex *a, complex *b, integer *npix);
extern E_f cented_(real *x, real *data, integer *npts, real *width, integer *type__, real *radius, real *thresd);
extern int c1dpas_(integer *interp, real *eps);
extern E_f c1dcer_(real *x, real *data, integer *npts, real *width);
extern int clgcut_(shortint *promp1, shortint *promp2, integer *curvee, integer *order);
extern integer clginp_(shortint *param);
extern int clgsec_(shortint *prompt, shortint *sectin, integer *x1, integer *x2, integer *step, integer *nsubss);
extern integer cogetr_(integer *co, integer *col, integer *line1, integer *line2);
extern integer comap_(integer *im, integer *maxbuf);
extern int counmp_(integer *co);
extern integer dtmap_(shortint *databe, integer *mode);
extern int dtunmp_(integer *dt);
extern integer dtloce_(integer *dt, shortint *name__);
extern int dtgstr_(integer *dt, integer *record, shortint *field, shortint *str, integer *maxchr);
extern integer dtgeti_(integer *dt, integer *record, shortint *field);
extern E_f dtgetr_(integer *dt, integer *record, shortint *field);
extern doublereal dtgetd_(integer *dt, integer *record, shortint *field);
extern int dtgar_(integer *dt, integer *record, shortint *field, real *array, integer *lenary, integer *npts);
extern int dtgad_(integer *dt, integer *record, shortint *field, doublereal *array, integer *lenary, integer *npts);
extern int dtptie_(integer *dt);
extern int dtput_(integer *dt, shortint *format);
extern integer dtscan_(integer *dt);
extern integer dtmap1_(shortint *databe, shortint *key, integer *mode);
extern int dtremp_(integer *dt, shortint *dname, shortint *fname, integer *mode);
extern integer extrea_(real *x, real *y, real *curvae, integer *npts, real *dx);
extern integer getdae_(shortint *ch);
extern int dtstrg_(integer *datate, shortint *str, integer *maxchr);
extern integer gstrdb_(shortint *line, shortint *outlie, integer *maxch, integer *tabs);
extern integer gstreb_(shortint *line, shortint *outlie, integer *maxch, integer *tabs);
extern int gstrsb_(integer *tabs, integer *maxtas, integer *firstp, integer *tabsie);
extern int newtie_(shortint *param, integer *im);
extern int newpie_(shortint *param, integer *im);
extern int getrot_(shortint *image, shortint *root, integer *maxch);
extern int getsen_(shortint *image, shortint *sectin, integer *maxch);
extern int xtmkip_(shortint *input, shortint *output, shortint *origil, integer *szfnae);
extern int xtdelp_(shortint *output, shortint *origil);
extern int intrp_(integer *itab, real *xtab, real *ytab, integer *ntab, real *x, real *y, integer *ierr);
extern int srch_(integer *itab, real *x, real *xtab, integer *ntab, integer *index, integer *ierr);
extern int intrp0_(integer *itab);
extern int intrpi_(integer *itab, integer *ind);
extern int codim1_(real *x, real *t, real *u, integer *i1, integer *i2, real *y);
extern int lintrp_(integer *itab, real *xtab, real *ytab, integer *ntab, real *x, real *y, integer *ierr);
extern integer isdiry_(shortint *vfn, shortint *pathne, integer *maxch);
extern E_f gammln_(real *xx);
extern E_f poidev_(real *xm, integer *seed);
extern E_f gasdev_(integer *seed);
extern int mrsole_(real *x, real *y, integer *npts, real *params, integer *flags, integer *np, integer *nfit, real *mr, real *chisq);
extern int mreval_(real *x, real *y, integer *npts, real *params, integer *flags, integer *np, real *a, real *delta, integer *nfit, real *chisq);
extern int mrinvt_(real *a, real *b, integer *n);
extern int twofft_(real *data1, real *data2, real *fft1, real *fft2, integer *n);
extern int realft_(real *data, integer *n, integer *isign);
extern int four1_(real *data, integer *nn, integer *isign);
extern integer obsopn_(shortint *obsery);
extern integer obsvon_(shortint *obsery, integer *verboe);
extern int obscle_(integer *obs);
extern integer obspas_(integer *obs, shortint *param);
extern int obslog_(integer *obs, shortint *task, shortint *params, integer *fd);
extern integer obsgei_(integer *obs, shortint *param);
extern E_f obsger_(integer *obs, shortint *param);
extern doublereal obsged_(integer *obs, shortint *param);
extern int obsgsr_(integer *obs, shortint *param, shortint *str, integer *maxchr);
extern int obsimn_(integer *obs, integer *im, shortint *obsery, integer *verboe, logical *newobs, logical *obshed);
extern int obsino_(integer *obs, integer *fd);
extern integer peaks_(real *x, real *y, real *backgd, integer *npts, real *dx);
extern integer decods_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus);
extern integer getner_(integer *ranges, integer *number);
extern integer getprr_(integer *ranges, integer *number);
extern logical isinre_(integer *ranges, integer *number);
extern integer rngopn_(shortint *rstr, real *r1, real *r2, real *dr);
extern int rngcle_(integer *rg);
extern integer rnginx_(integer *rg, integer *ival, real *rval);
extern E_f rngnet_(integer *rg, real *x, integer *ival, real *rval);
extern logical rnginr_(integer *rg, real *x);
extern logical rngini_(integer *rg, integer *x);
extern logical rngelr_(integer *rg, real *x, real *delta);
extern logical rngeli_(integer *rg, integer *x);
extern int rngadd_(integer *rg, shortint *rstr, real *r1, real *r2, real *dr);
extern int rngerr_(integer *errnum, shortint *rstr, real *r1, real *r2, real *dr, integer *rg);
extern int strdeb_(shortint *line, shortint *outlie, integer *maxch, integer *tabsie);
extern int strenb_(shortint *line, shortint *outlie, integer *maxch, integer *tabsie);
extern int xt21im_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts);
extern int xt21id_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts);
extern int xt21ig_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts);
extern int xtansr_(shortint *prompt, integer *answer);
extern int xtclar_(shortint *paramr, integer *answer);
extern int xtgids_(shortint *str, shortint *dicstr, integer *ids, integer *maxids);
extern logical xtimlq_(integer *im1, integer *im2);
extern int xtimrt_(shortint *image, shortint *root, integer *maxchr);
extern int xtimet_(shortint *image, shortint *ext, integer *maxchr);
extern logical xtimnq_(shortint *imnam1, shortint *imnam2);
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 int xtloge_(integer *logfd, integer *nlogfd, shortint *prefix);
extern int xtmksn_(shortint *image, shortint *secstr, shortint *sectin, integer *szsecn);
extern int xtmkic_(shortint *image, shortint *secstr, shortint *imagec, integer *szfnae);
extern int xtmk1d_(shortint *image, shortint *secstr, integer *szfnae);
extern int xtphiy_(integer *im, shortint *str);
extern int xtsor2_(real *a1, real *a2, integer *npts);
extern int xtsor3_(real *a1, real *a2, real *a3, integer *npts);
extern int xtsor4_(real *a1, real *a2, real *a3, real *a4, integer *npts);
extern integer xtscoe_(integer *i__, integer *j);
extern int xtsord_(doublereal *a1, doublereal *a2, doublereal *a3, integer *npts);
extern integer xtscod_(integer *i__, integer *j);
extern int xtstre_(shortint *str);
extern int xtlsum_(integer *im, integer *col1, integer *col2, integer *line1, integer *line2, integer *data);
extern int xtcsum_(integer *co, integer *col1, integer *col2, integer *line1, integer *line2, integer *data);
extern int xtlsub_(integer *im, integer *col1, integer *col2, integer *line1, integer *line2, integer *data);
extern int xtcsub_(integer *co, integer *col1, integer *col2, integer *line1, integer *line2, integer *data);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern int trangs_(void);
extern integer cqdgei_(integer *cq, integer *record, shortint *field);
extern E_f cqdger_(integer *cq, integer *record, shortint *field);
extern doublereal cqdged_(integer *cq, integer *record, shortint *field);
extern int cqdgwd_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr);
extern int cqdgsr_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr);
extern int cqdgai_(integer *cq, integer *record, shortint *field, integer *array, integer *lenary, integer *npts);
extern int cqdgar_(integer *cq, integer *record, shortint *field, real *array, integer *lenary, integer *npts);
extern int cqdgad_(integer *cq, integer *record, shortint *field, doublereal *array, integer *lenary, integer *npts);
extern int cqdgat_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr, integer *nlines);
extern integer cqdscn_(integer *cq);
extern integer cqdtye_(shortint *c__);
extern shortint cqitye_(integer *itype);
extern integer cqfgei_(integer *cq, shortint *field);
extern E_f cqfger_(integer *cq, shortint *field);
extern doublereal cqfged_(integer *cq, shortint *field);
extern integer cqfgai_(integer *cq, shortint *field, integer *array, integer *maxlen);
extern integer cqfgar_(integer *cq, shortint *field, real *array, integer *maxlen);
extern integer cqfgad_(integer *cq, shortint *field, doublereal *array, integer *maxlen);
extern int cqfgwd_(integer *cq, shortint *field, shortint *str, integer *maxch);
extern int cqfgsr_(integer *cq, shortint *field, shortint *str, integer *maxch);
extern integer cqfgtt_(integer *cq, shortint *field, shortint *str, integer *maxch);
extern integer cqscan_(integer *cq);
extern integer cqsetd_(integer *res, 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 cqgvar_(integer *res, integer *recptr, shortint *field, real *rval);
extern integer cqgval_(integer *res, integer *recptr, shortint *field, integer *lval);
extern integer cqgvai_(integer *res, integer *recptr, shortint *field, integer *ival);
extern integer cqgvas_(integer *res, integer *recptr, shortint *field, shortint *sval);
extern int cqfins_(shortint *linebf, integer *fields, integer *maxfis, integer *nfiels);
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 cqgqpn_(integer *cq, integer *parno, shortint *pname, integer *maxnae, shortint *value, integer *maxval, shortint *units, integer *maxuns, shortint *format, integer *maxfot);
extern integer cqgnrd_(integer *res, shortint *buf, integer *maxch, integer *recptr);
extern integer cqgred_(integer *res, shortint *buf, integer *maxch, integer *recptr);
extern integer cqwino_(integer *res, shortint *wfield, shortint *wkname, integer *szwkne, shortint *wkvale, integer *szwkve, integer *wktype, shortint *wkunis, integer *szwkus);
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 cqkino_(integer *res, shortint *kfield, shortint *ikname, integer *szikne, shortint *ikvale, integer *szikve, integer *iktype, shortint *ikunis, integer *szikus);
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 cqfimy_(integer *cq, shortint *imname);
extern integer cqimqy_(integer *cq, shortint *imname);
extern int cqimce_(integer *res);
extern integer cqfirt_(integer *cq);
extern integer cqirit_(integer *cq);
extern int cqirfe_(integer *res);
extern integer cqisti_(integer *res, integer *param);
extern E_f cqistr_(integer *res, integer *param);
extern doublereal cqistd_(integer *res, integer *param);
extern int cqists_(integer *res, integer *param, shortint *str, integer *maxch);
extern integer cqistt_(integer *res, integer *param, shortint *str, integer *maxch);
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 int cqunmp_(integer *cq);
extern integer cqnqps_(integer *cq);
extern integer cqquey_(integer *cq);
extern integer cqfquy_(integer *cq, shortint *catfie, shortint *catfmt);
extern int cqrcle_(integer *res);
extern integer cqrint_(integer *cq);
extern integer cqfrit_(integer *cq, shortint *catfmt);
extern int cqrfre_(integer *res);
extern integer cqhino_(integer *res, shortint *hkname, shortint *hkvale, integer *szhkve);
extern integer cqhinn_(integer *res, integer *kwno, shortint *hkname, integer *szhkne, shortint *hkvale, integer *szhkve);
extern integer cqfino_(integer *res, shortint *field, integer *foffst, integer *fsize, integer *ftype, shortint *units, integer *szunis, shortint *fmts, integer *szfmts);
extern integer cqfnur_(integer *res, shortint *field);
extern integer cqfoft_(integer *res, shortint *field);
extern integer cqfsie_(integer *res, shortint *field);
extern integer cqftye_(integer *res, shortint *field);
extern int cqfuns_(integer *res, shortint *field, shortint *units, integer *szunis);
extern int cqffms_(integer *res, shortint *field, shortint *format, integer *szfort);
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 cqfnae_(integer *res, integer *fieldo, shortint *fname, integer *szfnae);
extern integer cqrsti_(integer *res, integer *param);
extern E_f cqrstr_(integer *res, integer *param);
extern doublereal cqrstd_(integer *res, integer *param);
extern int cqrsts_(integer *res, integer *param, shortint *str, integer *maxch);
extern integer cqrstt_(integer *res, integer *param, shortint *str, integer *maxch);
extern integer cqsett_(integer *cq, shortint *name__);
extern integer cqsetn_(integer *cq, integer *catno);
extern int cqccit_(integer *cq, integer *catno);
extern integer cqccry_(integer *cq);
extern int cqccfe_(integer *cq);
extern integer cqsqpr_(integer *cq, shortint *name__, shortint *valuer);
extern integer cqsqpn_(integer *cq, integer *parno, shortint *valuer);
extern integer cqstai_(integer *cq, integer *param);
extern int cqstas_(integer *cq, integer *param, shortint *str, integer *maxch);
extern integer cqstat_(integer *cq, integer *param, shortint *str, integer *maxch);
extern integer cqwrdr_(integer *index, shortint *outstr, integer *maxch, shortint *dict);
extern integer xtfpit_(integer *pm, integer *lvalin, integer *cvalin);
extern int xtfpsp_(integer *pm, integer *nc, integer *nl, integer *v, shortint *data, integer *lvalin, integer *cvalin, integer *lvalot, integer *cvalot);
extern int xtfpfe_(integer *fp);
extern integer xtfps_(integer *fp, integer *im, integer *line, integer *fd);
extern integer xtfpss_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd);
extern integer xtfpvs_(integer *fp, integer *im, integer *line);
extern integer xtfpi_(integer *fp, integer *im, integer *line, integer *fd);
extern integer xtfpsi_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd);
extern integer xtfpvi_(integer *fp, integer *im, integer *line);
extern integer xtfpl_(integer *fp, integer *im, integer *line, integer *fd);
extern integer xtfpsl_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd);
extern integer xtfpvl_(integer *fp, integer *im, integer *line);
extern integer xtfpr_(integer *fp, integer *im, integer *line, integer *fd);
extern integer xtfpsr_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd);
extern integer xtfpvr_(integer *fp, integer *im, integer *line);
extern integer xtfpd_(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 xtfpvd_(integer *fp, integer *im, integer *line);
extern integer xtpmmp_(shortint *pmname, integer *refim, shortint *mname, integer *szmnae);
extern int xtpmup_(integer *im);
extern integer xtpmm1_(shortint *pmname, integer *ref, integer *refim, integer *flag__);
extern integer xtpmip_(shortint *pmname, integer *refim, integer *flag__);
extern integer xtpmtt_(shortint *pmname, integer *refim, integer *flag__);
extern integer xtpmsn_(shortint *sectin, integer *refim, integer *flag__);
extern int xtpmit_(integer *pm);
extern int xtmath_(integer *im, integer *refim);
extern int gtasce_(integer *gp, integer *gt, real *x, real *y, integer *npts);
extern int gtcoln_(shortint *cmdstr, integer *gp, integer *gt, integer *newgrh);
extern int gtcol1_(shortint *cmdstr, integer *gp, integer *gt, integer *newgrh);
extern int gtcopy_(integer *gt1, integer *gt2);
extern E_f gtxctn_(integer *gp, real *x1, integer *wcs1, integer *wcs2);
extern E_f gtyctn_(integer *gp, real *y1, integer *wcs1, integer *wcs2);
extern integer gtgcur_(shortint *cur, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *szcmd);
extern integer gtgcu1_(integer *gt, shortint *cur, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *szcmd);
extern int gtfree_(integer *gt);
extern integer gtgeti_(integer *gt, integer *param);
extern E_f gtgetr_(integer *gt, integer *param);
extern int gtgets_(integer *gt, integer *param, shortint *str, integer *szstr);
extern int gtuivs_(integer *gp, integer *gt);
extern int gthelp_(shortint *file);
extern integer gtini1_(integer *gp);
extern integer gtinit_(void);
extern int gtiret_(integer *gp, integer *gt);
extern int gtlabx_(integer *gp, integer *gt);
extern int gtplot_(integer *gp, integer *gt, real *x, real *y, integer *npts);
extern int gtrest_(integer *gp, integer *gt);
extern int gtseti_(integer *gt, integer *param, integer *ival);
extern int gtsetr_(integer *gt, integer *param, real *rval);
extern int gtsets_(integer *gt, integer *param, shortint *str);
extern int gtswid_(integer *gp, integer *gt);
extern int gtvplt_(integer *gp, integer *gt, real *v, integer *npts, real *x1, real *x2);
extern int gtwinw_(integer *gt, integer *gp, shortint *cursor, integer *redraw);
extern int gtwin1_(integer *gt, integer *gp, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *redraw);
extern int 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 int iccled_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts);
extern int icclen_(integer *ic, integer *cv, real *x, real *y, real *w, integer *npts);
extern int 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 int 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 int icdosd_(integer *ic, integer *cv, doublereal *x, doublereal *wts, integer *npts, integer *newx, integer *newwts, integer *newfun, integer *refit);
extern int icdosr_(integer *ic, integer *cv, real *x, real *wts, integer *npts, integer *newx, integer *newwts, integer *newfun, integer *refit);
extern int icerrd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int icerrs_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *wts, integer *npts);
extern int icferd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *fd);
extern doublereal icrmsd_(doublereal *x, doublereal *y, doublereal *fit, doublereal *wts, integer *npts);
extern int icferr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *fd);
extern E_f icrmsr_(real *x, real *y, real *fit, real *wts, integer *npts);
extern int icfitd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *newx, integer *newy, integer *newwts, integer *newfun);
extern int icfit_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *newx, integer *newy, integer *newwts, integer *newfun);
extern int icfshw_(integer *ic, integer *fd);
extern int icfvsd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *fd);
extern int icfxyd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts, integer *fd);
extern int icfvsr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *fd);
extern int icfxyr_(integer *ic, integer *cv, real *x, real *y, real *w, integer *npts, integer *fd);
extern int icgadd_(integer *gp, real *wx, real *wy, real *wt, doublereal *x, doublereal *y, doublereal *w1, doublereal *w2, integer *npts);
extern int icgadr_(integer *gp, real *wx, real *wy, real *wt, real *x, real *y, real *w1, real *w2, integer *npts);
extern int icgaxd_(integer *ic, integer *gt, integer *cv, integer *axis, doublereal *x, doublereal *y, doublereal *z__, integer *npts);
extern doublereal icgdvd_(doublereal *x);
extern int icgaxr_(integer *ic, integer *gt, integer *cv, integer *axis, real *x, real *y, real *z__, integer *npts);
extern E_f icgdvr_(real *x);
extern int icgcod_(integer *ic, shortint *cmdstr, integer *newgrh, integer *gp, integer *gt, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int icgcor_(integer *ic, shortint *cmdstr, integer *newgrh, integer *gp, integer *gt, integer *cv, real *x, real *y, real *wts, integer *npts);
extern int icgded_(integer *ic, integer *gp, integer *gt, integer *cv, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy);
extern int icgd1d_(integer *ic, integer *gp, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy);
extern int icgder_(integer *ic, integer *gp, integer *gt, integer *cv, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy);
extern int icgd1r_(integer *ic, integer *gp, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy);
extern int icgfid_(integer *ic, integer *gp, shortint *cursor, integer *gt, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int icgfit_(integer *ic, integer *gp, shortint *cursor, integer *gt, integer *cv, real *x, real *y, real *wts, integer *npts);
extern int icggrd_(integer *ic, integer *gp, integer *gt, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int icgg1d_(integer *ic, integer *gp, integer *gt, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int icgg2d_(integer *ic, integer *gp, integer *gt, doublereal *x, doublereal *y, integer *npts, real *size);
extern int icggfd_(integer *ic, integer *gp, integer *gt, integer *cv, integer *npts);
extern int icggrr_(integer *ic, integer *gp, integer *gt, integer *cv, real *x, real *y, real *wts, integer *npts);
extern int icgg1r_(integer *ic, integer *gp, integer *gt, real *x, real *y, real *wts, integer *npts);
extern int icgg2r_(integer *ic, integer *gp, integer *gt, real *x, real *y, integer *npts, real *size);
extern int icggfr_(integer *ic, integer *gp, integer *gt, integer *cv, integer *npts);
extern integer icgned_(integer *ic, integer *gp, integer *gt, integer *cv, doublereal *x, doublereal *y, integer *npts, real *wx, real *wy);
extern integer icgnd_(integer *gp, doublereal *x, doublereal *y, integer *npts, real *wx, real *wy);
extern integer icgner_(integer *ic, integer *gp, integer *gt, integer *cv, real *x, real *y, integer *npts, real *wx, real *wy);
extern integer icgnr_(integer *gp, real *x, real *y, integer *npts, real *wx, real *wy);
extern int icgpad_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *gt);
extern int icgpar_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *gt);
extern int icgsad_(integer *ic, integer *gp, integer *gt, doublereal *x, integer *npts, integer *pltype);
extern int icgdsd_(real *wx, real *wy, integer *ic, integer *gp, integer *gt, doublereal *x, integer *npts);
extern int icgsar_(integer *ic, integer *gp, integer *gt, real *x, integer *npts, integer *pltype);
extern int icgdsr_(real *wx, real *wy, integer *ic, integer *gp, integer *gt, real *x, integer *npts);
extern int icguad_(integer *key, integer *cv, doublereal *x, doublereal *y, doublereal *z__, integer *npts, shortint *label, shortint *units, integer *maxchs);
extern int icguar_(integer *key, integer *cv, real *x, real *y, real *z__, integer *npts, shortint *label, shortint *units, integer *maxchs);
extern int icgui_(integer *ic, shortint *cmd);
extern int ichelp_(integer *ic);
extern int icguid_(integer *ic, shortint *cmd, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int icguir_(integer *ic, shortint *cmd, integer *cv, real *x, real *y, real *wts, integer *npts);
extern int icgund_(integer *ic, integer *gp, integer *gt, integer *cv, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy);
extern int icgu1d_(integer *ic, integer *gp, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy);
extern int icgunr_(integer *ic, integer *gp, integer *gt, integer *cv, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy);
extern int icgu1r_(integer *ic, integer *gp, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy);
extern int icgusr_(integer *ic, integer *gp, integer *gt, integer *cv, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd);
extern int iclisd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, shortint *file);
extern int iclisr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, shortint *file);
extern int icopen_(integer *ic);
extern int iccopy_(integer *icin, integer *icout);
extern int icclor_(integer *ic);
extern int icclod_(integer *ic);
extern int icpstr_(integer *ic, shortint *param, shortint *str);
extern int icputi_(integer *ic, shortint *param, integer *ival);
extern int icpkey_(integer *ic, integer *key, integer *xaxis, integer *yaxis);
extern int icgkey_(integer *ic, integer *key, integer *xaxis, integer *yaxis);
extern int icputr_(integer *ic, shortint *param, real *rval);
extern int icgstr_(integer *ic, shortint *param, shortint *str, integer *maxchs);
extern integer icgeti_(integer *ic, shortint *param);
extern E_f icgetr_(integer *ic, shortint *param);
extern int icrejd_(integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, real *lowret, real *highrt, integer *nitere, real *grow, integer *nrejet);
extern int icrejr_(integer *cv, real *x, real *y, real *w, integer *rejpts, integer *npts, real *lowret, real *highrt, integer *nitere, real *grow, integer *nrejet);
extern int icshow_(integer *ic, shortint *file, integer *gt);
extern int icvshd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *gt);
extern int icxysd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts);
extern int icvshr_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *wts, integer *npts, integer *gt);
extern int icxysr_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *w, integer *npts);
extern int incopd_(integer *insrc, integer *indst);
extern int incopr_(integer *insrc, integer *indst);
extern int 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 int 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 int indumd_(integer *fd, integer *in);
extern int indumr_(integer *fd, integer *in);
extern int 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 int 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 int infitd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *wtflag, integer *stat);
extern int infitr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *wtflag, integer *stat);
extern int infred_(integer *in);
extern int infrer_(integer *in);
extern int ingaxd_(integer *in, integer *gt, integer *nl, integer *axis, doublereal *x, doublereal *y, doublereal *z__, integer *npts, integer *nvars__);
extern doublereal ingdvd_(doublereal *x);
extern int ingaxr_(integer *in, integer *gt, integer *nl, integer *axis, real *x, real *y, real *z__, integer *npts, integer *nvars__);
extern E_f ingdvr_(real *x);
extern int 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 int ingchd_(integer *in, integer *type__);
extern int 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 int ingchr_(integer *in, integer *type__);
extern int ingdad_(integer *in, shortint *file, doublereal *x, shortint *names, integer *npts, integer *nvars__, integer *lennae);
extern int ingdar_(integer *in, shortint *file, real *x, shortint *names, integer *npts, integer *nvars__, integer *lennae);
extern int ingdey_(integer *in, integer *nvars__, integer *newgrh);
extern int ingded_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, real *wx, real *wy);
extern int ingd1d_(integer *in, integer *gp, doublereal *x, doublereal *y, doublereal *wts, integer *npts, real *wx, real *wy);
extern int ingder_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, real *wx, real *wy);
extern int ingd1r_(integer *in, integer *gp, real *x, real *y, real *wts, integer *npts, real *wx, real *wy);
extern int ingerd_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__);
extern int ingerr_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__);
extern integer ingeti_(integer *in, integer *param);
extern E_f ingetr_(integer *in, integer *param);
extern doublereal ingetd_(integer *in, integer *param);
extern integer ingetp_(integer *in, integer *param);
extern integer ingetc_(integer *in, integer *param);
extern int ingstr_(integer *in, integer *param, shortint *str, integer *maxch);
extern int ingkey_(integer *in, integer *key, integer *axis, integer *type__, integer *varnum);
extern int 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 int 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 int inggel_(integer *in, integer *xtype, integer *xnum, shortint *label, shortint *units, integer *maxch);
extern int inggrd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__);
extern int ingg1d_(integer *in, integer *gp, integer *gt, doublereal *x, doublereal *y, doublereal *wts, integer *npts);
extern int ingg2d_(integer *in, integer *gp, integer *gt, doublereal *x, doublereal *y, integer *npts);
extern int inggfd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *xin, doublereal *wts, integer *npts, integer *nvars__);
extern int inggrr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__);
extern int ingg1r_(integer *in, integer *gp, integer *gt, real *x, real *y, real *wts, integer *npts);
extern int ingg2r_(integer *in, integer *gp, integer *gt, real *x, real *y, integer *npts);
extern int inggfr_(integer *in, integer *gp, integer *gt, integer *nl, real *xin, real *wts, integer *npts, integer *nvars__);
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 ingnd_(integer *gp, doublereal *x, doublereal *y, integer *npts, 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 int ingpad_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *gt);
extern int ingpar_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *gt);
extern int ingred_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae);
extern int ingrer_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae);
extern int ingshd_(integer *in, shortint *file);
extern int ingshr_(integer *in, shortint *file);
extern int ingtie_(integer *in, shortint *file, integer *gt);
extern int inguad_(integer *keynum, integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *z__, integer *npts, integer *nvars__);
extern int inguar_(integer *keynum, integer *in, integer *nl, real *x, real *y, real *z__, integer *npts, integer *nvars__);
extern int ingucd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *newgrh);
extern int ingucr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *newgrh);
extern int inguft_(integer *in, integer *gp, integer *gt, integer *nl, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd);
extern int 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 int ingu1d_(integer *in, integer *gp, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy);
extern int 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 int ingu1r_(integer *in, integer *gp, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy);
extern int ingvad_(integer *in, shortint *file, integer *nvars__);
extern int ingvar_(integer *in, shortint *file, integer *nvars__);
extern int ingvsd_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *gt);
extern int ingvsr_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *gt);
extern int ininid_(integer *in, integer *func, integer *dfunc, doublereal *param, doublereal *dparam, integer *nparas, integer *plist, integer *nfpars);
extern int inbfid_(integer *in, integer *npts, integer *nvars__);
extern int ininir_(integer *in, integer *func, integer *dfunc, real *param, real *dparam, integer *nparas, integer *plist, integer *nfpars);
extern int inbfir_(integer *in, integer *npts, integer *nvars__);
extern int inlimd_(integer *in, doublereal *x, integer *npts, integer *nvars__);
extern int inlimr_(integer *in, real *x, integer *npts, integer *nvars__);
extern integer inlstt_(shortint *str, integer *ip, shortint *dict, integer *skip, shortint *outstr, integer *maxch);
extern integer inlstd_(integer *index, shortint *outstr, integer *maxch, shortint *dict);
extern int innlid_(integer *in, integer *nl);
extern int innlir_(integer *in, integer *nl);
extern int inputi_(integer *in, integer *param, integer *ival);
extern int inputr_(integer *in, integer *param, real *rval);
extern int inputd_(integer *in, integer *param, doublereal *dval);
extern int inputp_(integer *in, integer *param, integer *pval);
extern int inpstr_(integer *in, integer *param, shortint *str);
extern int inpkey_(integer *in, integer *key, integer *axis, integer *type__, integer *varnum);
extern int inrefd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *wtflag);
extern int inrefr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *wtflag);
extern int inrejd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *w, integer *npts, integer *nvars__, integer *wtflag);
extern int inrejr_(integer *in, integer *nl, real *x, real *y, real *w, integer *npts, integer *nvars__, integer *wtflag);
extern doublereal inrmsd_(doublereal *y, doublereal *fit, doublereal *wts, integer *npts);
extern E_f inrmsr_(real *y, real *fit, real *wts, integer *npts);
extern int rgbind_(integer *rg, integer *nbin, doublereal *in, integer *nin, doublereal *out, integer *nout);
extern int rgbinr_(integer *rg, integer *nbin, real *in, integer *nin, real *out, integer *nout);
extern int rgdump_(integer *rg);
extern integer rgence_(integer *rg, shortint *outstr, integer *maxch);
extern int rgexcd_(integer *rg, doublereal *a, integer *nin, doublereal *b, integer *nout);
extern int rgexcr_(integer *rg, real *a, integer *nin, real *b, integer *nout);
extern int rgfree_(integer *rg);
extern int rggxmd_(integer *gp, shortint *rstr, doublereal *x, integer *npts, integer *pltype);
extern int rggxmr_(integer *gp, shortint *rstr, real *x, integer *npts, integer *pltype);
extern int rginds_(integer *rg, integer *indics, integer *npts, integer *type__);
extern integer rginre_(integer *rg, integer *rval);
extern integer rgintt_(integer *rg1, integer *rg2);
extern int rginve_(integer *rg, integer *rmin, integer *rmax);
extern int rgmere_(integer *rg);
extern integer rgnext_(integer *rg, integer *number);
extern int rgordr_(integer *rg);
extern int rgpacd_(integer *rg, doublereal *a, doublereal *b);
extern int rgpacr_(integer *rg, real *a, real *b);
extern integer rgrans_(shortint *rstr, integer *rmin, integer *rmax);
extern int rgadd_(integer *rg, shortint *rstr, integer *rmin, integer *rmax);
extern integer rgunin_(integer *rg1, integer *rg2);
extern int rgunpd_(integer *rg, doublereal *packed, doublereal *unpacd);
extern int rgunpr_(integer *rg, real *packed, real *unpacd);
extern integer rgwinw_(integer *rg, integer *rmin, integer *rmax);
extern int rgwtbd_(integer *rg, integer *nbin, doublereal *in, doublereal *wtin, integer *nin, doublereal *out, doublereal *wtout, integer *nout);
extern int rgwtbr_(integer *rg, integer *nbin, real *in, real *wtin, integer *nin, real *out, real *wtout, integer *nout);
extern integer rgxrad_(shortint *rstr, doublereal *rvals, integer *npts);
extern int rgxadd_(integer *rg, shortint *rstr, doublereal *rvals, integer *npts);
extern integer rgxrar_(shortint *rstr, real *rvals, integer *npts);
extern int rgxadr_(integer *rg, shortint *rstr, real *rvals, integer *npts);
extern integer skdecs_(shortint *instr, integer *mw, integer *coo, integer *imcoo);
extern integer skdecr_(shortint *instr, integer *coo, integer *imcoo);
extern integer skdecm_(integer *im, shortint *wcs, integer *mw, integer *coo);
extern integer skstrs_(shortint *instr, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch);
extern integer skimws_(integer *im, integer *mw, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *radecs, doublereal *equinx, doublereal *epoch);
extern int skenws_(integer *coo, shortint *wcsstr, integer *maxch);
extern integer skcopy_(integer *cooin);
extern int skcloe_(integer *coo);
extern int sksavm_(integer *coo, integer *mw, integer *im);
extern int skctym_(integer *coo, integer *im);
extern int sksetd_(integer *coo, integer *param, doublereal *value);
extern int skseti_(integer *coo, integer *param, integer *value);
extern int sksets_(integer *coo, integer *param, shortint *value);
extern doublereal skstad_(integer *coo, integer *param);
extern integer skstai_(integer *coo, integer *param);
extern int skstas_(integer *coo, integer *param, shortint *value, integer *maxch);
extern int skultn_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *olng, doublereal *olat, integer *npts);
extern int sklltn_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *ipmlng, doublereal *ipmlat, doublereal *px, doublereal *rv, doublereal *olng, doublereal *olat);
extern int skequl_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *ipmlng, doublereal *ipmlat, doublereal *px, doublereal *rv, doublereal *olng, doublereal *olat);
extern integer skwrdr_(integer *index, shortint *outstr, integer *maxch, shortint *dict);
extern int skiipt_(shortint *label, shortint *images, integer *mw, integer *coo);
extern int skiiwe_(integer *fd, shortint *label, shortint *images, integer *mw, integer *coo);
extern int skinpt_(shortint *label, shortint *system, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch);
extern int skinwe_(integer *fd, shortint *label, shortint *system, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch);
extern int skimpt_(shortint *label, shortint *images, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *ptype, integer *radecs, doublereal *equinx, doublereal *epoch);
extern int skimwe_(integer *fd, shortint *label, shortint *images, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *ptype, integer *radecs, doublereal *equinx, doublereal *epoch);
extern doublereal astarp_(doublereal *ra1, doublereal *dec1, doublereal *ra2, doublereal *dec2);
extern int astcod_(doublereal *ao, doublereal *bo, doublereal *ap, doublereal *bp, doublereal *a1, doublereal *b1, doublereal *a2, doublereal *b2);
extern doublereal astdsn_(doublereal *epoch);
extern int astgac_(doublereal *ra, doublereal *dec, doublereal *epoch, doublereal *lii, doublereal *bii);
extern int astgaq_(doublereal *lii, doublereal *bii, doublereal *ra, doublereal *dec, doublereal *epoch);
extern int asthjd_(doublereal *ra, doublereal *dec, doublereal *epoch, doublereal *lt, doublereal *hjd);
extern int astjdd_(doublereal *ra, doublereal *dec, doublereal *jd, doublereal *lt, doublereal *hjd);
extern int astlvc_(doublereal *lair, doublereal *lvac, integer *npts);
extern int astprs_(doublereal *ra1, doublereal *dec1, doublereal *epoch1, doublereal *ra2, doublereal *dec2, doublereal *epoch2);
extern int astrox_(doublereal *epoch, doublereal *p);
extern int astdah_(integer *year, integer *month, integer *day, doublereal *ut, doublereal *epoch);
extern int astepe_(doublereal *epoch, integer *year, integer *month, integer *day, doublereal *ut);
extern integer astdar_(integer *year, integer *month, integer *day);
extern int astdak_(doublereal *jd, integer *d__, shortint *name__, integer *szname);
extern doublereal astjuy_(doublereal *epoch);
extern doublereal astday_(integer *year, integer *month, integer *day, doublereal *t);
extern int astjue_(doublereal *j, integer *year, integer *month, integer *day, doublereal *t);
extern doublereal astmst_(doublereal *epoch, doublereal *longie);
extern int astvby_(doublereal *ra, doublereal *dec, doublereal *epoch, doublereal *v);
extern int astvot_(doublereal *ra, doublereal *dec, doublereal *epoch, doublereal *v);
extern int astvr_(doublereal *ra1, doublereal *dec1, doublereal *v1, doublereal *ra2, doublereal *dec2, doublereal *v2);
extern int astvre_(doublereal *ra, doublereal *dec, doublereal *epoch, doublereal *latite, doublereal *longie, doublereal *altite, doublereal *v);
extern int astvsn_(doublereal *ra, doublereal *dec, doublereal *epoch, doublereal *v);
extern int precej_(doublereal *ra1, doublereal *dec1, doublereal *epoch1, doublereal *ra2, doublereal *dec2, doublereal *epoch2);
extern int preceb_(doublereal *ra1, doublereal *dec1, doublereal *epoch1, doublereal *ra2, doublereal *dec2, doublereal *epoch2);
extern int mgbprs_(doublereal *ra1, doublereal *dec1, doublereal *epoch1, doublereal *ra2, doublereal *dec2, doublereal *epoch2, doublereal *dc);
extern integer funopn_(shortint *funits);
extern int funcle_(integer *fun);
extern int funcoy_(integer *fun1, integer *fun2);
extern int fundee_(integer *fun, shortint *funits);
extern int funde1_(integer *fun, shortint *funits, shortint *funit1, integer *szfun1);
extern logical funcoe_(integer *fun1, integer *fun2);
extern int functr_(integer *fun1, integer *fun2, integer *dun, real *dval, real *fval1, real *fval2, integer *nvals);
extern int funchr_(integer *fun, shortint *funits, integer *dun, real *dvals, real *fvals, integer *nvals, integer *update);
extern int functd_(integer *fun1, integer *fun2, integer *dun, doublereal *dval, doublereal *fval1, doublereal *fval2, integer *nvals);
extern int funchd_(integer *fun, shortint *funits, integer *dun, doublereal *dvals, doublereal *fvals, integer *nvals, integer *update);
extern int shdron_(integer *im, integer *smw, integer *index1, integer *index2, integer *ap, integer *mode, integer *sh);
extern int shdrge_(integer *sh, integer *type__);
extern int shdrte_(integer *sh, integer *index, integer *band);
extern int shdrce_(integer *sh);
extern int shdrcy_(integer *sh1, integer *sh2, integer *wcs);
extern int shdrsm_(integer *sh, shortint *system);
extern int shdrus_(integer *sh, shortint *units);
extern doublereal shdrlw_(integer *sh, doublereal *l);
extern doublereal shdrwl_(integer *sh, doublereal *w);
extern int shdrrn_(integer *sh, integer *shref);
extern int shdrlr_(integer *sh, real *w0, real *w1, integer *sn, integer *dc);
extern int shdret_(integer *sh, real *w1, real *w2, logical *rebin);
extern int shdrgi_(integer *im, shortint *field, integer *defaut, integer *ival);
extern int shdrgr_(integer *im, shortint *field, real *defaut, real *rval);
extern int smwcle_(integer *smw);
extern integer smwct_(integer *sct, integer *line);
extern int smwcte_(integer *ct);
extern int smwctr_(integer *ct, real *p1, real *p2, integer *ndim);
extern E_f smwc1r_(integer *ct, real *x1);
extern int smwc2r_(integer *ct, real *x1, real *y1, real *x2, real *y2);
extern int smwctd_(integer *ct, doublereal *p1, doublereal *p2, integer *ndim);
extern doublereal smwc1d_(integer *ct, doublereal *x1);
extern int smwc2d_(integer *ct, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2);
extern int smwdas_(integer *smw, integer *im, integer *daxisp, integer *nsum1, integer *nsum2);
extern int smweqc_(integer *im, integer *smw);
extern int smwess_(integer *smw);
extern int smwgad_(integer *smw, integer *index1, integer *index2, shortint *apid, integer *maxchr);
extern int smwgws_(integer *smw, integer *index1, integer *index2, integer *ap, integer *beam, integer *dtype, doublereal *w1, doublereal *dw, integer *nw, doublereal *z__, real *aplow, real *aphigh, integer *coeff);
extern int smwmee_(integer *smw);
extern int smwmuc_(integer *im, integer *smw);
extern int smwmw_(integer *smw, integer *line, integer *band, integer *mw, integer *x, integer *y);
extern int smwnd_(integer *im, integer *smw);
extern int smwnds_(integer *im, integer *smw);
extern integer smwney_(integer *smw);
extern int smwols_(integer *im, integer *smw);
extern int smwonc_(integer *im, integer *smw);
extern int smwopn_(integer *mw, integer *smw1, integer *im);
extern integer smwopm_(integer *im);
extern int smwsad_(integer *smw, integer *index1, integer *index2, shortint *apid);
extern int smwsam_(integer *smw, integer *im);
extern int smwsas_(integer *smw, integer *smw1, integer *im);
extern integer smwscn_(integer *smw, shortint *syste1, shortint *syste2, integer *axbits);
extern int smwsmw_(integer *smw, integer *line, integer *mw);
extern int smwsws_(integer *smw, integer *index1, integer *index2, integer *ap, integer *beam, integer *dtype, doublereal *w1, doublereal *dw, integer *nw, doublereal *z__, real *aplow, real *aphigh, shortint *coeff);
extern integer unopen_(shortint *units);
extern int uncloe_(integer *un);
extern int uncopy_(integer *un1, integer *un2);
extern int undece_(integer *un, shortint *units);
extern int undec1_(integer *un, shortint *units, shortint *units1, integer *szuni1);
extern logical uncome_(integer *un1, integer *un2);
extern int unctrr_(integer *un1, integer *un2, real *val1, real *val2, integer *nvals);
extern int unchar_(integer *un, shortint *units, real *vals, integer *nvals, integer *update);
extern int unctrd_(integer *un1, integer *un2, doublereal *val1, doublereal *val2, integer *nvals);
extern int unchad_(integer *un, shortint *units, doublereal *vals, integer *nvals, integer *update);
extern int unabbr_(integer *stp);