extern int sgstxy_(real *txmin, real *txmax, real *tymin, real * tymax);
extern int sgqtxy_(real *txmin, real *txmax, real *tymin, real * tymax);
extern int sgstrf_(void);
extern int sgtxzu_(real *ux, real *uy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, ftnlen chars_len);
extern int sglau_(real *ux1, real *uy1, real *ux2, real *uy2);
extern int sglav_(real *vx1, real *vy1, real *vx2, real *vy2);
extern int sglar_(real *rx1, real *ry1, real *rx2, real *ry2);
extern int sgslat_(integer *itype);
extern int sgqlat_(integer *itype);
extern int sgslai_(integer *index);
extern int sgqlai_(integer *index);
extern int sgpcmd_(void);
extern int sgpmzu_(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int sgscmn_(integer *nc);
extern int sgqcmn_(integer *nmax);
extern int sgpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int sgpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int sgpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int sgtnxv_(integer *n, real *vpx, real *vpy, integer *itpat, integer *icolor);
extern int sgpwsn_(void);
extern int sgtnxu_(integer *n, real *upx, real *upy, integer *itpat, integer *icolor);
extern int sgpmxu_(integer *n, real *upx, real *upy, integer *itype, integer *index, integer *icolor, real *rsize);
extern int sgtnxr_(integer *n, real *rpx, real *rpy, integer *itpat, integer *icolor);
extern int sgrqnp_(integer *ncp);
extern int sgrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int sgrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int sgrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int sgrqvl_(integer *idx, real *rpara);
extern int sgrsvl_(integer *idx, real *rpara);
extern int sgrqin_(char *cp, integer *in, ftnlen cp_len);
extern int sgpqnp_(integer *ncp);
extern int sgpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int sgpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int sgpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int sgpqit_(integer *idx, integer *itp);
extern int sgpqvl_(integer *idx, integer *ipara);
extern int sgpsvl_(integer *idx, integer *ipara);
extern int sgpqin_(char *cp, integer *in, ftnlen cp_len);
extern int sgtxu_(real *ux, real *uy, char *chars, ftnlen chars_len);
extern int sgtxv_(real *vx, real *vy, char *chars, ftnlen chars_len);
extern int sgtxr_(real *rx, real *ry, char *chars, ftnlen chars_len);
extern int sgstxs_(real *rsize);
extern int sgqtxs_(real *rsize);
extern int sgstxr_(integer *irota);
extern int sgqtxr_(integer *irota);
extern int sgstxc_(integer *icent);
extern int sgqtxc_(integer *icent);
extern int sgstxi_(integer *index);
extern int sgqtxi_(integer *index);
extern int sgtnzu_(integer *n, real *upx, real *upy, integer *itpat);
extern int sgtnu_(integer *n, real *upx, real *upy);
extern int sgtnv_(integer *n, real *vpx, real *vpy);
extern int sgtnr_(integer *n, real *rpx, real *rpy);
extern int sgstnp_(integer *itpat);
extern int sgqtnp_(integer *itpat);
extern int sgscwd_(real *cxmin, real *cxmax, real *cymin, real * cymax);
extern int sgqcwd_(real *cxmin, real *cxmax, real *cymin, real * cymax);
extern int sgtnzr_(integer *n, real *rpx, real *rpy, integer *itpat);
extern int sglnzu_(real *ux1, real *uy1, real *ux2, real *uy2,  integer *index);
extern int sgpmu_(integer *n, real *upx, real *upy);
extern int sgpmv_(integer *n, real *vpx, real *vpy);
extern int sgpmr_(integer *n, real *rpx, real *rpy);
extern int sgspmt_(integer *itype);
extern int sgqpmt_(integer *itype);
extern int sgspmi_(integer *index);
extern int sgqpmi_(integer *index);
extern int sgspms_(real *rsize);
extern int sgqpms_(real *rsize);
extern int sgpmzv_(integer *n, real *vpx, real *vpy, integer *itype, integer *index, real *rsize);
extern int sglnxr_(real *rx1, real *ry1, real *rx2, real *ry2,  integer *index, integer *icolor);
extern int sgsmpl_(real *plx, real *ply, real *plrot);
extern int sgqmpl_(real *plx, real *ply, real *plrot);
extern int sglnxu_(real *ux1, real *uy1, real *ux2, real *uy2,  integer *index, integer *icolor);
extern int sgoopn_(char *cprc, char *com, ftnlen cprc_len, ftnlen  com_len);
extern int sgocls_(char *cprc, ftnlen cprc_len);
extern int sglaxr_(real *rx1, real *ry1, real *rx2, real *ry2,  integer *itype, integer *index, integer *icolor);
extern int sglget_(char *cp, logical *lpara, ftnlen cp_len);
extern int sglset_(char *cp, logical *lpara, ftnlen cp_len);
extern int sglstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int sgstrn_(integer *itr);
extern int sgqtrn_(integer *itr);
extern int sgtxxv_(real *vx, real *vy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, integer *icolor,  ftnlen chars_len);
extern int sgpmzr_(integer *n, real *rpx, real *rpy, integer *itype, integer *index, real *rsize);
extern int sglnzr_(real *rx1, real *ry1, real *rx2, real *ry2,  integer *index);
extern int sglazr_(real *rx1, real *ry1, real *rx2, real *ry2,  integer *itype, integer *index);
extern int sglnu_(real *ux1, real *uy1, real *ux2, real *uy2);
extern int sglnv_(real *vx1, real *vy1, real *vx2, real *vy2);
extern int sglnr_(real *rx1, real *ry1, real *rx2, real *ry2);
extern int sgslni_(integer *index);
extern int sgqlni_(integer *index);
extern int sglaxu_(real *ux1, real *uy1, real *ux2, real *uy2,  integer *itype, integer *index, integer *icolor);
extern int sgplu_(integer *n, real *upx, real *upy);
extern int sgplv_(integer *n, real *vpx, real *vpy);
extern int sgplr_(integer *n, real *rpx, real *rpy);
extern int sgsplt_(integer *itype);
extern int sgqplt_(integer *itype);
extern int sgspli_(integer *index);
extern int sgqpli_(integer *index);
extern int sgplxv_(integer *n, real *vpx, real *vpy, integer *itype, integer *index, integer *icolor);
extern int sgssim_(real *simfac, real *vxoff, real *vyoff);
extern int sgqsim_(real *simfac, real *vxoff, real *vyoff);
extern int sgswnd_(real *uxmin, real *uxmax, real *uymin, real * uymax);
extern int sgqwnd_(real *uxmin, real *uxmax, real *uymin, real * uymax);
extern int sgiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int sgiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int sgistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int sgsplc_(char *charx, ftnlen charx_len);
extern int sgqplc_(char *charx, ftnlen charx_len);
extern int sgspls_(real *rsize);
extern int sgqpls_(real *rsize);
extern int sgnplc_(void);
extern int sgsvpt_(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int sgqvpt_(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int sgtxxu_(real *ux, real *uy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, integer *icolor,  ftnlen chars_len);
extern int sglqnp_(integer *ncp);
extern int sglqid_(char *cp, integer *idx, ftnlen cp_len);
extern int sglqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int sglqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int sglqvl_(integer *idx, logical *lpara);
extern int sglsvl_(integer *idx, logical *lpara);
extern int sglqin_(char *cp, integer *in, ftnlen cp_len);
extern int sgplxr_(integer *n, real *rpx, real *rpy, integer *itype, integer *index, integer *icolor);
extern int sgiqnp_(integer *ncp);
extern int sgiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int sgiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int sgiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int sgiqvl_(integer *idx, integer *ipara);
extern int sgisvl_(integer *idx, integer *ipara);
extern int sgiqin_(char *cp, integer *in, ftnlen cp_len);
extern integer isgtrc_(char *ctr, ftnlen ctr_len);
extern int sgopn_(integer *iws);
extern int sginit_(void);
extern int sgfrm_(void);
extern int sgcls_(void);
extern int sgtxxr_(real *rx, real *ry, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, integer *icolor,  ftnlen chars_len);
extern int sgtxzr_(real *rx, real *ry, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, ftnlen chars_len);
extern int sgpmxv_(integer *n, real *vpx, real *vpy, integer *itype, integer *index, integer *icolor, real *rsize);
extern int sgtrqf_(integer *ntx, logical *ltr);
extern int sgtrsl_(char *cts, char *ctl, ftnlen cts_len, ftnlen  ctl_len);
extern int sgtrsn_(char *cts, integer *ntx, ftnlen cts_len);
extern int sgtrls_(char *ctl, char *cts, ftnlen ctl_len, ftnlen  cts_len);
extern int sgtrln_(char *ctl, integer *ntx, ftnlen ctl_len);
extern int sgtrns_(integer *ntx, char *cts, ftnlen cts_len);
extern int sgtrnl_(integer *ntx, char *ctl, ftnlen ctl_len);
extern int sgpmxr_(integer *n, real *rpx, real *rpy, integer *itype, integer *index, integer *icolor, real *rsize);
extern int sgplxu_(integer *n, real *upx, real *upy, integer *itype, integer *index, integer *icolor);
extern int sgplzv_(integer *n, real *vpx, real *vpy, integer *itype, integer *index);
extern int sglnzv_(real *vx1, real *vy1, real *vx2, real *vy2,  integer *index);
extern integer isgrgb_(integer *ir, integer *ig, integer *ib);
extern int sglazu_(real *ux1, real *uy1, real *ux2, real *uy2,  integer *itype, integer *index);
extern int sgtnzv_(integer *n, real *vpx, real *vpy, integer *itpat);
extern int sglnxv_(real *vx1, real *vy1, real *vx2, real *vy2,  integer *index, integer *icolor);
extern int sgplzr_(integer *n, real *rpx, real *rpy, integer *itype, integer *index);
extern int sglaxv_(real *vx1, real *vy1, real *vx2, real *vy2,  integer *itype, integer *index, integer *icolor);
extern int sgclst_(char *ccfile, ftnlen ccfile_len);
extern int sgqcl_(integer *num, integer *nr, integer *ng, integer * nb);
extern int sgrget_(char *cp, real *rpara, ftnlen cp_len);
extern int sgrset_(char *cp, real *rpara, ftnlen cp_len);
extern int sgrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int sglazv_(real *vx1, real *vy1, real *vx2, real *vy2,  integer *itype, integer *index);
extern int sgplzu_(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int sgtxzv_(real *vx, real *vy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, ftnlen chars_len);
extern int stfpr3_(real *x, real *y, real *z__, real *rx, real *ry);
extern int stspr3_(real *xfc, real *yfc, real *zfc, real *theta,  real *phi, real *psi, real *fac, real *zview, real *rxoff, real * ryoff);
extern int stfpr2_(real *x, real *y, real *rx, real *ry);
extern int stipr2_(real *rx, real *ry, real *x, real *y);
extern int stspr2_(integer *ix, integer *iy, real *sect);
extern int stepr2_(void);
extern int strpr2_(void);
extern int stftrf_(real *ux, real *uy, real *vx, real *vy);
extern int stitrf_(real *vx, real *vy, real *ux, real *uy);
extern int stqtrf_(logical *lmapa);
extern int ststrf_(logical *lmapa);
extern int stfrot_(real *ux, real *uy, real *tx, real *ty);
extern int stirot_(real *tx, real *ty, real *ux, real *uy);
extern int stsrot_(real *theta, real *phi, real *psi);
extern int stfwtr_(real *rx, real *ry, real *wx, real *wy);
extern int stiwtr_(real *wx, real *wy, real *rx, real *ry);
extern int stswtr_(real *rxmin, real *rxmax, real *rymin, real * rymax, real *wxmin, real *wxmax, real *wymin, real *wymax, integer * iwtrf);
extern int stqwtr_(real *rxmin, real *rxmax, real *rymin, real * rymax, real *wxmin, real *wxmax, real *wymin, real *wymax, integer * iwtrf);
extern int stswrc_(real *wsxmn, real *wsxmx, real *wsymn, real * wsymx);
extern int stqwrc_(real *wsxmn, real *wsxmx, real *wsymn, real * wsymx);
extern int stftrn_(real *ux, real *uy, real *vx, real *vy);
extern int stitrn_(real *vx, real *vy, real *ux, real *uy);
extern int ststri_(integer *itr);
extern int ststrp_(real *cxa, real *cya, real *vxoff, real *vyoff);
extern int stfrad_(real *x, real *y, real *rx, real *ry);
extern int stirad_(real *rx, real *ry, real *x, real *y);
extern int stsrad_(logical *lxdeg, logical *lydeg);
extern int stfusr_(real *xlon, real *ylat, real *x, real *y);
extern int stiusr_(real *x, real *y, real *xlon, real *ylat);
extern int stsusr_(void);
extern int stnusr_(integer *kproj);
extern int stcusr_(integer *i__, char *cttl, ftnlen cttl_len);
extern int ststrn_(integer *itr, real *cxa, real *cya, real *vxoff,  real *vyoff);
extern int stftr3_(real *ux, real *uy, real *uz, real *vx, real *vy, real *vz);
extern int ststr3_(integer *itr, real *cxa, real *cya, real *cza,  real *vxoff, real *vyoff, real *vzoff);
extern int stsrd3_(logical *lxrd, logical *lyrd, logical *lzrd);
extern int stslg3_(logical *lxlg, logical *lylg, logical *lzlg);
extern void zxdopn_(integer *width, integer *height, integer *iposx, integer *iposy, integer *lwait, integer *lwait0, integer *lwait1, integer *lkey,  integer *lalt, integer *ldump, integer *lfgbg, char clrmap[], char cbmmap[], char file[], char title[]);
extern void zxdcls_(void);
extern void zxpopn_(void);
extern void zxpcls_(void);
extern void zxoopn_(char *objname, char *comment);
extern void zxocls_(char *objname);
extern void zxqfcc_(integer *lfcatr);
extern void zxsfcm_(integer *lfc);
extern void zxswdi_(integer *iwdidx);
extern void zxscli_(integer *iclidx);
extern void zxslcl_(unsigned long int *icolor);
extern void zxgopn_(void);
extern void zxgmov_(real *wx, real *wy);
extern void zxgplt_(real *wx, real *wy);
extern void zxgcls_(void);
extern void zxstcl_(unsigned long int *icolor);
extern void zxgton_(integer *np, real wpx[], real wpy[], integer *itpat);
extern void zxiopn_(integer *iwx, integer *iwy, integer *iwidth, integer *iheight);
extern void zxidat_(integer image[], integer *nlen);
extern void zxicls_(void);
extern void zxiclr_(integer image[], integer *nlen);
extern void zxqpnt_(real *wx, real *wy, integer *mb);
extern void zxfint_(real *wx, real *wy, integer *iwx, integer *iwy);
extern void zxiint_(integer *iwx, integer *iwy, real *wx, real *wy);
extern void zxqwdc_(integer *lwdatr);
extern void zxqclc_(integer *lclatr);
extern void zxqtnc_(integer *ltnatr);
extern void zxqimc_(integer *limatr);
extern void zxqptc_(integer *lptatr);
extern void zxqrct_(real *wsxmn, real *wsxmx, real *wsymn, real *wsymx, real *fact);
extern void zxsrot_(integer *iwtrot);
extern void zxclini_(char clrmap[], integer *lfgbg);
extern int swcget_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int swcset_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int swcstx_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int swpqnp_(integer *ncp);
extern int swpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int swpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int swpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int swpqit_(integer *idx, integer *itp);
extern int swpqvl_(integer *idx, integer *ipara);
extern int swpsvl_(integer *idx, integer *ipara);
extern int swpqin_(char *cp, integer *in, ftnlen cp_len);
extern int swdopn_(void);
extern int swdcls_(void);
extern int swpopn_(void);
extern int swpcls_(void);
extern int swoopn_(char *cobj, char *comm, ftnlen cobj_len, ftnlen  comm_len);
extern int swocls_(char *cobj, ftnlen cobj_len);
extern int swqfcc_(logical *lfcatr);
extern int swsfcm_(logical *lfcmod);
extern int swswdi_(integer *iwdidx);
extern int swscli_(integer *iclidx, logical *lfcatr);
extern int swslcl_(integer *icolor);
extern int swgopn_(void);
extern int swgmov_(real *wx, real *wy);
extern int swgplt_(real *wx, real *wy);
extern int swgcls_(void);
extern int swstcl_(integer *icolor);
extern int swgton_(integer *np, real *wpx, real *wpy, integer * itpat);
extern int swiopn_(integer *iwx, integer *iwy, integer *imw,  integer *imh, real *wx1, real *wy1, real *wx2, real *wy2, real *wx3,  real *wy3, real *wx4, real *wy4);
extern int swidat_(integer *image, integer *nlen);
extern int swiclr_(integer *image, integer *nlen);
extern int swicls_(void);
extern int swqpnt_(real *wx, real *wy, integer *mb);
extern int swfint_(real *wx, real *wy, integer *iwx, integer *iwy);
extern int swiint_(integer *iwx, integer *iwy, real *wx, real *wy);
extern int swqwdc_(logical *lwdatr);
extern int swqclc_(logical *lclatr);
extern int swqtnc_(logical *ltnatr);
extern int swqimc_(logical *limatr);
extern int swqptc_(logical *lptatr);
extern int swqrct_(real *wsxmn, real *wsxmx, real *wsymn, real * wsymx, real *fact);
extern int swsrot_(integer *iwtrot);
extern int swclch_(void);
extern int swlget_(char *cp, logical *lpara, ftnlen cp_len);
extern int swlset_(char *cp, logical *lpara, ftnlen cp_len);
extern int swlstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int swpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int swpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int swpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int swcqnp_(integer *ncp);
extern int swcqid_(char *cp, integer *idx, ftnlen cp_len);
extern int swcqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int swcqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int swcqvl_(integer *idx, char *cval, ftnlen cval_len);
extern int swcsvl_(integer *idx, char *cval, ftnlen cval_len);
extern int swcqin_(char *cp, integer *in, ftnlen cp_len);
extern int swlqnp_(integer *ncp);
extern int swlqid_(char *cp, integer *idx, ftnlen cp_len);
extern int swlqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int swlqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int swlqvl_(integer *idx, logical *lpara);
extern int swlsvl_(integer *idx, logical *lpara);
extern int swlqin_(char *cp, integer *in, ftnlen cp_len);
extern int swiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int swiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int swistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int swqfnm_(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
#ifdef __GTK_H__
extern void zgsdrw_(GtkWidget *d);
extern void zgspmp_(GdkPixmap *pmap);
extern void zgdopn_(integer *width, integer *height, integer *iposx, integer *iposy,  integer *lwait, integer *lwait0, integer *lwait1, integer *lalt, integer *lkey, integer *ldump, integer *lwnd, integer *lfgbg, char cimgfmt[], real *rimgcmp, char clrmap[], char cbmmap[], char file[], char title[]);
extern void zgdcls_(void);
extern void zgpopn_(void);
extern void zgpcls_(void);
extern void zgoopn_(char *objname, char *comment);
extern void zgocls_(char *objname);
extern void zgswdi_(integer *iwdidx);
extern void zgscli_(integer *iclidx);
extern void zggopn_(void);
extern void zggmov_(real *wx, real *wy);
extern void zggplt_(real *wx, real *wy);
extern void zggcls_(void);
extern void zggton_(integer *np, real wpx[], real wpy[], integer *itpat);
extern void zgiopn_(integer *iwx, integer *iwy, integer *iwidth, integer *iheight);
extern void zgidat_(integer image[], integer *nlen);
extern void zgicls_(void);
extern void zgqpnt_(real *wx, real *wy, integer *mb);
extern void zgfint_(real *wx, real *wy, integer *iwx, integer *iwy);
extern void zgiint_(integer *iwx, integer *iwy, real *wx, real *wy);
extern void zgqwdc_(integer *lwdatr);
extern void zgqclc_(integer *lclatr);
extern void zgqtnc_(integer *ltnatr);
extern void zgqimc_(integer *limatr);
extern void zgqptc_(integer *lptatr);
extern void zgqrct_(real *wsxmn, real *wsxmx, real *wsymn, real *wsymx, real *fact);
extern void zgsrot_(integer *iwtrot);
extern void zgsfcm_(integer *lfc);
extern void zgslcl_(integer *icolor);
extern void zgstcl_(integer *icolor);
extern void zgiclr_(integer *image,integer *nlen);
extern void zgclini_(char clrmap[], integer *lfgbg);
#endif /* __GTK_H__ */
extern int swcmll_(void);
extern int swqcmn_(integer *nn);
extern int swqcmf_(integer *ntx, char *ctf, ftnlen ctf_len);
extern int swqcmd_(integer *ntx, char *ctd, ftnlen ctd_len);
extern void z1dopn_(integer *width, integer *height, integer *lcolor, integer *lsep, integer *lprint, char cmap[], char file[], char title[], char com[]);
extern void z1dcls_(void);
extern void z1popn_(void);
extern void z1pcls_(void);
extern void z1oopn_(char *objname, char *comment, int Lobj, int Lcom);
extern void z1ocls_(char *objname, int Lobj);
extern void z1swdi_(integer *iwdidx);
extern void z1scli_(integer *iclidx);
extern void z1gopn_(void);
extern void z1gmov_(real *wx, real *wy);
extern void z1gplt_(real *wx, real *wy);
extern void z1gcls_(void);
extern void z1gton_(integer *np, real wpx[], real wpy[], integer *itpat);
extern void z1clip_(real *wx1, real *wy1, real *wx2, real *wy2, real *wx3, real *wy3, real *wx4, real *wy4);
extern void z1iopn_(integer *iwx, integer *iwy, integer *iwidth, integer *iheight);
extern void z1idat_(integer image[], integer *nlen);
extern void z1icls_(void);
extern void z1qpnt_(real *wx, real *wy, integer *mb);
extern void z1fint_(real *wx, real *wy, integer *iwx, integer *iwy);
extern void z1iint_(integer *iwx, integer *iwy, real *wx, real *wy);
extern void z1qwdc_(integer *lwdatr);
extern void z1qclc_(integer *lclatr);
extern void z1qtnc_(integer *ltnatr);
extern void z1qimc_(integer *limatr);
extern void z1qptc_(integer *lptatr);
extern void z1qrct_(real *wsxmn, real *wsxmx, real *wsymn, real *wsymx, real *fact);
extern void z1srot_(integer *iwtrot);
extern void z1sfcm_(integer *lfc);
extern void z1slcl_(integer *icolor);
extern void z1stcl_(integer *icolor);
extern void z1iclr_(integer *image,integer *nlen);
extern void z1clini_(char cmap[]);
extern int swrget_(char *cp, real *rpara, ftnlen cp_len);
extern int swrset_(char *cp, real *rpara, ftnlen cp_len);
extern int swrstx_(char *cp, real *rpara, ftnlen cp_len);
extern void ztdopn_(integer *iwait);
extern void ztdcls_(void);
extern void ztpopn_(void);
extern void ztpcls_(void);
extern void ztoopn_(char *objname, char *comment);
extern void ztocls_(char *objname);
extern void ztswdi_(integer *iwdidx);
extern void ztscli_(integer *iclidx);
extern void ztgopn_(void);
extern void ztgmov_(real *wx, real *wy);
extern void ztgplt_(real *wx, real *wy);
extern void ztgcls_(void);
extern void ztgton_(integer *np, real wpx[], real wpy[], integer *itpat);
extern void ztiopn_(integer *iwx, integer *iwy, integer *iwidth, integer *iheight);
extern void ztidat_(integer image[], integer *nlen);
extern void zticls_(void);
extern void ztqpnt_(real *wx, real *wy, integer *mb);
extern void ztfint_(real *wx, real *wy, integer *iwx, integer *iwy);
extern void ztiint_(integer *iwx, integer *iwy, real *wx, real *wy);
extern void ztqwdc_(integer *lwdatr);
extern void ztqclc_(integer *lclatr);
extern void ztqtnc_(integer *ltnatr);
extern void ztqimc_(integer *limatr);
extern void ztqptc_(integer *lptatr);
extern void ztqrct_(real *wsxmn, real *wsxmx, real *wsymn, real *wsymx, real *fact);
extern void ztsrot_(integer *iwtrot);
extern int swrqnp_(integer *ncp);
extern int swrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int swrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int swrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int swrqvl_(integer *idx, real *rpara);
extern int swrsvl_(integer *idx, real *rpara);
extern int swrqin_(char *cp, integer *in, ftnlen cp_len);
extern H_f csgi_(char *ret_val, ftnlen ret_val_len, integer *ic);
extern int slratz_(real *xamin, real *xamax, real *yamin, real * yamax, real *rx, real *ry);
extern int slsttl_(char *cttl, char *cside, real *px, real *py,  real *ht, integer *nt, ftnlen cttl_len, ftnlen cside_len);
extern int sldttl_(integer *nt);
extern int slpttl_(void);
extern int slzttl_(char *cside, char *cttl, real *px, real *py,  real *rsize, integer *index, ftnlen cside_len, ftnlen cttl_len);
extern int slpwvr_(integer *index);
extern int slrat_(real *rx, real *ry);
extern int sldivz_(real *xamin, real *xamax, real *yamin, real * yamax, char *cform, integer *ix, integer *iy, real *xbmin, real * xbmax, real *ybmin, real *ybmax, ftnlen cform_len);
extern int slqrct_(integer *lev, integer *ifrm, real *xamin, real * xamax, real *yamin, real *yamax);
extern int slpage_(integer *lev, integer *ifrm, integer *ipage);
extern int slqsiz_(char *csize, real *dx, real *dy, ftnlen  csize_len);
extern int slmgnz_(real *xamin, real *xamax, real *yamin, real * yamax, real *xl, real *xr, real *yb, real *yt);
extern int slpvpr_(integer *index);
extern int slpvpc_(integer *index, real *rc);
extern int slpcnr_(void);
extern int sldiv_(char *cform, integer *ix, integer *iy, ftnlen  cform_len);
extern int sltlcv_(char *ctlin, char *ctlout, integer *lout, ftnlen  ctlin_len, ftnlen ctlout_len);
extern int slpwwc_(integer *index, real *rc);
extern int slmgn_(real *xl, real *xr, real *yb, real *yt);
extern int slpwvc_(integer *index, real *rc);
extern int slinit_(real *wxmax, real *wymax, real *fact);
extern int slsize_(char *cszez, ftnlen cszez_len);
extern int slform_(real *dxa, real *dya);
extern int slpwwr_(integer *index);
extern int scplzu_(integer *n, real *upx, real *upy, real *upz,  integer *index);
extern int scpmu_(integer *n, real *upx, real *upy, real *upz);
extern int scpmv_(integer *n, real *vpx, real *vpy, real *vpz);
extern int scspmt_(integer *itype);
extern int scqpmt_(integer *itype);
extern int scspmi_(integer *index);
extern int scqpmi_(integer *index);
extern int scspms_(real *rsize);
extern int scqpms_(real *rsize);
extern int scstrn_(integer *itr3);
extern int scqtrn_(integer *itr3);
extern int scplu_(integer *n, real *upx, real *upy, real *upz);
extern int scplv_(integer *n, real *vpx, real *vpy, real *vpz);
extern int scspli_(integer *index);
extern int scqpli_(integer *index);
extern int scpmzu_(integer *n, real *upx, real *upy, real *upz,  integer *itype, integer *index, real *rsize);
extern int scsprj_(void);
extern int scslog_(logical *lxlog3, logical *lylog3, logical * lzlog3);
extern int scqlog_(logical *lxlog3, logical *lylog3, logical * lzlog3);
extern int sctnzu_(real *upx, real *upy, real *upz, integer *itpat1, integer *itpat2);
extern int scspln_(integer *ixax, integer *iyax, real *sect);
extern int scqpln_(integer *ixax, integer *iyax, real *sect);
extern int scsorg_(real *simfac, real *vxorg3, real *vyorg3, real * vzorg3);
extern int scqorg_(real *simfac, real *vxorg3, real *vyorg3, real * vzorg3);
extern int scswnd_(real *uxmin, real *uxmax, real *uymin, real * uymax, real *uzmin, real *uzmax);
extern int scqwnd_(real *uxmin, real *uxmax, real *uymin, real * uymax, real *uzmin, real *uzmax);
extern int scplzv_(integer *n, real *vpx, real *vpy, real *vpz,  integer *index);
extern int scpmzv_(integer *n, real *vpx, real *vpy, real *vpz,  integer *itype, integer *index, real *rsize);
extern int scseye_(real *xeye3, real *yeye3, real *zeye3);
extern int scqeye_(real *xeye3, real *yeye3, real *zeye3);
extern int scsvpt_(real *vxmin, real *vxmax, real *vymin, real * vymax, real *vzmin, real *vzmax);
extern int scqvpt_(real *vxmin, real *vxmax, real *vymin, real * vymax, real *vzmin, real *vzmax);
extern int scsobj_(real *xobj3, real *yobj3, real *zobj3);
extern int scqobj_(real *xobj3, real *yobj3, real *zobj3);
extern int scstrf_(void);
extern int sctnzv_(real *vpx, real *vpy, real *vpz, integer *itpat1, integer *itpat2);
extern int sctnu_(real *upx, real *upy, real *upz);
extern int sctnv_(real *vpx, real *vpy, real *vpz);
extern int scstnp_(integer *itpat1, integer *itpat2);
extern int scqtnp_(integer *itpat1, integer *itpat2);
extern int szlnzv_(real *vx1, real *vy1, real *vx2, real *vy2);
extern int szlazr_(real *rx1, real *ry1, real *rx2, real *ry2);
extern int szoplz_(void);
extern int szmvlz_(real *rx, real *ry);
extern int szpllz_(real *rx, real *ry);
extern int szcllz_(void);
extern int szl3zv_(integer *n, real *v3x, real *v3y, real *v3z);
extern int szoptt_(void);
extern int szsttt_(real *tx, real *ty);
extern int szcltt_(void);
extern int szoplv_(void);
extern int szmvlv_(real *vx, real *vy);
extern int szpllv_(real *vx, real *vy);
extern int szcllv_(void);
extern int szlnzr_(real *rx1, real *ry1, real *rx2, real *ry2);
extern int sztxop_(real *rsize, integer *irota, integer *icent,  integer *index);
extern int sztxcl_(void);
extern int szsidx_(integer *index);
extern int szqidx_(integer *index);
extern int szoptr_(void);
extern int szsttr_(real *rx, real *ry);
extern int szcltr_(void);
extern int sztxzv_(real *vx, real *vy, char *chars, ftnlen  chars_len);
extern int szfont_(integer *ifont, integer *iposx, integer *nchar,  char *ckx, char *cky, integer *len, ftnlen ckx_len, ftnlen cky_len);
extern int sztnzu_(integer *n, real *upx, real *upy);
extern int szt3zv_(real *vpx, real *vpy, real *vpz);
extern int szpcll_(real *vx0, real *vy0, real *vx1, real *vy1,  logical *lvalid, integer *ii);
extern int szgcll_(real *xx, real *yy, logical *lcont, logical * lmove, integer *ii);
extern int szscll_(real *vxmin, real *vxmax, real *vymin, real * vymax, integer *ii);
extern int szqcll_(real *vxmin, real *vxmax, real *vymin, real * vymax, integer *ii);
extern int szoptv_(void);
extern int szsttv_(real *vx, real *vy);
extern int szcltv_(void);
extern int szopl3_(void);
extern int szmvl3_(real *sx, real *sy, real *sz);
extern int szpll3_(real *sx, real *sy, real *sz);
extern int szcll3_(void);
extern int szpclx_(real *tx0, real *ty0, real *tx1, real *ty1,  logical *lvalid, logical *lbound);
extern int szgclx_(real *tx, real *ty, logical *lcont, logical * lmove);
extern int szsclx_(real *xbnd1, real *xbnd2);
extern int szqclx_(real *xbnd1, real *xbnd2);
extern int szt3zu_(real *upx, real *upy, real *upz);
extern int szl3op_(integer *index);
extern int szl3cl_(void);
extern int szplzr_(integer *n, real *rpx, real *rpy);
extern int szqtxw_(char *chars, integer *nc, real *wxch, real *wych, ftnlen chars_len);
extern int szoplp_(void);
extern int szmvlp_(real *vx, real *vy);
extern int szpllp_(real *vx, real *vy);
extern int szcllp_(void);
extern int szpmzr_(integer *n, real *rpx, real *rpy);
extern int szplzu_(integer *n, real *upx, real *upy);
extern int szpipl_(real *x0, real *y0, real *x1, real *y1, integer * mode);
extern int szgipl_(real *x, real *y, logical *lcont);
extern int szt3op_(integer *itpat1, integer *itpat2);
extern int szt3cl_(void);
extern int szoplr_(void);
extern int szmvlr_(real *rx, real *ry);
extern int szpllr_(real *rx, real *ry);
extern int szcllr_(void);
extern int sztnsv_(integer *n, real *vpx, real *vpy, integer *irota, real *rspce, integer *itype, integer *index);
extern int szlnzu_(real *ux1, real *uy1, real *ux2, real *uy2);
extern int sztnzr_(integer *n, real *rpx, real *rpy);
extern int szlazv_(real *vx1, real *vy1, real *vx2, real *vy2);
extern int szl3zu_(integer *n, real *u3x, real *u3y, real *u3z);
extern int szoplu_(void);
extern int szmvlu_(real *ux, real *uy);
extern int szpllu_(real *ux, real *uy);
extern int szcllu_(void);
extern int szpipz_(real *uxp0, real *uyp0, real *uxp1, real *uyp1,  integer *nn);
extern int szgipz_(real *uxg0, real *uyg0, real *uxg1, real *uyg1,  integer *n0);
extern int szstni_(integer *itpat);
extern int szqtni_(integer *itpat);
extern int szopld_(void);
extern int szmvld_(real *vx, real *vy);
extern int szplld_(real *vx, real *vy);
extern int szclld_(void);
extern int szstyz_(integer *ipat);
extern int szqtyz_(integer *ipat);
extern int szoptp_(void);
extern int szsttp_(real *vx, real *vy);
extern int szcltp_(void);
extern int szstmd_(logical *lhard);
extern int szqtmd_(logical *lhard);
extern int szpmzu_(integer *n, real *upx, real *upy);
extern int szstyp_(integer *itype);
extern int szqtyp_(integer *itype);
extern int szm3zv_(integer *n, real *vpx, real *vpy, real *vpz);
extern int szpmop_(integer *itype, integer *index, real *rsize);
extern int szpmcl_(void);
extern int szlnop_(integer *index);
extern int szlncl_(void);
extern int szlazu_(real *ux1, real *uy1, real *ux2, real *uy2);
extern int szslti_(integer *itype, integer *index);
extern int szplzv_(integer *n, real *vpx, real *vpy);
extern int szfint_(integer *ncnt);
extern int szqfnt_(integer *jposx, char *clx, char *cly, ftnlen  clx_len, ftnlen cly_len);
extern int szqfnw_(real *wx1, real *wx2);
extern int szlaop_(integer *itype, integer *index);
extern int szlacl_(void);
extern int sztxzu_(real *ux, real *uy, char *chars, ftnlen  chars_len);
extern int sztnop_(integer *itpat);
extern int sztncl_(void);
extern int szpcly_(real *tx0, real *ty0, real *tx1, real *ty1,  logical *lvalid, logical *lbound);
extern int szgcly_(real *tx, real *ty, logical *lcont);
extern int szscly_(real *ybnd1, real *ybnd2);
extern int szqcly_(real *ybnd1, real *ybnd2);
extern int szoplc_(void);
extern int szmvlc_(real *vx, real *vy);
extern int szpllc_(real *vx, real *vy);
extern int szcllc_(void);
extern int szschz_(char *ch, real *h__, ftnlen ch_len);
extern int szqchz_(char *ch, real *h__, ftnlen ch_len);
extern int szcrst_(void);
extern int szpipt_(real *tx0, real *ty0, real *tx1, real *ty1,  integer *mode);
extern int szgipt_(real *tx, real *ty, logical *lcont);
extern int szpmzv_(integer *n, real *vpx, real *vpy);
extern int szoptz_(void);
extern int szsttz_(real *rx, real *ry);
extern int szcltz_(void);
extern int sztitz_(integer *itpat);
extern int szoplt_(void);
extern int szmvlt_(real *tx, real *ty);
extern int szpllt_(real *tx, real *ty);
extern int szcllt_(void);
extern int szopsv_(void);
extern int szmvsv_(real *vx, real *vy);
extern int szplsv_(real *vx, real *vy);
extern int szclsv_(void);
extern int szcltn_(integer *icpat, integer *maxcli);
extern int szplop_(integer *itype, integer *index);
extern int szplcl_(void);
extern int sztxzr_(real *rx, real *ry, char *chars, ftnlen  chars_len);
extern int szoptu_(void);
extern int szsttu_(real *ux, real *uy);
extern int szcltu_(void);
extern int sztnzv_(integer *n, real *vpx, real *vpy);
extern int szm3op_(integer *itype, integer *index, real *rsize);
extern int szm3cl_(void);
extern int sztxwv_(real *vx, real *vy, char *chars, ftnlen  chars_len);
extern int szm3zu_(integer *n, real *upx, real *upy, real *upz);
extern int szsgcl_(real *tx0, real *ty0, real *tx1, real *ty1);
extern int szqgcy_(real *tx, real *ty);
extern int szqgcx_(real *ty, real *tx);
extern int szopts_(void);
extern int szstts_(real *vx, real *vy);
extern int szclts_(void);
extern int sztits_(integer *itpat);
extern int uysaxs_(char *cside, ftnlen cside_len);
extern int uysaxz_(char *cside, real *roffy, ftnlen cside_len);
extern logical luychk_(char *cside, ftnlen cside_len);
extern int uysfmt_(char *cfmt, ftnlen cfmt_len);
extern int uyqfmt_(char *cfmt, ftnlen cfmt_len);
extern int uypaxs_(char *cside, integer *islct, ftnlen cside_len);
extern int uyaxlb_(char *cside, real *uy1, integer *n1, real *uy2,  char *ch, integer *nc, integer *n2, ftnlen cside_len, ftnlen ch_len);
extern int uysttl_(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uysoff_(void);
extern int uyroff_(void);
extern int uyplba_(real *uy, char *ch, integer *nc, integer *n,  real *upx, real *roffy, real *rsize, integer *irota, integer *icent,  integer *index, ftnlen ch_len);
extern int uyplbl_(char *cside, integer *islct, real *uy, char *ch,  integer *nc, integer *n, ftnlen cside_len, ftnlen ch_len);
extern int uyaxnm_(char *cside, real *uy1, integer *n1, real *uy2,  integer *n2, ftnlen cside_len);
extern int uyplbb_(real *uy, char *ch, integer *nc, integer *n,  real *upx, real *roffy, real *rsize, integer *irota, integer *icent,  integer *index, real *rbtwn, logical *lbound, logical *lbmsg, ftnlen  ch_len);
extern int uypnum_(char *cside, integer *islct, real *uy, integer * n, ftnlen cside_len);
extern int uyptmz_(real *uy, integer *n, real *upx, real *roffy,  real *rtick, integer *index);
extern int uymttl_(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uyptmk_(char *cside, integer *islct, real *uy, integer * n, ftnlen cside_len);
extern int uypttl_(char *cside, integer *islct, char *cttl, real * px, ftnlen cside_len, ftnlen cttl_len);
extern int uyaxdv_(char *cside, real *dy1, real *dy2, ftnlen  cside_len);
extern int udpqnp_(integer *ncp);
extern int udpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int udpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int udpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int udpqit_(integer *idx, integer *itp);
extern int udpqvl_(integer *idx, integer *ipara);
extern int udpsvl_(integer *idx, integer *ipara);
extern int udpqin_(char *cp, integer *in, ftnlen cp_len);
extern int udbclr_(integer *i__, integer *j, integer *k, integer *l, integer *ibr);
extern logical ludchk_(integer *i__, integer *j, integer *k, integer *l, integer * ibr);
extern int udpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int udpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int udpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int udgclb_(real *z__, integer *mx, integer *nx, integer *ny, real *dx);
extern int udcntz_(real *z__, integer *mx, integer *nx, integer *ny, integer *ibr, integer *nbr2);
extern int udlget_(char *cp, logical *lpara, ftnlen cp_len);
extern int udlset_(char *cp, logical *lpara, ftnlen cp_len);
extern int udlstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int udcntr_(real *z__, integer *mx, integer *nx, integer *ny);
extern int uduxuy_(real *z__, integer *mx, integer *ix, integer *iy, integer *k, real *cx, real *ux, real *uy);
extern int udgcla_(real *xmin, real *xmax, real *dx);
extern int udbset_(integer *i__, integer *j, integer *k, integer *l, integer *ibr);
extern int udgrdn_(integer *mode, integer *ix, integer *iy, integer  *k, integer *jx, integer *jy, integer *jk);
extern int udrqnp_(integer *ncp);
extern int udrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int udrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int udrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int udrqvl_(integer *idx, real *rpara);
extern int udrsvl_(integer *idx, real *rpara);
extern int udrqin_(char *cp, integer *in, ftnlen cp_len);
extern int udiclr_(integer *ix, integer *n);
extern int udrget_(char *cp, real *rpara, ftnlen cp_len);
extern int udrset_(char *cp, real *rpara, ftnlen cp_len);
extern int udrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int udiqnp_(integer *ncp);
extern int udiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int udiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int udiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int udiqvl_(integer *idx, integer *ipara);
extern int udisvl_(integer *idx, integer *ipara);
extern int udiqin_(char *cp, integer *in, ftnlen cp_len);
extern int udlabl_(real *val, char *cval, ftnlen cval_len);
extern int udsfmt_(char *cfmt, ftnlen cfmt_len);
extern int udqfmt_(char *cfmt, ftnlen cfmt_len);
extern int udiclv_(void);
extern int udsclv_(real *zlev, integer *indx, integer *ityp, char * clv, real *hl, ftnlen clv_len);
extern int udqclv_(real *zlev, integer *indx, integer *ityp, char * clv, real *hl, integer *nlev, ftnlen clv_len);
extern int udqcln_(integer *nlev);
extern int uddclv_(real *zlev);
extern int udsclz_(logical *lset);
extern int udqclz_(logical *lset);
extern int udline_(real *z__, integer *mx, integer *kx, integer *ky, integer *kk, real *cx, logical *lopen, integer *ibr);
extern int udlqnp_(integer *ncp);
extern int udlqid_(char *cp, integer *idx, ftnlen cp_len);
extern int udlqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int udlqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int udlqvl_(integer *idx, logical *lpara);
extern int udlsvl_(integer *idx, logical *lpara);
extern int udlqin_(char *cp, integer *in, ftnlen cp_len);
extern int udiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int udiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int udistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uumrkz_(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int uulget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uulset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uulstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int uuinit_(void);
extern int uuslnt_(integer *itype);
extern int uuqlnt_(integer *itype);
extern int uuslni_(integer *index);
extern int uuqlni_(integer *index);
extern int uupqnp_(integer *ncp);
extern int uupqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uupqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uupqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uupqit_(integer *idx, integer *itp);
extern int uupqvl_(integer *idx, integer *ipara);
extern int uupsvl_(integer *idx, integer *ipara);
extern int uupqin_(char *cp, integer *in, ftnlen cp_len);
extern int uuiqnp_(integer *ncp);
extern int uuiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uuiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uuiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uuiqvl_(integer *idx, integer *ipara);
extern int uuisvl_(integer *idx, integer *ipara);
extern int uuiqin_(char *cp, integer *in, ftnlen cp_len);
extern int uumrk_(integer *n, real *upx, real *upy);
extern int uusmkt_(integer *itype);
extern int uuqmkt_(integer *itype);
extern int uusmki_(integer *index);
extern int uuqmki_(integer *index);
extern int uusmks_(real *rsize);
extern int uuqmks_(real *rsize);
extern int uurget_(char *cp, real *rpara, ftnlen cp_len);
extern int uurset_(char *cp, real *rpara, ftnlen cp_len);
extern int uurstx_(char *cp, real *rpara, ftnlen cp_len);
extern int uusidv_(real *umin, real *umax);
extern int uuqidv_(real *umin, real *umax);
extern int uupget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uupset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uupstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uusebt_(integer *itype);
extern int uuqebt_(integer *itype);
extern int uusebi_(integer *index);
extern int uuqebi_(integer *index);
extern int uusebs_(real *rsize);
extern int uuqebs_(real *rsize);
extern int uusarp_(integer *itpt1, integer *itpt2);
extern int uuqarp_(integer *itpt1, integer *itpt2);
extern int uurqnp_(integer *ncp);
extern int uurqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uurqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uurqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uurqvl_(integer *idx, real *rpara);
extern int uursvl_(integer *idx, real *rpara);
extern int uurqin_(char *cp, integer *in, ftnlen cp_len);
extern int uusfrt_(integer *itype);
extern int uuqfrt_(integer *itype);
extern int uusfri_(integer *index);
extern int uuqfri_(integer *index);
extern int uusbrs_(real *rsize);
extern int uuqbrs_(real *rsize);
extern int uulin_(integer *n, real *upx, real *upy);
extern int uuiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uuiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uuistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uulinz_(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int uulqnp_(integer *ncp);
extern int uulqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uulqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uulqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uulqvl_(integer *idx, logical *lpara);
extern int uulsvl_(integer *idx, logical *lpara);
extern int uulqin_(char *cp, integer *in, ftnlen cp_len);
extern int uhbraz_(integer *n, real *upx1, real *upx2, real *upy,  integer *itpat1, integer *itpat2, real *rsize);
extern int uherbz_(integer *n, real *upx1, real *upx2, real *upy,  integer *itype, integer *index, real *rsize);
extern int uhbxfz_(integer *n, real *upx1, real *upx2, real *upy,  integer *itype, integer *index);
extern int uhbxlz_(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int uhbrlz_(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int uhbrfz_(integer *n, real *upx1, real *upx2, real *upy,  integer *itype, integer *index, real *rsize);
extern int uhdifz_(integer *n, real *upx1, real *upx2, real *upy,  integer *itpat1, integer *itpat2);
extern int uhdif_(integer *n, real *upx1, real *upx2, real *upy);
extern int uherb_(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbxaz_(integer *n, real *upx1, real *upx2, real *upy,  integer *itpat1, integer *itpat2);
extern int uhbrf_(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbxa_(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbxl_(integer *n, real *upx, real *upy);
extern int uhbrl_(integer *n, real *upx, real *upy);
extern int uhbra_(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbxf_(integer *n, real *upx1, real *upx2, real *upy);
extern int uzrqnp_(integer *ncp);
extern int uzrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uzrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uzrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uzrqvl_(integer *idx, real *rpara);
extern int uzrsvl_(integer *idx, real *rpara);
extern int uzrqin_(char *cp, integer *in, ftnlen cp_len);
extern int uzrsav_(integer *iu);
extern int uzrrst_(integer *iu);
extern int uzpqnp_(integer *ncp);
extern int uzpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uzpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uzpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uzpqit_(integer *idx, integer *itp);
extern int uzpqvl_(integer *idx, integer *ipara);
extern int uzpsvl_(integer *idx, integer *ipara);
extern int uzpqin_(char *cp, integer *in, ftnlen cp_len);
extern int uzpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uzpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uzpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uzlget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uzlset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uzlstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int uzcqnp_(integer *ncp);
extern int uzcqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uzcqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uzcqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uzcqvl_(integer *idx, char *cval, ftnlen cval_len);
extern int uzcsvl_(integer *idx, char *cval, ftnlen cval_len);
extern int uzcqin_(char *cp, integer *in, ftnlen cp_len);
extern int uzcsav_(integer *iu);
extern int uzcrst_(integer *iu);
extern int uzpsav_(void);
extern int uzprst_(void);
extern int uzfact_(real *rfact);
extern int uziget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uziset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uzistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uziqnp_(integer *ncp);
extern int uziqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uziqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uziqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uziqvl_(integer *idx, integer *ipara);
extern int uzisvl_(integer *idx, integer *ipara);
extern int uziqin_(char *cp, integer *in, ftnlen cp_len);
extern int uzisav_(integer *iu);
extern int uzirst_(integer *iu);
extern int uzrget_(char *cp, real *rpara, ftnlen cp_len);
extern int uzrset_(char *cp, real *rpara, ftnlen cp_len);
extern int uzrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int uzinit_(void);
extern int uzlqnp_(integer *ncp);
extern int uzlqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uzlqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uzlqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uzlqvl_(integer *idx, logical *lpara);
extern int uzlsvl_(integer *idx, logical *lpara);
extern int uzlqin_(char *cp, integer *in, ftnlen cp_len);
extern int uzlsav_(integer *iu);
extern int uzlrst_(integer *iu);
extern int uzcget_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int uzcset_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int uzcstx_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int uxaxnm_(char *cside, real *ux1, integer *n1, real *ux2,  integer *n2, ftnlen cside_len);
extern int uxsaxs_(char *cside, ftnlen cside_len);
extern logical luxchk_(char *cside, ftnlen cside_len);
extern int uxplba_(real *ux, char *ch, integer *nc, integer *n,  real *upy, real *roffx, real *rsize, integer *irota, integer *icent,  integer *index, ftnlen ch_len);
extern int uxsaxz_(char *cside, real *roffx, ftnlen cside_len);
extern int uxmttl_(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uxaxdv_(char *cside, real *dx1, real *dx2, ftnlen  cside_len);
extern int uxaxlb_(char *cside, real *ux1, integer *n1, real *ux2,  char *ch, integer *nc, integer *n2, ftnlen cside_len, ftnlen ch_len);
extern int uxptmk_(char *cside, integer *islct, real *ux, integer * n, ftnlen cside_len);
extern int uxplbl_(char *cside, integer *islct, real *ux, char *ch,  integer *nc, integer *n, ftnlen cside_len, ftnlen ch_len);
extern int uxptmz_(real *ux, integer *n, real *upy, real *roffx,  real *rtick, integer *index);
extern int uxsfmt_(char *cfmt, ftnlen cfmt_len);
extern int uxqfmt_(char *cfmt, ftnlen cfmt_len);
extern int uxpaxs_(char *cside, integer *islct, ftnlen cside_len);
extern int uxpnum_(char *cside, integer *islct, real *ux, integer * n, ftnlen cside_len);
extern int uxpttl_(char *cside, integer *islct, char *cttl, real * px, ftnlen cside_len, ftnlen cttl_len);
extern int uxsoff_(void);
extern int uxroff_(void);
extern int uxsttl_(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uxplbb_(real *ux, char *ch, integer *nc, integer *n,  real *upy, real *roffx, real *rsize, integer *irota, integer *icent,  integer *index, real *rbtwn, logical *lbound, logical *lbmsg, ftnlen  ch_len);
extern int uipda2_(real *u, real *v, integer *mx, integer *nx,  integer *ny);
extern int uipd2z_(real *u, real *v, integer *mx, integer *nx,  integer *ny, integer *image, integer *maxpxl);
extern int uiflab_(real *x, real *y, real *z__, real *ul, real *a,  real *b);
extern int uiilab_(real *ul, real *a, real *b, real *x, real *y,  real *z__);
extern int uifluv_(real *x, real *y, real *z__, real *ul, real *u,  real *v);
extern int uiiluv_(real *ul, real *u, real *v, real *x, real *y,  real *z__);
extern int uifrgb_(real *x, real *y, real *z__, real *r__, real *g,  real *b);
extern int uiirgb_(real *r__, real *g, real *b, real *x, real *y,  real *z__);
extern int uifyxy_(real *x, real *y, real *z__, real *yu, real *xl,  real *yl);
extern int uiiyxy_(real *yu, real *xl, real *yl, real *x, real *y,  real *z__);
extern int uiencd_(real *r__, real *g, real *b, integer *irgb);
extern int uidecd_(integer *irgb, real *r__, real *g, real *b);
extern int uic3d_(real *u, real *v, real *w, integer *irgb);
extern int ui3ini_(real *umin, real *umax, real *vmin, real *vmax,  real *wmin, real *wmax);
extern int uixbar_(real *xmin, real *xmax, real *ymin, real *ymax,  real *zmin, real *zmax, char *cpos, ftnlen cpos_len);
extern int uiiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uiiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uiistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uirget_(char *cp, real *rpara, ftnlen cp_len);
extern int uirset_(char *cp, real *rpara, ftnlen cp_len);
extern int uirstx_(char *cp, real *rpara, ftnlen cp_len);
extern int uipcmp_(real *xmin, real *xmax, real *ymin, real *ymax,  char *cpos, ftnlen cpos_len);
extern int uiqfnm_(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
extern int uic2d_(real *u, real *v, integer *irgb);
extern int ui2ini_(real *umin, real *umax, real *vmin, real *vmax);
extern int uiscr2_(real *umin, real *umax, real *vmin, real *vmax);
extern int uiqcr2_(real *umin, real *umax, real *vmin, real *vmax);
extern int uiscmp_(integer *irgb1, integer *irgb2, integer *irgb3,  integer *irgb4);
extern int uicrgb_(real *val, real *cmask, integer *irgb);
extern int uicini_(real *zmin, real *zmax);
extern int uiscrg_(real *zmin, real *zmax);
extern int uismrg_(real *zmin, real *zmax);
extern int uiscsq_(real *clrlvl, integer *icolor, integer *n);
extern int uiscfl_(char *cdsn, ftnlen cdsn_len);
extern int uismsq_(real *shdlvl, real *shade, integer *n);
extern int uismfl_(char *cdsn, ftnlen cdsn_len);
extern int uipda3_(real *u, real *v, real *w, integer *mx, integer * nx, integer *ny);
extern int uipd3z_(real *u, real *v, real *w, integer *mx, integer * nx, integer *ny, integer *image, integer *maxpxl);
extern int uiiqnp_(integer *ncp);
extern int uiiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uiiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uiiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uiiqvl_(integer *idx, integer *ipara);
extern int uiisvl_(integer *idx, integer *ipara);
extern int uiiqin_(char *cp, integer *in, ftnlen cp_len);
extern int uipdaz_(real *z__, integer *mx, integer *nx, integer *ny, integer *image, integer *maxpxl);
extern int uishdw_(real *dx, real *dy, real *ex, real *ey, real *ez, real *cc);
extern int uilqnp_(integer *ncp);
extern int uilqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uilqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uilqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uilqvl_(integer *idx, logical *lpara);
extern int uilsvl_(integer *idx, logical *lpara);
extern int uilqin_(char *cp, integer *in, ftnlen cp_len);
extern int uirqnp_(integer *ncp);
extern int uirqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uirqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uirqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uirqvl_(integer *idx, real *rpara);
extern int uirsvl_(integer *idx, real *rpara);
extern int uirqin_(char *cp, integer *in, ftnlen cp_len);
extern int uiybar_(real *xmin, real *xmax, real *ymin, real *ymax,  real *zmin, real *zmax, char *cpos, ftnlen cpos_len);
extern int uilget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uilset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uilstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int uipdat_(real *z__, integer *mx, integer *nx, integer *ny);
extern int uifpac_(integer *ir, integer *ig, integer *ib, integer * irgb);
extern int uiipac_(integer *irgb, integer *ir, integer *ig, integer  *ib);
extern int umbndc_(real *xmin, real *xmax, real *ymin, real *ymax);
extern int uminit_(void);
extern int umrqnp_(integer *ncp);
extern int umrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int umrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int umrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int umrqvl_(integer *idx, real *rpara);
extern int umrsvl_(integer *idx, real *rpara);
extern int umrqin_(char *cp, integer *in, ftnlen cp_len);
extern int umsppt_(void);
extern int umpmap_(char *cdsn, ftnlen cdsn_len);
extern int umspct_(void);
extern int umbndr_(S_fp func, S_fp ftr, real *xmin, real *xmax,  real *ymin, real *ymax);
extern int umqfnm_(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
extern int umiqnp_(integer *ncp);
extern int umiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int umiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int umiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int umiqvl_(integer *idx, integer *ipara);
extern int umisvl_(integer *idx, integer *ipara);
extern int umiqin_(char *cp, integer *in, ftnlen cp_len);
extern int umfmap_(char *cdsn, ftnlen cdsn_len);
extern int umrget_(char *cp, real *rpara, ftnlen cp_len);
extern int umrset_(char *cp, real *rpara, ftnlen cp_len);
extern int umrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int umpfit_(void);
extern int umpglb_(void);
extern int umspcw_(void);
extern int umlqnp_(integer *ncp);
extern int umlqid_(char *cp, integer *idx, ftnlen cp_len);
extern int umlqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int umlqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int umlqvl_(integer *idx, logical *lpara);
extern int umlsvl_(integer *idx, logical *lpara);
extern int umlqin_(char *cp, integer *in, ftnlen cp_len);
extern int umscnt_(real *xcnt, real *ycnt, real *rot);
extern int umqcnt_(real *xcnt, real *ycnt, real *rot);
extern int umpgrd_(void);
extern int umlget_(char *cp, logical *lpara, ftnlen cp_len);
extern int umlset_(char *cp, logical *lpara, ftnlen cp_len);
extern int umlstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int umspnt_(integer *n, real *ux, real *uy);
extern int umqpnt_(integer *n, real *uxa, real *uya);
extern int umqptn_(integer *n);
extern int umrpnt_(void);
extern int umscwd_(real *xcntr, real *ycntr, real *r__);
extern int umqcwd_(real *xcntr, real *ycntr, real *r__);
extern int umstvz_(void);
extern int umsgrd_(void);
extern int umpqnp_(integer *ncp);
extern int umpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int umpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int umpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int umpqit_(integer *idx, integer *itp);
extern int umpqvl_(integer *idx, integer *ipara);
extern int umpsvl_(integer *idx, integer *ipara);
extern int umpqin_(char *cp, integer *in, ftnlen cp_len);
extern int umbndp_(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int umiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int umiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int umistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int umqtxy_(real *txminz, real *txmaxz, real *tyminz, real * tymaxz);
extern int umplim_(void);
extern int umpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int umpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int umpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int umscom_(void);
extern int umspwd_(void);
extern int umspdf_(void);
extern int uglget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uglset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uglstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int ugrget_(char *cp, real *rpara, ftnlen cp_len);
extern int ugrset_(char *cp, real *rpara, ftnlen cp_len);
extern int ugrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int ugsut_(char *cside, char *cttl, ftnlen cside_len, ftnlen  cttl_len);
extern int ugdut_(void);
extern int ugpqnp_(integer *ncp);
extern int ugpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ugpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ugpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ugpqit_(integer *idx, integer *itp);
extern int ugpqvl_(integer *idx, integer *ipara);
extern int ugpsvl_(integer *idx, integer *ipara);
extern int ugpqin_(char *cp, integer *in, ftnlen cp_len);
extern int ugiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int ugiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ugistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int ugpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int ugpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ugpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uglqnp_(integer *ncp);
extern int uglqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uglqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uglqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uglqvl_(integer *idx, logical *lpara);
extern int uglsvl_(integer *idx, logical *lpara);
extern int uglqin_(char *cp, integer *in, ftnlen cp_len);
extern int ugunit_(void);
extern int ugrqnp_(integer *ncp);
extern int ugrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ugrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ugrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ugrqvl_(integer *idx, real *rpara);
extern int ugrsvl_(integer *idx, real *rpara);
extern int ugrqin_(char *cp, integer *in, ftnlen cp_len);
extern int ugvect_(real *u, integer *mu, real *v, integer *mv,  integer *nx, integer *ny);
extern int ugiqnp_(integer *ncp);
extern int ugiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ugiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ugiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ugiqvl_(integer *idx, integer *ipara);
extern int ugisvl_(integer *idx, integer *ipara);
extern int ugiqin_(char *cp, integer *in, ftnlen cp_len);
extern int ucpqnp_(integer *ncp);
extern int ucpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ucpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ucpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ucpqit_(integer *idx, integer *itp);
extern int ucpqvl_(integer *idx, integer *ipara);
extern int ucpsvl_(integer *idx, integer *ipara);
extern int ucpqin_(char *cp, integer *in, ftnlen cp_len);
extern int uciget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uciset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ucistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int ucyayr_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int uciqnp_(integer *ncp);
extern int uciqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uciqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uciqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uciqvl_(integer *idx, integer *ipara);
extern int ucisvl_(integer *idx, integer *ipara);
extern int uciqin_(char *cp, integer *in, ftnlen cp_len);
extern int uclqnp_(integer *ncp);
extern int uclqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uclqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uclqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uclqvl_(integer *idx, logical *lpara);
extern int uclsvl_(integer *idx, logical *lpara);
extern int uclqin_(char *cp, integer *in, ftnlen cp_len);
extern integer nucchr_(char *cs, integer *nd, ftnlen cs_len);
extern int ucpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int ucpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ucpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int ucyady_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucxamn_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucxady_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucrqnp_(integer *ncp);
extern int ucrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ucrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ucrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ucrqvl_(integer *idx, real *rpara);
extern int ucrsvl_(integer *idx, real *rpara);
extern int ucrqin_(char *cp, integer *in, ftnlen cp_len);
extern int ucyacl_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucyamn_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucxayr_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucxacl_(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern integer nucday_(char *cs, integer *nd, ftnlen cs_len);
extern int uclget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uclset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uclstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int ucrget_(char *cp, real *rpara, ftnlen cp_len);
extern int ucrset_(char *cp, real *rpara, ftnlen cp_len);
extern int ucrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int uvbrf_(integer *n, real *upx, real *upy1, real *upy2);
extern int uvdif_(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbxl_(integer *n, real *upx, real *upy);
extern int uverb_(integer *n, real *upx, real *upy1, real *upy2);
extern int uverbz_(integer *n, real *upx, real *upy1, real *upy2,  integer *itype, integer *index, real *rsize);
extern int uvbxfz_(integer *n, real *upx, real *upy1, real *upy2,  integer *itype, integer *index);
extern int uvbxlz_(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int uvbxa_(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbra_(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbxf_(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbraz_(integer *n, real *upx, real *upy1, real *upy2,  integer *itpat1, integer *itpat2, real *rsize);
extern int uvbrl_(integer *n, real *upx, real *upy);
extern int uvbrlz_(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int uvdifz_(integer *n, real *upx, real *upy1, real *upy2,  integer *itpat1, integer *itpat2);
extern int uvbxaz_(integer *n, real *upx, real *upy1, real *upy2,  integer *itpat1, integer *itpat2);
extern int uvbrfz_(integer *n, real *upx, real *upy1, real *upy2,  integer *itype, integer *index, real *rsize);
extern integer iuwgx_(real *ux);
extern integer iuwgy_(real *uy);
extern int uwdflt_(integer *nx, integer *ny);
extern int ulrget_(char *cp, real *rpara, ftnlen cp_len);
extern int ulrset_(char *cp, real *rpara, ftnlen cp_len);
extern int ulrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int ulylog_(char *cside, integer *nlbl, integer *nticks,  ftnlen cside_len);
extern int ullget_(char *cp, logical *lpara, ftnlen cp_len);
extern int ullset_(char *cp, logical *lpara, ftnlen cp_len);
extern int ullstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int uliget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uliset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ulistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int uliqnp_(integer *ncp);
extern int uliqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uliqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uliqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uliqvl_(integer *idx, integer *ipara);
extern int ulisvl_(integer *idx, integer *ipara);
extern int uliqin_(char *cp, integer *in, ftnlen cp_len);
extern int ulrqnp_(integer *ncp);
extern int ulrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ulrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ulrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ulrqvl_(integer *idx, real *rpara);
extern int ulrsvl_(integer *idx, real *rpara);
extern int ulrqin_(char *cp, integer *in, ftnlen cp_len);
extern int ulxsfm_(char *cxfmt, ftnlen cxfmt_len);
extern int ulxqfm_(char *cxfmt, ftnlen cxfmt_len);
extern int ulysfm_(char *cyfmt, ftnlen cyfmt_len);
extern int ulyqfm_(char *cyfmt, ftnlen cyfmt_len);
extern int ulxlbl_(real *bl, integer *nbl, integer *inum);
extern int ulsxbl_(real *bl, integer *nbl);
extern int ulqxbl_(real *bl, integer *nbl);
extern int ulpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int ulpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ulpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int ullqnp_(integer *ncp);
extern int ullqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ullqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ullqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ullqvl_(integer *idx, logical *lpara);
extern int ullsvl_(integer *idx, logical *lpara);
extern int ullqin_(char *cp, integer *in, ftnlen cp_len);
extern int ulxlog_(char *cside, integer *nlbl, integer *nticks,  ftnlen cside_len);
extern int ulpqnp_(integer *ncp);
extern int ulpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ulpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ulpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ulpqit_(integer *idx, integer *itp);
extern int ulpqvl_(integer *idx, integer *ipara);
extern int ulpsvl_(integer *idx, integer *ipara);
extern int ulpqin_(char *cp, integer *in, ftnlen cp_len);
extern int ulylbl_(real *bl, integer *nbl, integer *inum);
extern int ulsybl_(real *bl, integer *nbl);
extern int ulqybl_(real *bl, integer *nbl);
extern int uegtlb_(real *z__, integer *mx, integer *nx, integer *ny, real *dx);
extern int uelget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uelset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uelstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int ueiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int ueiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int ueistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int ueiqnp_(integer *ncp);
extern int ueiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int ueiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int ueiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int ueiqvl_(integer *idx, integer *ipara);
extern int ueisvl_(integer *idx, integer *ipara);
extern int ueiqin_(char *cp, integer *in, ftnlen cp_len);
extern int uerget_(char *cp, real *rpara, ftnlen cp_len);
extern int uerset_(char *cp, real *rpara, ftnlen cp_len);
extern int uerstx_(char *cp, real *rpara, ftnlen cp_len);
extern int uetonz_(real *z__, integer *mx, integer *nx, integer *ny, integer *image, integer *ni);
extern int uepqnp_(integer *ncp);
extern int uepqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uepqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uepqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uepqit_(integer *idx, integer *itp);
extern int uepqvl_(integer *idx, integer *ipara);
extern int uepsvl_(integer *idx, integer *ipara);
extern int uepqin_(char *cp, integer *in, ftnlen cp_len);
extern int uetonb_(real *z__, integer *mx, integer *nx, integer *ny);
extern int uestln_(real *tlevn, integer *ipatn, integer *nton);
extern int uerqnp_(integer *ncp);
extern int uerqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uerqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uerqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uerqvl_(integer *idx, real *rpara);
extern int uersvl_(integer *idx, real *rpara);
extern int uerqin_(char *cp, integer *in, ftnlen cp_len);
extern int uearea_(real *xp, real *yp, real *zp, real *vlvm, real * ax, real *ay, integer *np, integer *ni, integer *ng);
extern int ueaint_(void);
extern int uetone_(real *z__, integer *mx, integer *nx, integer *ny);
extern int uezchk_(real *z__, integer *mx, integer *nx, integer *ny, char *cname, integer *istat, ftnlen cname_len);
extern int ueitlv_(void);
extern int uestlv_(real *tlev1, real *tlev2, integer *ipat);
extern int ueqtlv_(real *tlev1, real *tlev2, integer *ipat, integer  *iton);
extern int ueqntl_(integer *nton);
extern int uestlz_(logical *lset);
extern int ueqtlz_(logical *lset);
extern int uetonf_(real *z__, integer *mx, integer *nx, integer *ny);
extern int uelqnp_(integer *ncp);
extern int uelqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uelqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uelqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uelqvl_(integer *idx, logical *lpara);
extern int uelsvl_(integer *idx, logical *lpara);
extern int uelqin_(char *cp, integer *in, ftnlen cp_len);
extern int uepget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uepset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uepstx_(char *cp, integer *ipara, ftnlen cp_len);
extern integer iueton_(real *zlev);
extern int uetonc_(real *z__, integer *mx, integer *nx, integer *ny);
extern int uegtla_(real *xmin, real *xmax, real *dx);
extern int grsvpt_(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int gropn_(integer *iws);
extern int grfrm_(void);
extern int grfig_(void);
extern int grcls_(void);
extern int grsmpl_(real *plx, real *ply, real *plrot);
extern int grstxy_(real *txmin, real *txmax, real *tymin, real * tymax);
extern int grstrn_(integer *itr);
extern int grscwd_(real *cxmin, real *cxmax, real *cymin, real * cymax);
extern int grswnd_(real *uxmin, real *uxmax, real *uymin, real * uymax);
extern int grssim_(real *simfac, real *vxoff, real *vyoff);
extern int grstrf_(void);
extern int grinit_(void);
extern int uscget_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int uscset_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int uscstx_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int uswapz_(real *x1, real *x2, integer *n);
extern int usaxlg_(char *cside, integer *nlbl, integer *nticks,  ftnlen cside_len);
extern int uschvl_(real *x, char *chx, ftnlen chx_len);
extern H_f csblbl_(char *ret_val, ftnlen ret_val_len, real *ufac,  real *uoff, char *cunit__, ftnlen cunit_len);
extern int usxaxs_(char *cside, ftnlen cside_len);
extern int uscqnp_(integer *ncp);
extern int uscqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uscqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uscqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uscqvl_(integer *idx, char *cval, ftnlen cval_len);
extern int uscsvl_(integer *idx, char *cval, ftnlen cval_len);
extern int uscqin_(char *cp, integer *in, ftnlen cp_len);
extern int usxsub_(char *cxa, char *cya, char *clabel, real *rlbl,  ftnlen cxa_len, ftnlen cya_len, ftnlen clabel_len);
extern int usyaxu_(char *cys, ftnlen cys_len);
extern int uslget_(char *cp, logical *lpara, ftnlen cp_len);
extern int uslset_(char *cp, logical *lpara, ftnlen cp_len);
extern int uslstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int usplbl_(char *cside, integer *islct, real *pos, char *ch, integer *nc, integer *n, ftnlen cside_len, ftnlen ch_len);
extern int usxoff_(char *cxs, ftnlen cxs_len);
extern int usrget_(char *cp, real *rpara, ftnlen cp_len);
extern int usrset_(char *cp, real *rpara, ftnlen cp_len);
extern int usrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int usaxnm_(char *cside, real *dtick, integer *n1, real * dlabel, integer *n2, ftnlen cside_len);
extern int uszdgt_(real *umin, real *umax, real *dul, integer * maxdgt, real *uoff, real *ufact, integer *ndgt, integer *ldgt);
extern int uslqnp_(integer *ncp);
extern int uslqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uslqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uslqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uslqvl_(integer *idx, logical *lpara);
extern int uslsvl_(integer *idx, logical *lpara);
extern int uslqin_(char *cp, integer *in, ftnlen cp_len);
extern int usyaxs_(char *cside, ftnlen cside_len);
extern int usaxcl_(char *cside, integer *jd0, char *ctype, integer * nd, ftnlen cside_len, ftnlen ctype_len);
extern int usrqnp_(integer *ncp);
extern int usrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int usrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int usrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int usrqvl_(integer *idx, real *rpara);
extern int usrsvl_(integer *idx, real *rpara);
extern int usrqin_(char *cp, integer *in, ftnlen cp_len);
extern int usxinz_(char *csa, real *faca, real *offa, ftnlen  csa_len);
extern int usxtlz_(void);
extern int uspfit_(void);
extern int usaxdv_(char *cside, real *dtick, real *dlbl, ftnlen  cside_len);
extern int usurdt_(real *umin, real *umax, real *vmin, real *vmax,  real *dut);
extern int usdaxs_(void);
extern int uspqnp_(integer *ncp);
extern int uspqid_(char *cp, integer *idx, ftnlen cp_len);
extern int uspqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int uspqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int uspqit_(integer *idx, integer *itp);
extern int uspqvl_(integer *idx, integer *ipara);
extern int uspsvl_(integer *idx, integer *ipara);
extern int uspqin_(char *cp, integer *in, ftnlen cp_len);
extern int usxaxu_(char *cxs, ftnlen cxs_len);
extern int usptmk_(char *cside, integer *islct, real *pos, integer * n, ftnlen cside_len);
extern int usiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int usiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int usistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int usinit_(void);
extern int usspnt_(integer *n, real *x, real *y);
extern int usxaxl_(char *cxs, ftnlen cxs_len);
extern int uspget_(char *cp, integer *ipara, ftnlen cp_len);
extern int uspset_(char *cp, integer *ipara, ftnlen cp_len);
extern int uspstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int ussttl_(char *cxttl, char *cxunit, char *cyttl, char * cyunit, ftnlen cxttl_len, ftnlen cxunit_len, ftnlen cyttl_len, ftnlen  cyunit_len);
extern int usgrph_(integer *n, real *x, real *y);
extern int usyaxl_(char *cys, ftnlen cys_len);
extern int usaxlb_(char *cside, real *dtick, integer *n1, real * dlabel, char *ch, integer *nc, integer *n2, ftnlen cside_len, ftnlen  ch_len);
extern int ususcu_(char *caxis, real *umin, real *umax, real *vmin,  real *vmax, integer *mode, ftnlen caxis_len);
extern int usiqnp_(integer *ncp);
extern int usiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int usiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int usiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int usiqvl_(integer *idx, integer *ipara);
extern int usisvl_(integer *idx, integer *ipara);
extern int usiqin_(char *cp, integer *in, ftnlen cp_len);
extern int uspttl_(char *cside, integer *islct, char *cttl, real * pos, ftnlen cside_len, ftnlen cttl_len);
extern int ussaxs_(char *cside, ftnlen cside_len);
extern int usurdl_(real *umin, real *umax, real *vmin, real *vmax);
extern int usysub_(char *cya, char *cxa, char *clabel, real *rlbl,  ftnlen cya_len, ftnlen cxa_len, ftnlen clabel_len);
extern int usyoff_(char *cys, ftnlen cys_len);
extern int uspaxs_(char *cside, integer *islct, ftnlen cside_len);
extern int ususcl_(char *caxis, real *umin, real *umax, real *vmin,  real *vmax, ftnlen caxis_len);
extern int usyinz_(char *csa, real *faca, real *offa, ftnlen  csa_len);
extern int usytlz_(void);
extern int uspnum_(char *cside, integer *islct, real *pos, integer * n, ftnlen cside_len);
extern int usaxsc_(char *cside, ftnlen cside_len);
extern int glpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int glpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int glpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int rpnget_(void);
extern int rtiget_(char *cpfix, char *cps, integer *ipara, integer * max__, ftnlen cpfix_len, ftnlen cps_len);
extern int rtlget_(char *cpfix, char *cps, logical *lpara, integer * max__, ftnlen cpfix_len, ftnlen cps_len);
extern int rtrget_(char *cpfix, char *cps, real *rpara, integer * max__, ftnlen cpfix_len, ftnlen cps_len);
extern int rtcget_(char *cpfix, char *cps, char *cpara, integer * max__, ftnlen cpfix_len, ftnlen cps_len, ftnlen cpara_len);
extern int rliget_(char *cpl, integer *ipara, integer *max__,  ftnlen cpl_len);
extern int rllget_(char *cpl, logical *lpara, integer *max__,  ftnlen cpl_len);
extern int rlrget_(char *cpl, real *rpara, integer *max__, ftnlen  cpl_len);
extern int rlcget_(char *cpl, char *cpara, integer *max__, ftnlen  cpl_len, ftnlen cpara_len);
extern int gliget_(char *cp, integer *ipara, ftnlen cp_len);
extern int gliset_(char *cp, integer *ipara, ftnlen cp_len);
extern int glistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int prcopn_(char *cproc, ftnlen cproc_len);
extern int prccls_(char *cproc, ftnlen cproc_len);
extern int prclvl_(integer *nlev);
extern int prcnam_(integer *nlev, char *cproc, ftnlen cproc_len);
extern int mszdmp_(char *cmsg, integer *iunit, integer *lnsize,  ftnlen cmsg_len);
extern int set_msgdmp_func(int (*f)(/* char *, char *, char *, ftnlen, ftnlen, ftnlen */));
extern int set_msgdmp_err_func(int (*f)(/* char *, char *, char *, ftnlen, ftnlen, ftnlen */));
extern int msgdmp_(char *, char *, char *, ftnlen, ftnlen, ftnlen);
extern int cfsrch_(char *cplist, integer *np, char *cflist, integer  *nf, char *cfname, ftnlen cplist_len, ftnlen cflist_len, ftnlen  cfname_len);
extern int gllqnp_(integer *ncp);
extern int gllqid_(char *cp, integer *idx, ftnlen cp_len);
extern int gllqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int gllqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int gllqvl_(integer *idx, logical *lpara);
extern int gllsvl_(integer *idx, logical *lpara);
extern int gllqin_(char *cp, integer *in, ftnlen cp_len);
extern logical lchreq_(char *ch1, char *ch2, ftnlen ch1_len, ftnlen ch2_len);
extern int glqfnm_(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
extern int rpnxfl_(void);
extern int rtixfl_(char *cpfix, char *cp, integer *ipara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtlxfl_(char *cpfix, char *cp, logical *lpara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtrxfl_(char *cpfix, char *cp, real *rpara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtcxfl_(char *cpfix, char *cp, char *cval, ftnlen  cpfix_len, ftnlen cp_len, ftnlen cval_len);
extern int rlixfl_(char *cp, integer *ipara, ftnlen cp_len);
extern int rllxfl_(char *cp, logical *lpara, ftnlen cp_len);
extern int rlrxfl_(char *cp, real *rpara, ftnlen cp_len);
extern int rlcxfl_(char *cp, char *cval, ftnlen cp_len, ftnlen  cval_len);
extern int rpnopt_(void);
extern int rtiopt_(char *cpfix, char *cp, integer *ipara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtlopt_(char *cpfix, char *cp, logical *lpara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtropt_(char *cpfix, char *cp, real *rpara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtcopt_(char *cpfix, char *cp, char *cpara, ftnlen  cpfix_len, ftnlen cp_len, ftnlen cpara_len);
extern int rliopt_(char *cp, integer *ipara, ftnlen cp_len);
extern int rllopt_(char *cp, logical *lpara, ftnlen cp_len);
extern int rlropt_(char *cp, real *rpara, ftnlen cp_len);
extern int rlcopt_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern integer iufopn_(void);
extern int gllget_(char *cp, logical *lpara, ftnlen cp_len);
extern int gllset_(char *cp, logical *lpara, ftnlen cp_len);
extern int gllstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int glrget_(char *cp, real *rpara, ftnlen cp_len);
extern int glrset_(char *cp, real *rpara, ftnlen cp_len);
extern int glrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int glpqnp_(integer *ncp);
extern int glpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int glpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int glpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int glpqit_(integer *idx, integer *itp);
extern int glpqvl_(integer *idx, integer *ipara);
extern int glpsvl_(integer *idx, integer *ipara);
extern int glpqin_(char *cp, integer *in, ftnlen cp_len);
extern int glcget_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int glcset_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int glcstx_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int rpnenv_(void);
extern int rtienv_(char *cpfix, char *cp, integer *ipara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtlenv_(char *cpfix, char *cp, logical *lpara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtrenv_(char *cpfix, char *cp, real *rpara, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtcenv_(char *cpfix, char *cp, char *cpara, ftnlen  cpfix_len, ftnlen cp_len, ftnlen cpara_len);
extern int rlienv_(char *cp, integer *ipara, ftnlen cp_len);
extern int rllenv_(char *cp, logical *lpara, ftnlen cp_len);
extern int rlrenv_(char *cp, real *rpara, ftnlen cp_len);
extern int rlcenv_(char *cp, char *cpara, ftnlen cp_len, ftnlen  cpara_len);
extern int visub1_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int viadd0_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int vimlt_(integer *ix, integer *iy, integer *iz, integer *n, integer *jx, integer *jy, integer *jz);
extern int vidiv_(integer *ix, integer *iy, integer *iz, integer *n, integer *jx, integer *jy, integer *jz);
extern int vifnb1_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz, I_fp ifnb);
extern int vifnb0_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz, I_fp ifnb);
extern int viadd1_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int vimlt1_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int vidiv0_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int visub0_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int viadd_(integer *ix, integer *iy, integer *iz, integer *n, integer *jx, integer *jy, integer *jz);
extern int vidiv1_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int vifnb_(integer *ix, integer *iy, integer *iz, integer *n, integer *jx, integer *jy, integer *jz, U_fp ifnb);
extern int vimlt0_(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int visub_(integer *ix, integer *iy, integer *iz, integer *n, integer *jx, integer *jy, integer *jz);
extern int dxfloc_(integer *nd, integer *ns, integer *np, integer * ncp);
extern int vignn_(integer *ix, integer *n, integer *jx);
extern int dxiloc_(integer *nd, integer *ns, integer *np, integer * ncp);
extern int vrgnn_(real *rx, integer *n, integer *jx);
extern int mpfcyb_(real *xlon, real *ylat, real *x, real *y);
extern int mpicyb_(real *x, real *y, real *xlon, real *ylat);
extern int mpscyb_(real *stdlat);
extern int mpfcoa_(real *xlon, real *ylat, real *x, real *y);
extern int mpicoa_(real *x, real *y, real *xlon, real *ylat);
extern int mpscoa_(real *ylat0);
extern int mpfaza_(real *xlon, real *ylat, real *x, real *y);
extern int mpiaza_(real *x, real *y, real *xlon, real *ylat);
extern int mpfbon_(real *xlon, real *ylat, real *x, real *y);
extern int mpibon_(real *x, real *y, real *xlon, real *ylat);
extern int mpsbon_(real *ylat0);
extern int mpzmwd_(real *phi, real *alpha, real *f, real *df);
extern int mpfglb_(real *xlon, real *ylat, real *x, real *y);
extern int mpiglb_(real *x, real *y, real *xlon, real *ylat);
extern int mpfcya_(real *xlon, real *ylat, real *x, real *y);
extern int mpicya_(real *x, real *y, real *xlon, real *ylat);
extern int mpzktd_(real *phi, real *alpha, real *f, real *df);
extern int mpfazm_(real *xlon, real *ylat, real *x, real *y);
extern int mpiazm_(real *x, real *y, real *xlon, real *ylat);
extern int mpfktd_(real *xlon, real *ylat, real *x, real *y);
extern int mpiktd_(real *x, real *y, real *xlon, real *ylat);
extern int mpfmer_(real *xlon, real *ylat, real *x, real *y);
extern int mpimer_(real *x, real *y, real *xlon, real *ylat);
extern int mpfsin_(real *xlon, real *ylat, real *x, real *y);
extern int mpisin_(real *x, real *y, real *xlon, real *ylat);
extern int mpscct_(real *ylat0);
extern int mpfcct_(real *xlon, real *ylat, real *x, real *y);
extern int mpicct_(real *x, real *y, real *xlon, real *ylat);
extern int mpfgno_(real *xlon, real *ylat, real *x, real *y);
extern int mpigno_(real *x, real *y, real *xlon, real *ylat);
extern int mpnwtn_(real *x, real *y, real *xlon, real *ylat, S_fp  func, logical *xcyc);
extern int mpfplc_(real *xlon, real *ylat, real *x, real *y);
extern int mpiplc_(real *x, real *y, real *xlon, real *ylat);
extern int mpxplc_(real *xlon, real *ylat, real *x, real *y);
extern int mpzek6_(real *phi, real *alpha, real *f, real *df);
extern int mpfpt2_(real *xlon, real *ylat, real *x, real *y);
extern int mpipt2_(real *x, real *y, real *xlon, real *ylat);
extern int mpfhmr_(real *xlon, real *ylat, real *x, real *y);
extern int mpihmr_(real *x, real *y, real *xlon, real *ylat);
extern int mpfrbs_(real *xlon, real *ylat, real *x, real *y);
extern int mpirbs_(real *x, real *y, real *xlon, real *ylat);
extern int mpfmwd_(real *xlon, real *ylat, real *x, real *y);
extern int mpimwd_(real *x, real *y, real *xlon, real *ylat);
extern int mpfotg_(real *xlon, real *ylat, real *x, real *y);
extern int mpiotg_(real *x, real *y, real *xlon, real *ylat);
extern int mpsotg_(real *r0);
extern int mpfpst_(real *xlon, real *ylat, real *x, real *y);
extern int mpipst_(real *x, real *y, real *xlon, real *ylat);
extern int mpfcon_(real *xlon, real *ylat, real *x, real *y);
extern int mpicon_(real *x, real *y, real *xlon, real *ylat);
extern int mpscon_(real *ylat0);
extern int mpfek6_(real *xlon, real *ylat, real *x, real *y);
extern int mpiek6_(real *x, real *y, real *xlon, real *ylat);
extern int mpfcoc_(real *xlon, real *ylat, real *x, real *y);
extern int mpicoc_(real *x, real *y, real *xlon, real *ylat);
extern int mpscoc_(real *ylat1, real *ylat2);
extern int mpznwt_(S_fp func, real *phi, real *alpha);
extern int mpfcyl_(real *xlon, real *ylat, real *x, real *y);
extern int mpicyl_(real *x, real *y, real *xlon, real *ylat);
extern int mpxvdg_(real *xlon, real *ylat, real *x, real *y);
extern int mpfvdg_(real *xlon, real *ylat, real *x, real *y);
extern int mpivdg_(real *x, real *y, real *xlon, real *ylat);
extern int mpfmwl_(real *xlon, real *ylat, real *x, real *y);
extern int mpimwl_(real *x, real *y, real *xlon, real *ylat);
extern int mpfcyc_(real *xlon, real *ylat, real *x, real *y);
extern int mpicyc_(real *x, real *y, real *xlon, real *ylat);
extern int mpfmil_(real *xlon, real *ylat, real *x, real *y);
extern int mpimil_(real *x, real *y, real *xlon, real *ylat);
extern int vicon_(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, integer *ii);
extern int vifct_(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, integer *ii);
extern int vicon1_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int iadd1_(integer *ix, integer *n, integer *jx, integer *ii);
extern int imlt1_(integer *ix, integer *n, integer *jx, integer *ii);
extern int iset1_(integer *ix, integer *n, integer *jx, integer *ii);
extern int vicon0_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int vifna_(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, U_fp ifna);
extern int vifct1_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int imlt_(integer *ix, integer *n, integer *jx, integer *ii);
extern int iset_(integer *ix, integer *n, integer *jx, integer *ii);
extern int imlt0_(integer *ix, integer *n, integer *jx, integer *ii);
extern int iadd_(integer *ix, integer *n, integer *jx, integer *ii);
extern int vifna1_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, I_fp ifna);
extern int vifct0_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int iset0_(integer *ix, integer *n, integer *jx, integer *ii);
extern int viinc1_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int vifna0_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, I_fp ifna);
extern int iadd0_(integer *ix, integer *n, integer *jx, integer *ii);
extern int viset_(integer *ix, integer *iy, integer *n, integer *jx, integer *jy);
extern int viset0_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy);
extern int viset1_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy);
extern int viinc0_(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int viinc_(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, integer *ii);
extern int osqarn_(integer *n);
extern void osgenv_(char *cename, char *ceval, int Lename, int Leval);
extern void osabrt_(void);
extern int osgarg_(integer *n, char *char__, ftnlen char_len);
extern void osexec_(char *cmd, int Lcmd);
extern int gnsave_(void);
extern int gnrset_(void);
extern int gnsblk_(real *xb, integer *nb);
extern int gnqblk_(real *xb, integer *nb);
extern int gnlt_(real *rx, real *bx, integer *ip);
extern int gnle_(real *rx, real *bx, integer *ip);
extern int gngt_(real *rx, real *bx, integer *ip);
extern int gnge_(real *rx, real *bx, integer *ip);
extern integer imin0_(integer *ix, integer *n, integer *jx);
extern integer isum_(integer *ix, integer *n, integer *jx);
extern integer imax_(integer *ix, integer *n, integer *jx);
extern integer imin_(integer *ix, integer *n, integer *jx);
extern integer imax1_(integer *ix, integer *n, integer *jx);
extern integer imin1_(integer *ix, integer *n, integer *jx);
extern integer isum1_(integer *ix, integer *n, integer *jx);
extern integer isum0_(integer *ix, integer *n, integer *jx);
extern integer imax0_(integer *ix, integer *n, integer *jx);
extern int g2fbl2_(real *p, real *q, real *x00, real *x10, real * x01, real *x11, real *y00, real *y10, real *y01, real *y11, real *x,  real *y);
extern logical lg2inq_(real *cx, real *cy, real *cx00, real *cx10, real *cx01, real * cx11, real *cy00, real *cy10, real *cy01, real *cy11);
extern int g2ibl2_(real *x, real *y, real *x00, real *x10, real * x01, real *x11, real *y00, real *y10, real *y01, real *y11, real *p,  real *q);
extern int g2fbli_(real *p, real *q, real *z00, real *z10, real * z01, real *z11, real *z__);
extern void g2qgrd_(integer *i, integer *j,  real *cx11, real *cx21, real *cx12, real *cx22,  real *cy11, real *cy21, real *cy12, real *cy22);
extern void g2sgrd_(real *rundef,  integer *iuxinc, integer *iuyinc, integer *nx, integer *ny,  real *cx, real *cy, real *uxs, real *uys);
extern int clrgsv_(integer *r__, integer *g, integer *b, real *h__,  real *s, real *v, integer *n, integer *m);
extern int inorml_(integer *v, real *w, integer *n, integer *m,  real *x, real *y);
extern int clsvrg_(real *h__, real *s, real *v, integer *r__,  integer *g, integer *b, integer *n, integer *m);
extern int rnorml_(real *v, real *w, integer *n, integer *m, real * x, real *y);
extern integer iblklt_(real *rx, integer *n, real *rr);
extern integer iblkle_(real *rx, integer *n, real *rr);
extern integer iblkge_(real *rx, integer *n, real *rr);
extern integer iblkgt_(real *rx, integer *n, real *rr);
extern logical lrne_(real *x, real *y);
extern logical lrge1_(real *x, real *y);
extern logical lrle0_(real *x, real *y);
extern logical lrgea_(real *x, real *y, real *epsl);
extern logical lrlt1_(real *x, real *y);
extern logical lrlta_(real *x, real *y, real *epsl);
extern logical lrlt0_(real *x, real *y);
extern logical lrle_(real *x, real *y);
extern logical lrgt0_(real *x, real *y);
extern logical lrne0_(real *x, real *y);
extern logical lreq0_(real *x, real *y);
extern logical lrgt_(real *x, real *y);
extern logical lrgt1_(real *x, real *y);
extern logical lrnea_(real *x, real *y, real *epsl);
extern logical lrge0_(real *x, real *y);
extern logical lrgta_(real *x, real *y, real *epsl);
extern logical lreqa_(real *x, real *y, real *epsl);
extern logical lreq1_(real *x, real *y);
extern logical lrne1_(real *x, real *y);
extern logical lreq_(real *x, real *y);
extern logical lrlea_(real *x, real *y, real *epsl);
extern logical lrlt_(real *x, real *y);
extern logical lrge_(real *x, real *y);
extern logical lrle1_(real *x, real *y);
extern int vrcon1_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int rmlt0_(real *rx, integer *n, integer *jx, real *rr);
extern int rset0_(real *rx, integer *n, integer *jx, real *rr);
extern int vrfct1_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int radd1_(real *rx, integer *n, integer *jx, real *rr);
extern int rset_(real *rx, integer *n, integer *jx, real *rr);
extern int rset1_(real *rx, integer *n, integer *jx, real *rr);
extern int vrfna0_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, R_fp rfna);
extern int rmlt_(real *rx, integer *n, integer *jx, real *rr);
extern int vrcon_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int rmlt1_(real *rx, integer *n, integer *jx, real *rr);
extern int vrinc1_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrinc0_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrset_(real *rx, real *ry, integer *n, integer *jx,  integer *jy);
extern int vrset0_(real *rx, real *ry, integer *n, integer *jx,  integer *jy);
extern int vrset1_(real *rx, real *ry, integer *n, integer *jx,  integer *jy);
extern int vrfna1_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, R_fp rfna);
extern int radd_(real *rx, integer *n, integer *jx, real *rr);
extern int vrfna_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, R_fp rfna);
extern int radd0_(real *rx, integer *n, integer *jx, real *rr);
extern int vrinc_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrfct0_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrfct_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrcon0_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern integer jfromc_(char *cx, ftnlen cx_len);
extern logical lfromc_(char *cx, ftnlen cx_len);
extern integer ifromc_(char *cx, ftnlen cx_len);
extern integer indxcf_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxif_(integer *ix, integer *n, integer *jd, integer *ii);
extern integer nindxn_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxnf_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxrf_(real *rx, integer *n, integer *jd, real *rr);
extern integer indxml_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer nindxr_(real *rx, integer *n, integer *jd, real *rr);
extern integer nindxi_(integer *ix, integer *n, integer *jd, integer *ii);
extern integer indxmf_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxrl_(real *rx, integer *n, integer *jd, real *rr);
extern integer nindxm_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxcl_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxil_(integer *ix, integer *n, integer *jd, integer *ii);
extern integer nindxc_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern integer indxnl_(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int vradd0_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrmlt0_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrsub1_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrmlt1_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrdiv1_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrsub0_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrdiv_(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz);
extern int vradd1_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrmlt_(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz);
extern int vradd_(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz);
extern int vrsub_(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz);
extern int vrfnb_(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz, R_fp rfnb);
extern int vrdiv0_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrfnb1_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz, R_fp rfnb);
extern int vrfnb0_(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz, R_fp rfnb);
extern integer irgt_(real *rx);
extern integer irle_(real *rx);
extern integer irge_(real *rx);
extern integer irlt_(real *rx);
extern integer igus_(real *rx);
extern integer imod_(integer *ix, integer *id);
extern int ct3cs_(real *x, real *y, real *z__, real *r__, real * theta, real *phi);
extern int ct2pc_(real *r__, real *theta, real *x, real *y);
extern int ct2ch_(real *x, real *y, real *u, real *v);
extern int ct3sc_(real *r__, real *theta, real *phi, real *x, real * y, real *z__);
extern int ct2ec_(real *u, real *v, real *x, real *y);
extern int cr3s_(real *theta, real *phi, real *psi, real *theta0,  real *phi0, real *theta1, real *phi1);
extern int ct2cp_(real *x, real *y, real *r__, real *theta);
extern int ct2bc_(real *u, real *v, real *x, real *y);
extern int cr3c_(real *theta, real *phi, real *psi, real *x0, real * y0, real *z0, real *x1, real *y1, real *z1);
extern int cr2c_(real *theta, real *x0, real *y0, real *x1, real * y1);
extern int ct2hc_(real *u, real *v, real *x, real *y);
extern int crvrs_(char *chr, ftnlen chr_len);
extern int cladj_(char *chr, ftnlen chr_len);
extern integer lenz_(char *c__, ftnlen c_len);
extern int cradj_(char *chr, ftnlen chr_len);
extern integer lenc_(char *c__, ftnlen c_len);
extern integer leny_(char *c__, ftnlen c_len);
extern integer lenb_(char *c__, ftnlen c_len);
extern int vs2int_(real *wz, integer *nw, integer *ix, integer *iy);
extern int vs2din_(real *wz, integer *nw, integer *ix, integer *iy,  real *x, real *y);
extern int vs2out_(real *wz, integer *nw, integer *ix, integer *iy);
extern int vs1int_(real *wz, integer *nw, integer *ix);
extern int vs1din_(real *wz, integer *nw, integer *ix, real *x);
extern int vs1out_(real *wz, integer *nw, integer *ix);
extern int radf4_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int costi_(integer *n, real *wsave);
extern int radfg_(integer *ido, integer *ip, integer *l1, integer * idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
extern int rfftb_(integer *n, real *r__, real *wsave);
extern int passf4_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int radb4_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int ezfftb_(integer *n, real *r__, real *azero, real *a,  real *b, real *wsave);
extern int cfftb1_(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int radf5_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int cosqf1_(integer *n, real *x, real *w, real *xh);
extern int radb2_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int passf3_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int cffti1_(integer *n, real *wa, integer *ifac);
extern int cfftf_(integer *n, real *c__, real *wsave);
extern int ezfft1_(integer *n, real *wa, integer *ifac);
extern int radb5_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int cosqb_(integer *n, real *x, real *wsave);
extern int radf3_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int cfftb_(integer *n, real *c__, real *wsave);
extern int sinqf_(integer *n, real *x, real *wsave);
extern int cosqf_(integer *n, real *x, real *wsave);
extern int cfftf1_(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int ezfftf_(integer *n, real *r__, real *azero, real *a,  real *b, real *wsave);
extern int rfftb1_(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int cosqb1_(integer *n, real *x, real *w, real *xh);
extern int rffti1_(integer *n, real *wa, integer *ifac);
extern int rfftf_(integer *n, real *r__, real *wsave);
extern int passb4_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int cosqi_(integer *n, real *wsave);
extern int rffti_(integer *n, real *wsave);
extern int cost_(integer *n, real *x, real *wsave);
extern int ezffti_(integer *n, real *wsave);
extern int sinqb_(integer *n, real *x, real *wsave);
extern int passb_(integer *nac, integer *ido, integer *ip, integer * l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2,  real *wa);
extern int passf_(integer *nac, integer *ido, integer *ip, integer * l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2,  real *wa);
extern int sinti_(integer *n, real *wsave);
extern int cffti_(integer *n, real *wsave);
extern int passb3_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int passb2_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int passf2_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int rfftf1_(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int sint_(integer *n, real *x, real *wsave);
extern int passf5_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int radbg_(integer *ido, integer *ip, integer *l1, integer * idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
extern int sint1_(integer *n, real *war, real *was, real *xh, real * x, integer *ifac);
extern int radb3_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int radf2_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int passb5_(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int sinqi_(integer *n, real *wsave);
extern int vcintr_(complex *cx, integer *n, integer *jx);
extern int vrintr_(real *rx, integer *n, integer *jx);
extern int vrrnm_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, integer *nb);
extern int vrrnm1_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, integer *nb);
extern int vrrnm0_(real *rx, real *ry, integer *n, integer *jx,  integer *jy, integer *nb);
extern int shlbwm_(integer *mm, integer *jm, integer *m, integer * isw, real *sm, real *wm, real *sd, real *pm, real *yc, real *r__);
extern int shfwgz_(integer *jm, integer *im, real *wz, real *g);
extern int shiniz_(integer *jm, real *x, real *y, real *z__);
extern int shmsri_(integer *mm, integer *m, real *sr, real *si);
extern int shmswm_(integer *mm, integer *jm, integer *m, integer * isw, real *s, real *wr, real *wi, real *sd, real *pm, real *ys, real * yc, real *py, real *r__);
extern int shppmj_(integer *mm, integer *jm, integer *m, integer *j, real *pmj, real *ys, real *py, real *r__);
extern int shpfun_(integer *mm, integer *jm, integer *m, real *fun,  real *pm, real *ys, real *yc, real *py, real *r__);
extern int shppma_(integer *mm, integer *jm, integer *m, real *pm,  real *ys, real *py, real *r__);
extern int shmw2s_(integer *mm, integer *jm, integer *isw, real *w,  real *s, real *sd, real *pm, real *xs, real *xc, real *px, real *wy,  real *wx, real *r__, real *z__);
extern int shlbwj_(integer *mm, integer *jm, integer *m, integer *j, integer *isw, real *sm, real *wmj, real *sd, real *pmj, real *yc,  real *r__);
extern int shnm2l_(integer *mm, integer *n, integer *m, integer *lr, integer *li);
extern int shfwgm_(integer *jm, integer *im, integer *m, real *wr,  real *wi, real *g, real *h__, real *wfft);
extern int shfwgj_(integer *mm, integer *im, integer *m1, integer * m2, real *wj, real *gj, real *h__, real *wfft);
extern int shinit_(integer *mm, integer *jm, integer *im, real *y,  real *ys, real *yc, real *x, real *xs, real *xc, real *xw, real *z__,  real *py, real *px, real *r__, real *wfft);
extern int shlbwu_(integer *mm, integer *jm, integer *m, integer * isw, real *sm, real *wm, real *sd, real *pm, real *ys, real *yc, real  *py, real *r__);
extern int shlsds_(integer *mm, integer *m, integer *isw, real *sd,  real *sm, real *r__);
extern int shfwga_(integer *mm, integer *jm, integer *im, integer * m1, integer *m2, real *w, real *g, real *h__, real *wfft);
extern int shinir_(integer *mm, real *r__);
extern int shmwjz_(integer *mm, integer *jm, integer *isw, integer * j, real *s, real *wjd, real *sd, real *pmj, real *ys, real *yc, real * py, real *r__);
extern int shlssd_(integer *mm, integer *m, integer *isw, real *sm,  real *sd, real *r__);
extern int shtlib_(void);
extern int shtint_(integer *mm, integer *jm, integer *im, real *q);
extern int shtlap_(integer *mm, integer *ind, real *a, real *b);
extern int shtnml_(integer *mm, integer *n, integer *m, integer *lr, integer *li);
extern int shtfun_(integer *mm, integer *jm, integer *m, real *fun,  real *q);
extern int shtlfw_(integer *mm, integer *jm, integer *m, integer * isw, real *wm, real *sm, real *q);
extern int shtlbw_(integer *mm, integer *jm, integer *m, integer * isw, real *sm, real *wm, real *q);
extern int shts2w_(integer *mm, integer *jm, integer *isw, real *s,  real *w, real *q);
extern int shtswa_(integer *mm, integer *jm, integer *isw, integer * m1, integer *m2, real *s, real *w, real *q);
extern int shtswz_(integer *mm, integer *jm, integer *isw, real *s,  real *wz, real *q);
extern int shtswm_(integer *mm, integer *jm, integer *m, integer * isw, real *s, real *wr, real *wi, real *q);
extern int shtswj_(integer *mm, integer *jm, integer *isw, integer * j, integer *m1, integer *m2, real *s, real *wj, real *q);
extern int shtw2s_(integer *mm, integer *jm, integer *isw, real *s,  real *w, real *q);
extern int shtw2g_(integer *mm, integer *jm, integer *im, real *w,  real *g, real *q);
extern int shtwga_(integer *mm, integer *jm, integer *im, integer * m1, integer *m2, real *w, real *g, real *q);
extern int shtwgm_(integer *mm, integer *jm, integer *im, integer * m, real *wr, real *wi, real *g, real *q);
extern int shtwgz_(integer *jm, integer *im, real *wz, real *g);
extern int shtwgj_(integer *mm, integer *im, integer *m1, integer * m2, real *wj, real *gj, real *q);
extern int shtg2w_(integer *mm, integer *jm, integer *im, real *g,  real *w, real *q);
extern int shts2g_(integer *mm, integer *jm, integer *im, integer * isw, real *s, real *w, real *g, real *q);
extern int shtsga_(integer *mm, integer *jm, integer *im, integer * isw, integer *m1, integer *m2, real *s, real *w, real *g, real *q);
extern int shtsgz_(integer *mm, integer *jm, integer *im, integer * isw, real *s, real *wz, real *g, real *q);
extern int shtsgm_(integer *mm, integer *jm, integer *im, integer * m, integer *isw, real *s, real *wr, real *wi, real *g, real *q);
extern int shtsgj_(integer *mm, integer *jm, integer *im, integer * isw, integer *j, integer *m1, integer *m2, real *s, real *wj, real * gj, real *q);
extern int shtg2s_(integer *mm, integer *jm, integer *im, integer * isw, real *g, real *w, real *s, real *q);
extern int shinif_(integer *nfft, real *wfft);
extern int shlfwu_(integer *mm, integer *jm, integer *m, integer * isw, real *wm, real *sm, real *sd, real *xs, real *xc, real *pm, real  *wy, real *wx, real *px, real *r__, real *z__);
extern int shfw2g_(integer *mm, integer *jm, integer *im, real *w,  real *g, real *h__, real *wfft);
extern int shfftf_(integer *nfft, real *xfft, real *wfft);
extern int shmwjm_(integer *mm, integer *jm, integer *isw, integer * j, integer *m, real *s, real *wjr, real *wji, real *sd, real *pmj,  real *ys, real *yc, real *py, real *r__);
extern int shmdxm_(integer *jm, real *wr, real *wi);
extern int shmswz_(integer *mm, integer *jm, integer *isw, real *s,  real *wz, real *sd, real *pm, real *ys, real *yc, real *py, real *r__);
extern int shinip_(integer *mm, integer *jm, real *ys, real *yc,  real *py);
extern int shinix_(integer *jm, real *x, real *xs, real *xc, real * xw);
extern int shms2w_(integer *mm, integer *jm, integer *isw, real *s,  real *w, real *sd, real *pm, real *ys, real *yc, real *py, real *r__);
extern int shmswa_(integer *mm, integer *jm, integer *isw, integer * m1, integer *m2, real *s, real *w, real *sd, real *pm, real *ys, real  *yc, real *py, real *r__);
extern int shlbwl_(integer *mm, integer *m, real *sd, real *ws,  real *wa, real *pmj);
extern int sholap_(integer *mm, integer *ind, real *a, real *b);
extern int shfg2w_(integer *mm, integer *jm, integer *im, real *g,  real *w, real *h__, real *wfft);
extern int shfftb_(integer *nfft, real *xfft, real *wfft);
extern int shlfwl_(integer *mm, integer *jm, integer *n, integer *m, real *wx, real *sd, real *pm);
extern int shly2x_(integer *jm, integer *m, integer *isw, real *wm,  real *wx, real *wy, real *z__);
extern int shmswj_(integer *mm, integer *jm, integer *isw, integer * j, integer *m1, integer *m2, real *s, real *wj, real *sd, real *pmj,  real *ys, real *yc, real *py, real *r__);
extern int shinic_(integer *mm, integer *jm, real *xw, real *px);
extern int shlfwm_(integer *mm, integer *jm, integer *m, integer * isw, real *wm, real *sm, real *sd, real *xc, real *pm, real *wy, real  *wx, real *r__, real *z__);
extern int shiniy_(integer *jm, real *y, real *ys, real *yc);
extern int shmdxj_(real *wrd, real *wid);
extern int odrk2_(integer *n, S_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);
extern int odrk4s_(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odrk1_(integer *n, U_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);
extern int odrkg_(integer *n, S_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);
extern int odpget_(char *cp, integer *ipara, ftnlen cp_len);
extern int odpset_(char *cp, integer *ipara, ftnlen cp_len);
extern int odpstx_(char *cp, integer *ipara, ftnlen cp_len);
extern int odrk4_(integer *n, S_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);
extern int odiget_(char *cp, integer *ipara, ftnlen cp_len);
extern int odiset_(char *cp, integer *ipara, ftnlen cp_len);
extern int odistx_(char *cp, integer *ipara, ftnlen cp_len);
extern int odrget_(char *cp, real *rpara, ftnlen cp_len);
extern int odrset_(char *cp, real *rpara, ftnlen cp_len);
extern int odrstx_(char *cp, real *rpara, ftnlen cp_len);
extern int odrk4r_(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odlget_(char *cp, logical *lpara, ftnlen cp_len);
extern int odlset_(char *cp, logical *lpara, ftnlen cp_len);
extern int odlstx_(char *cp, logical *lpara, ftnlen cp_len);
extern int odiqnp_(integer *ncp);
extern int odiqid_(char *cp, integer *idx, ftnlen cp_len);
extern int odiqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int odiqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int odiqvl_(integer *idx, integer *ipara);
extern int odisvl_(integer *idx, integer *ipara);
extern int odiqin_(char *cp, integer *in, ftnlen cp_len);
extern int odrkgr_(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odrkgs_(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odlqnp_(integer *ncp);
extern int odlqid_(char *cp, integer *idx, ftnlen cp_len);
extern int odlqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int odlqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int odlqvl_(integer *idx, logical *lpara);
extern int odlsvl_(integer *idx, logical *lpara);
extern int odlqin_(char *cp, integer *in, ftnlen cp_len);
extern int odrkdu_(integer *n, S_fp algr, S_fp fcn, real *t, real * tend, integer *istep, real *x, real *work);
extern int odpqnp_(integer *ncp);
extern int odpqid_(char *cp, integer *idx, ftnlen cp_len);
extern int odpqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int odpqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int odpqit_(integer *idx, integer *itp);
extern int odpqvl_(integer *idx, integer *ipara);
extern int odpsvl_(integer *idx, integer *ipara);
extern int odpqin_(char *cp, integer *in, ftnlen cp_len);
extern int odrqnp_(integer *ncp);
extern int odrqid_(char *cp, integer *idx, ftnlen cp_len);
extern int odrqcp_(integer *idx, char *cp, ftnlen cp_len);
extern int odrqcl_(integer *idx, char *cp, ftnlen cp_len);
extern int odrqvl_(integer *idx, real *rpara);
extern int odrsvl_(integer *idx, real *rpara);
extern int odrqin_(char *cp, integer *in, ftnlen cp_len);
extern int odrkdv_(integer *n, S_fp steper, U_fp fcn, real *t, real  *tend, real *dt, real *x, real *work);
extern H_f cns_(char *ret_val, ftnlen ret_val_len, integer *ins);
extern int cdblk_(char *chr, ftnlen chr_len);
extern void dclvnm_(char *cvname, int Lvname);
extern int hexdci_(char *cp, integer *ip, ftnlen cp_len);
extern int hexdic_(integer *ip, char *cp, ftnlen cp_len);
extern int time31_(integer *itime, integer *ih, integer *im,  integer *is);
extern int timeq1_(integer *itime);
extern int timec1_(char *cform, integer *itime, ftnlen cform_len);
extern int timeq2_(integer *itt);
extern void timeq3_(integer *ih, integer *im, integer *is);
extern int time32_(integer *ih, integer *im, integer *is, integer * itt);
extern int timec3_(char *cform, integer *ih, integer *im, integer * is, ftnlen cform_len);
extern int time21_(integer *itime, integer *itt);
extern int time23_(integer *ih, integer *im, integer *is, integer * itt);
extern int time12_(integer *itime, integer *itt);
extern int time13_(integer *itime, integer *ih, integer *im,  integer *is);
extern int timec2_(char *cform, integer *itt, ftnlen cform_len);
extern int cupper_(char *ch, ftnlen ch_len);
extern int clower_(char *ch, ftnlen ch_len);
extern int fcpack_(void);
extern int fcslfc_(char *clx, ftnlen clx_len);
extern int fcleol_(integer *iou, logical *leol);
extern int fcopen_(integer *iou, char *cdsn, integer *nrl, char * cact, integer *icon, ftnlen cdsn_len, ftnlen cact_len);
extern int fcclos_(integer *iou, integer *icon);
extern int fcnrec_(integer *iou, integer *nrec);
extern int fcgetr_(integer *iou, char *cbuf, integer *icon, ftnlen  cbuf_len);
extern int fcputr_(integer *iou, char *cbuf, integer *icon, ftnlen  cbuf_len);
extern int fcgets_(integer *iou, integer *ibuf, integer *icon);
extern int fcputs_(integer *iou, integer *ibuf, integer *icon);
extern int fcrwnd_(integer *iou, integer *icon);
extern int date21_(integer *idate, integer *iy, integer *itd);
extern int date23_(integer *iy, integer *im, integer *id, integer * itd);
extern int dateg3_(integer *n, integer *iy, integer *im, integer * id, integer *ny, integer *nm, integer *nd);
extern int dateg1_(integer *n, integer *idate, integer *ndate);
extern integer iweek3_(integer *iy, integer *im, integer *id);
extern int datec2_(char *cform, integer *iy, integer *itd, ftnlen  cform_len);
extern int date12_(integer *idate, integer *iy, integer *itd);
extern int date13_(integer *idate, integer *iy, integer *im,  integer *id);
extern int dateq2_(integer *iy, integer *itd);
extern integer iweek1_(integer *idate);
extern int dateq1_(integer *idate);
extern int dateg2_(integer *n, integer *iy, integer *itd, integer * ny, integer *ntd);
extern integer ndate3_(integer *iy, integer *im, integer *id, integer *ny, integer * nm, integer *nd);
extern H_f cmon_(char *ret_val, ftnlen ret_val_len, integer *im);
extern H_f cweek_(char *ret_val, ftnlen ret_val_len, integer *iw);
extern int date31_(integer *idate, integer *iy, integer *im,  integer *id);
extern int datef1_(integer *n, integer *idate, integer *ndate);
extern integer ndate2_(integer *iy, integer *itd, integer *ny, integer *ntd);
extern int date32_(integer *iy, integer *im, integer *id, integer * itd);
extern int datef2_(integer *n, integer *iy, integer *itd, integer * ny, integer *ntd);
extern integer ndate1_(integer *idate, integer *ndate);
extern int datec1_(char *cform, integer *idate, ftnlen cform_len);
extern int datef3_(integer *n, integer *iy, integer *im, integer * id, integer *ny, integer *nm, integer *nd);
extern void dateq3_(integer *iy, integer *im, integer *id);
extern integer ndmon_(integer *iy, integer *im);
extern int datec3_(char *cform, integer *iy, integer *im, integer * id, ftnlen cform_len);
extern integer ndyear_(integer *iy);
extern integer iweek2_(integer *iy, integer *itd);
extern int sbyte_(integer *npack, integer *iout, integer *ibit,  integer *nbits);
extern int sbytes_(integer *npack, integer *isam, integer *ibit,  integer *nbits, integer *nskip, integer *iter);
extern int bitpic_(integer *ip, char *cp, ftnlen cp_len);
extern integer ishift_(integer *i, integer *nshift);
extern int bitpci_(char *cp, integer *ip, ftnlen cp_len);
extern int gbyte_(integer *npack, integer *iout, integer *ibit,  integer *nbits);
extern integer iand_(integer *i, integer *j);
extern integer ior_(integer *i, integer *j);
extern int gbytes_(integer *npack, integer *isam, integer *ibit,  integer *nbits, integer *nskip, integer *iter);
extern int chval_(char *cfmt, real *val, char *cval, ftnlen  cfmt_len, ftnlen cval_len);
extern logical lchrc_(char *ch, ftnlen ch_len);
extern logical lchrl_(char *ch, ftnlen ch_len);
extern logical lchra_(char *ch, ftnlen ch_len);
extern logical lchrf_(char *ch, ftnlen ch_len);
extern logical lchrs_(char *ch, ftnlen ch_len);
extern logical lchrd_(char *ch, ftnlen ch_len);
extern logical lchr_(char *char__, char *cref, ftnlen char_len, ftnlen cref_len);
extern logical lchrb_(char *ch, ftnlen ch_len);
extern int chngi_(char *ch, char *ca, integer *ii, char *cfmt,  ftnlen ch_len, ftnlen ca_len, ftnlen cfmt_len);
extern int chngr_(char *ch, char *ca, real *rr, char *cfmt, ftnlen  ch_len, ftnlen ca_len, ftnlen cfmt_len);
extern int chngc_(char *ch, char *ca, char *cb, ftnlen ch_len,  ftnlen ca_len, ftnlen cb_len);
extern void clckst_(void);
extern void clckgt_(real *time);
extern void clckdt_(real *dt0);
extern real rngu0_(integer *iseed);
