#define ftnlen int
#define integer int
#define integer int
#define logical int
#define real float
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 szplop__(integer *itype, integer *index);
extern int szplcl__(void);
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 sztxno__(char *chars, char *charz, logical *lcntlz,  ftnlen chars_len, ftnlen charz_len);
extern int szlnzr__(real *rx1, real *ry1, real *rx2, real *ry2);
extern int szoplr__(void);
extern int szmvlr__(real *rx, real *ry);
extern int szpllr__(real *rx, real *ry);
extern int szcllr__(void);
extern int sztnzr__(integer *n, real *rpx, real *rpy);
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 szm3zu__(integer *n, real *upx, real *upy, real *upz);
extern int szlnzu__(real *ux1, real *uy1, real *ux2, real *uy2);
extern int szqtxw__(char *chars, integer *nc, real *wxch, real *wych, ftnlen chars_len);
extern int sztnsv__(integer *n, real *vpx, real *vpy, integer *irota, real *rspce, integer *itype, integer *index);
extern int szt3zv__(real *vpx, real *vpy, real *vpz);
extern int szplzr__(integer *n, real *rpx, real *rpy);
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 szplzu__(integer *n, real *upx, real *upy);
extern int sztnzv__(integer *n, real *vpx, real *vpy);
extern int szl3op__(integer *index);
extern int szl3cl__(void);
extern int szoplu__(void);
extern int szmvlu__(real *ux, real *uy);
extern int szpllu__(real *ux, real *uy);
extern int szcllu__(void);
extern int szpipl__(real *x0, real *y0, real *x1, real *y1, integer * mode);
extern int szgipl__(real *x, real *y, logical *lcont);
extern int szoplv__(void);
extern int szmvlv__(real *vx, real *vy);
extern int szpllv__(real *vx, real *vy);
extern int szcllv__(void);
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 szopsv__(void);
extern int szmvsv__(real *vx, real *vy);
extern int szplsv__(real *vx, real *vy);
extern int szclsv__(void);
extern int sztnop__(integer *itpat);
extern int sztncl__(void);
extern int szpmzv__(integer *n, real *vpx, real *vpy);
extern int szt3zu__(real *upx, real *upy, real *upz);
extern int szoptt__(void);
extern int szsttt__(real *tx, real *ty);
extern int szcltt__(void);
extern int sztxzu__(real *ux, real *uy, char *chars, ftnlen  chars_len);
extern int szsidx__(integer *index);
extern int szqidx__(integer *index);
extern int sztnzu__(integer *n, real *upx, real *upy);
extern int szstni__(integer *itpat);
extern int szqtni__(integer *itpat);
extern int szlazu__(real *ux1, real *uy1, real *ux2, real *uy2);
extern int szlazr__(real *rx1, real *ry1, real *rx2, real *ry2);
extern int szt3op__(integer *itpat1, integer *itpat2);
extern int szt3cl__(void);
extern int szopts__(void);
extern int szstts__(real *vx, real *vy);
extern int szclts__(void);
extern int sztits__(integer *itpat);
extern int szpmop__(integer *itype, integer *index, real *rsize);
extern int szpmcl__(void);
extern int szl3zv__(integer *n, real *v3x, real *v3y, real *v3z);
extern int sztxop__(real *rsize, integer *irota, integer *icent,  integer *index);
extern int sztxcl__(void);
extern int szpmzu__(integer *n, real *upx, real *upy);
extern int sztxzr__(real *rx, real *ry, char *chars, ftnlen  chars_len);
extern int szstyp__(integer *itype);
extern int szqtyp__(integer *itype);
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 szoptu__(void);
extern int szsttu__(real *ux, real *uy);
extern int szcltu__(void);
extern int szslti__(integer *itype, integer *index);
extern int sztxzv__(real *vx, real *vy, char *chars, ftnlen  chars_len);
extern int szoptr__(void);
extern int szsttr__(real *rx, real *ry);
extern int szcltr__(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 szpmzr__(integer *n, real *rpx, real *rpy);
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 szlnzv__(real *vx1, real *vy1, real *vx2, real *vy2);
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 szoplt__(void);
extern int szmvlt__(real *tx, real *ty);
extern int szpllt__(real *tx, real *ty);
extern int szcllt__(void);
extern int szm3op__(integer *itype, integer *index, real *rsize);
extern int szm3cl__(void);
extern int szlaop__(integer *itype, integer *index);
extern int szlacl__(void);
extern int szlnop__(integer *index);
extern int szlncl__(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 szoptz__(void);
extern int szsttz__(real *rx, real *ry);
extern int szcltz__(void);
extern int sztitz__(integer *itpat);
extern int szl3zu__(integer *n, real *u3x, real *u3y, real *u3z);
extern int szoplz__(void);
extern int szmvlz__(real *rx, real *ry);
extern int szpllz__(real *rx, real *ry);
extern int szcllz__(void);
extern int szm3zv__(integer *n, real *vpx, real *vpy, real *vpz);
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 szoplp__(void);
extern int szmvlp__(real *vx, real *vy);
extern int szpllp__(real *vx, real *vy);
extern int szcllp__(void);
extern int szfont__(integer *ifont, integer *iposx, integer *nchar,  char *ckx, char *cky, integer *len, ftnlen ckx_len, ftnlen cky_len);
extern int szlazv__(real *vx1, real *vy1, real *vx2, real *vy2);
extern int sztxwv__(real *vx, real *vy, char *chars, ftnlen  chars_len);
extern int szcltn__(integer *icpat, integer *maxcli);
extern int szplzv__(integer *n, real *vpx, real *vpy);
extern int szoptv__(void);
extern int szsttv__(real *vx, real *vy);
extern int szcltv__(void);
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 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 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 ststrn__(integer *itr, 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 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 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 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 slpage__(integer *lev, integer *ifrm, integer *ipage);
extern int slpwvr__(integer *index);
extern int slzttl__(char *cside, char *cttl, real *px, real *py,  real *rsize, integer *index, ftnlen cside_len, ftnlen cttl_len);
extern int slrat__(real *rx, real *ry);
extern int slqrct__(integer *lev, integer *ifrm, real *xamin, real * xamax, real *yamin, real *yamax);
extern int slpwwr__(integer *index);
extern int slpwwc__(integer *index, real *rc);
extern int sldiv__(char *cform, integer *ix, integer *iy, ftnlen  cform_len);
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 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 slratz__(real *xamin, real *xamax, real *yamin, real * yamax, real *rx, real *ry);
extern int slpwvc__(integer *index, real *rc);
extern int slqsiz__(char *csize, real *dx, real *dy, ftnlen  csize_len);
extern int slpvpr__(integer *index);
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 slpcnr__(void);
extern int slpvpc__(integer *index, real *rc);
extern int slmgn__(real *xl, real *xr, real *yb, real *yt);
extern int slmgnz__(real *xamin, real *xamax, real *yamin, real * yamax, real *xl, real *xr, real *yb, real *yt);
extern int sltlcv__(char *ctlin, char *ctlout, integer *lout, ftnlen  ctlin_len, ftnlen ctlout_len);
extern int sctnzu__(real *upx, real *upy, real *upz, 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 scplzu__(integer *n, real *upx, real *upy, real *upz,  integer *index);
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 scspln__(integer *ixax, integer *iyax, real *sect);
extern int scqpln__(integer *ixax, integer *iyax, real *sect);
extern int scslog__(logical *lxlog3, logical *lylog3, logical * lzlog3);
extern int scqlog__(logical *lxlog3, logical *lylog3, logical * lzlog3);
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 sctnzv__(real *vpx, real *vpy, real *vpz, integer *itpat1, integer *itpat2);
extern int scplzv__(integer *n, real *vpx, real *vpy, real *vpz,  integer *index);
extern int scsorg__(real *simfac, real *vxorg3, real *vyorg3, real * vzorg3);
extern int scqorg__(real *simfac, real *vxorg3, real *vyorg3, real * vzorg3);
extern int scseye__(real *xeye3, real *yeye3, real *zeye3);
extern int scqeye__(real *xeye3, real *yeye3, real *zeye3);
extern int scsprj__(void);
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 scpmzu__(integer *n, real *upx, real *upy, real *upz,  integer *itype, integer *index, real *rsize);
extern int scstrf__(void);
extern int scsobj__(real *xobj3, real *yobj3, real *zobj3);
extern int scqobj__(real *xobj3, real *yobj3, real *zobj3);
extern int scstrn__(integer *itr3);
extern int scqtrn__(integer *itr3);
extern int scpmzv__(integer *n, real *vpx, real *vpy, real *vpz,  integer *itype, integer *index, real *rsize);
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 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 sgpmzr__(integer *n, real *rpx, real *rpy, integer *itype, integer *index, real *rsize);
extern int sgpmzu__(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int sgtxxr__(real *rx, real *ry, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, integer *icolor,  ftnlen chars_len);
extern int sglaxr__(real *rx1, real *ry1, real *rx2, real *ry2,  integer *itype, integer *index, integer *icolor);
extern int sgstxy__(real *txmin, real *txmax, real *tymin, real * tymax);
extern int sgqtxy__(real *txmin, real *txmax, real *tymin, real * tymax);
extern int sgtxzu__(real *ux, real *uy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, ftnlen chars_len);
extern int sglnzv__(real *vx1, real *vy1, real *vx2, real *vy2,  integer *index);
extern int sgtnxv__(integer *n, real *vpx, real *vpy, integer *itpat, integer *icolor);
extern int sgpmxv__(integer *n, real *vpx, real *vpy, integer *itype, integer *index, integer *icolor, real *rsize);
extern int sgswnd__(real *uxmin, real *uxmax, real *uymin, real * uymax);
extern int sgqwnd__(real *uxmin, real *uxmax, real *uymin, real * uymax);
extern int sgstrf__(void);
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 sgtxxv__(real *vx, real *vy, 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 sgpmzv__(integer *n, real *vpx, real *vpy, integer *itype, integer *index, real *rsize);
extern int sglaxv__(real *vx1, real *vy1, real *vx2, real *vy2,  integer *itype, integer *index, integer *icolor);
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 sgscwd__(real *cxmin, real *cxmax, real *cymin, real * cymax);
extern int sgqcwd__(real *cxmin, real *cxmax, real *cymin, real * cymax);
extern int sgpfln__(void);
extern int sgtnzr__(integer *n, real *rpx, real *rpy, integer *itpat);
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 sglnzu__(real *ux1, real *uy1, real *ux2, real *uy2,  integer *index);
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 sgsvpt__(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int sgqvpt__(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int sgplzr__(integer *n, real *rpx, real *rpy, integer *itype, integer *index);
extern int sglazv__(real *vx1, real *vy1, real *vx2, real *vy2,  integer *itype, integer *index);
extern int sglaxu__(real *ux1, real *uy1, real *ux2, real *uy2,  integer *itype, integer *index, integer *icolor);
extern int sgtxxu__(real *ux, real *uy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, integer *icolor,  ftnlen chars_len);
extern int sgtnzu__(integer *n, real *upx, real *upy, integer *itpat);
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 sglnxu__(real *ux1, real *uy1, real *ux2, real *uy2,  integer *index, integer *icolor);
extern int sgplxv__(integer *n, real *vpx, real *vpy, integer *itype, integer *index, integer *icolor);
extern int sgtxzv__(real *vx, real *vy, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, ftnlen chars_len);
extern int sglnxr__(real *rx1, real *ry1, real *rx2, real *ry2,  integer *index, integer *icolor);
extern int sgpwsn__(void);
extern int sgplxr__(integer *n, real *rpx, real *rpy, integer *itype, integer *index, integer *icolor);
extern int sgstrn__(integer *itr);
extern int sgqtrn__(integer *itr);
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 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 sgtxzr__(real *rx, real *ry, char *chars, real *rsize,  integer *irota, integer *icent, integer *index, ftnlen chars_len);
extern int sglnzr__(real *rx1, real *ry1, real *rx2, real *ry2,  integer *index);
extern int sgpmxu__(integer *n, real *upx, real *upy, integer *itype, integer *index, integer *icolor, real *rsize);
extern int isgtrc__(char *ctr, ftnlen ctr_len);
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 sglazr__(real *rx1, real *ry1, real *rx2, real *ry2,  integer *itype, integer *index);
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 sgplxu__(integer *n, real *upx, real *upy, integer *itype, integer *index, integer *icolor);
extern int sgsmpl__(real *plx, real *ply, real *plrot);
extern int sgqmpl__(real *plx, real *ply, real *plrot);
extern int sglazu__(real *ux1, real *uy1, real *ux2, real *uy2,  integer *itype, integer *index);
extern int sgplzu__(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int sglnxv__(real *vx1, real *vy1, real *vx2, real *vy2,  integer *index, integer *icolor);
extern int sgtnxr__(integer *n, real *rpx, real *rpy, integer *itpat, integer *icolor);
extern int sgpmxr__(integer *n, real *rpx, real *rpy, integer *itype, integer *index, integer *icolor, real *rsize);
extern int sgscmn__(integer *nc);
extern int sgqcmn__(integer *nmax);
extern int sgopn__(integer *iws);
extern int sginit__(void);
extern int sgfrm__(void);
extern int sgcls__(void);
extern int sgtnxu__(integer *n, real *upx, real *upy, integer *itpat, 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 sgtnzv__(integer *n, real *vpx, real *vpy, integer *itpat);
extern int sgplzv__(integer *n, real *vpx, real *vpy, integer *itype, integer *index);
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 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 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 sgpcmd__(void);
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 isgrgb__(integer *ir, integer *ig, integer *ib);
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 sgclst__(char *ccfile, ftnlen ccfile_len);
extern int sgqcl__(integer *num, integer *nr, integer *ng, integer * nb);
extern int sgssim__(real *simfac, real *vxoff, real *vyoff);
extern int sgqsim__(real *simfac, real *vxoff, real *vyoff);
#ifdef __GTK_H__
extern void zgiset__(char pmname[],integer *pl,integer *value);
extern void zgrset__(char pmname[],integer *pl,real *value);
extern void zgfrel__(real *wx, real *wy, real *rwx, real *rwy);
extern void zgiint__(integer *iwx, integer *iwy, real *wx, real *wy);
extern void zgdopn__(integer *dev_type, integer *width, integer *height, integer *iposx, integer *iposy, integer *idmpdgt, integer *ibgpage,real *rlwfact, integer *lwait, integer *lwait0, integer *lwait1, integer *lalt , integer *lstdot, integer *lkey, integer *ldump, integer *lwnd, integer *lfgbg, integer *lsep, integer *ifln, 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 zgflash__();
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 zgclip__(real *xmin,real *xmax,real *ymin,real *ymax);
extern void zgrclp__();
extern void zgtxt__(real *wx, real *wy, real *size, char *text, integer *len, real *irota, integer *icentz);
extern void zgselectfont__(char *selected_font);
extern void zgftfc__(char *family);
extern void zgsfw__(integer *weight);
extern void zgnumfonts__(integer *fntnum);
extern void zglistfonts__();
extern void zgfontname__(integer *n, char *string, integer *nmax);
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 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 swdopn__(void);
extern int swdcls__(void);
extern int swpopn__(void);
extern int swflsh__(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__(integer *lfcmod);
extern int swswdi__(integer *iwdidx);
extern int swscli__(integer *iclidx, logical *lfcatr);
extern int swslcl__(integer *icolor);
extern int swsfw__(integer *iwidx);
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 swiqnp__(integer *ncp);
extern int swiqid__(char *cp, integer *idx, ftnlen cp_len);
extern int swiqcp__(integer *idx, char *cp, ftnlen cp_len);
extern int swiqcl__(integer *idx, char *cp, ftnlen cp_len);
extern int swiqvl__(integer *idx, integer *ipara);
extern int swisvl__(integer *idx, integer *ipara);
extern int swiqin__(char *cp, integer *in, ftnlen cp_len);
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 swqtxw__(char *chars, integer *nchz, real *wxch, real * wych, ftnlen chars_len);
extern int swftfc__(char *fontname, ftnlen fontname_len);
extern int swftnm__(integer *fntnum);
extern int swslft__(char *fontname, ftnlen fontname_len);
extern int swgtft__(integer *inum, char *fontname, integer *ifmax,  ftnlen fontname_len);
extern int swlsft__(void);
extern int swtxt__(real *wx, real *wy, real *qsizexrate, char *chars, integer *ncz, integer *irota, integer *icentz, ftnlen chars_len);
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 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 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 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 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 swqfnm__(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
extern void zgfint__(real *wx, real *wy, integer *iwx, integer *iwy);
extern void zgqtxw__(char *text, integer *len, real *wxch, real *wych);
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 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 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 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 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 uestln__(real *tlevn, integer *ipatn, integer *nton);
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 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 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 uetonz__(real *z__, integer *mx, integer *nx, integer *ny, integer *image, integer *ni);
extern int uetone__(real *z__, integer *mx, integer *nx, integer *ny);
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 uegtlb__(real *z__, integer *mx, integer *nx, integer *ny, real *dx);
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 int uetonc__(real *z__, integer *mx, integer *nx, integer *ny);
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 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 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 uegtla__(real *xmin, real *xmax, real *dx);
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 uetonf__(real *z__, integer *mx, integer *nx, integer *ny);
extern int uetonb__(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 iueton__(real *zlev);
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 uspttl__(char *cside, integer *islct, char *cttl, real * pos, ftnlen cside_len, ftnlen cttl_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 usxaxs__(char *cside, ftnlen cside_len);
extern int usysub__(char *cya, char *cxa, char *clabel, real *rlbl,  ftnlen cya_len, ftnlen cxa_len, ftnlen clabel_len);
extern int uspfit__(void);
extern int usaxcl__(char *cside, integer *jd0, char *ctype, integer * nd, ftnlen cside_len, ftnlen ctype_len);
extern int uspnum__(char *cside, integer *islct, real *pos, integer * n, ftnlen cside_len);
extern int uszdgt__(real *umin, real *umax, real *dul, integer * maxdgt, real *uoff, real *ufact, integer *ndgt, integer *ldgt);
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 usaxlb__(char *cside, real *dtick, integer *n1, real * dlabel, char *ch, integer *nc, integer *n2, ftnlen cside_len, ftnlen  ch_len);
extern int usaxlg__(char *cside, integer *nlbl, integer *nticks,  ftnlen cside_len);
extern int uswapz__(real *x1, real *x2, integer *n);
extern int ususcl__(char *caxis, real *umin, real *umax, real *vmin,  real *vmax, ftnlen caxis_len);
extern int usplbl__(char *cside, integer *islct, real *pos, char *ch, integer *nc, integer *n, 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 usxinz__(char *csa, real *faca, real *offa, ftnlen  csa_len);
extern int usxtlz__(void);
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 usspnt__(integer *n, real *x, real *y);
extern int usxoff__(char *cxs, ftnlen cxs_len);
extern int usaxnm__(char *cside, real *dtick, integer *n1, real * dlabel, integer *n2, ftnlen cside_len);
extern int usaxsc__(char *cside, ftnlen cside_len);
extern int usdaxs__(void);
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 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 uschvl__(real *x, char *chx, ftnlen chx_len);
extern int usxsub__(char *cxa, char *cya, char *clabel, real *rlbl,  ftnlen cxa_len, ftnlen cya_len, ftnlen clabel_len);
extern int usxaxu__(char *cxs, ftnlen cxs_len);
extern int usyaxs__(char *cside, ftnlen cside_len);
extern int usgrph__(integer *n, real *x, real *y);
extern int usaxdv__(char *cside, real *dtick, real *dlbl, ftnlen  cside_len);
extern void csblbl__(char *ret_val, ftnlen ret_val_len, real *ufac,  real *uoff, char *cunit__, ftnlen cunit_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 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 ussttl__(char *cxttl, char *cxunit, char *cyttl, char * cyunit, ftnlen cxttl_len, ftnlen cxunit_len, ftnlen cyttl_len, ftnlen  cyunit_len);
extern int ussaxs__(char *cside, ftnlen cside_len);
extern int usxaxl__(char *cxs, ftnlen cxs_len);
extern int usinit__(void);
extern int usyaxl__(char *cys, ftnlen cys_len);
extern int usyoff__(char *cys, ftnlen cys_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 usptmk__(char *cside, integer *islct, real *pos, integer * n, ftnlen cside_len);
extern int usurdl__(real *umin, real *umax, real *vmin, real *vmax);
extern int usurdt__(real *umin, real *umax, real *vmin, real *vmax,  real *dut);
extern int uspaxs__(char *cside, integer *islct, ftnlen cside_len);
extern int usyinz__(char *csa, real *faca, real *offa, ftnlen  csa_len);
extern int usytlz__(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 usyaxu__(char *cys, ftnlen cys_len);
extern int uypaxs__(char *cside, integer *islct, ftnlen cside_len);
extern int uypttl__(char *cside, integer *islct, char *cttl, real * px, ftnlen cside_len, ftnlen cttl_len);
extern int uysaxs__(char *cside, ftnlen cside_len);
extern int uypnum__(char *cside, integer *islct, real *uy, integer * n, ftnlen cside_len);
extern int uysaxz__(char *cside, real *roffy, ftnlen cside_len);
extern logical luychk__(char *cside, ftnlen cside_len);
extern int uyplbl__(char *cside, integer *islct, real *uy, char *ch,  integer *nc, integer *n, ftnlen cside_len, ftnlen ch_len);
extern int uyptmk__(char *cside, integer *islct, real *uy, integer * n, ftnlen cside_len);
extern int uysttl__(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uyaxdv__(char *cside, real *dy1, real *dy2, ftnlen  cside_len);
extern int uysfmt__(char *cfmt, ftnlen cfmt_len);
extern int uyqfmt__(char *cfmt, ftnlen cfmt_len);
extern int uyptmz__(real *uy, integer *n, real *upx, real *roffy,  real *rtick, integer *index);
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 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 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 uymttl__(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uyaxnm__(char *cside, real *uy1, integer *n1, real *uy2,  integer *n2, ftnlen cside_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 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 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 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 ulxlbl__(real *bl, integer *nbl, integer *inum);
extern int ulsxbl__(real *bl, integer *nbl);
extern int ulqxbl__(real *bl, integer *nbl);
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 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 ulxsfm__(char *cxfmt, ftnlen cxfmt_len);
extern int ulxqfm__(char *cxfmt, ftnlen cxfmt_len);
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 ulysfm__(char *cyfmt, ftnlen cyfmt_len);
extern int ulyqfm__(char *cyfmt, ftnlen cyfmt_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 ulxlog__(char *cside, integer *nlbl, integer *nticks,  ftnlen cside_len);
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 ulylog__(char *cside, integer *nlbl, integer *nticks,  ftnlen cside_len);
extern int uulin__(integer *n, real *upx, real *upy);
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 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 uusfrt__(integer *itype);
extern int uuqfrt__(integer *itype);
extern int uusfri__(integer *index);
extern int uuqfri__(integer *index);
extern int uusarp__(integer *itpt1, integer *itpt2);
extern int uuqarp__(integer *itpt1, integer *itpt2);
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 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 uulinz__(integer *n, real *upx, real *upy, integer *itype, integer *index);
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 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 uuinit__(void);
extern int uuslnt__(integer *itype);
extern int uuqlnt__(integer *itype);
extern int uuslni__(integer *index);
extern int uuqlni__(integer *index);
extern int uusidv__(real *umin, real *umax);
extern int uuqidv__(real *umin, real *umax);
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 uusbrs__(real *rsize);
extern int uuqbrs__(real *rsize);
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 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 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 uumrkz__(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int ugsut__(char *cside, char *cttl, ftnlen cside_len, ftnlen  cttl_len);
extern int ugdut__(void);
extern int ugvect__(real *u, integer *mu, real *v, integer *mv,  integer *nx, integer *ny);
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 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 ugunit__(void);
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 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 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 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 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 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 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 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 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 uzinit__(void);
extern int uzpsav__(void);
extern int uzprst__(void);
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 uzfact__(real *rfact);
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 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 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 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 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 ucxayr__(char *cside, integer *jd0, integer *nd, ftnlen  cside_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 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 ucxamn__(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucyady__(char *cside, integer *jd0, integer *nd, ftnlen  cside_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 ucyamn__(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int ucyacl__(char *cside, integer *jd0, integer *nd, ftnlen  cside_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 ucxacl__(char *cside, integer *jd0, integer *nd, ftnlen  cside_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 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 nucday__(char *cs, integer *nd, ftnlen cs_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 ucxady__(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int nucchr__(char *cs, integer *nd, ftnlen cs_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 int ucyayr__(char *cside, integer *jd0, integer *nd, ftnlen  cside_len);
extern int udbset__(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 udgrdn__(integer *mode, integer *ix, integer *iy, integer  *k, integer *jx, integer *jy, integer *jk);
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 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 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 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 udgcla__(real *xmin, real *xmax, real *dx);
extern int udiclr__(integer *ix, integer *n);
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 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 logical ludchk__(integer *i__, integer *j, integer *k, integer *l, 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 udcntz__(real *z__, integer *mx, integer *nx, integer *ny, integer *ibr, integer *nbr2);
extern int uduxuy__(real *z__, integer *mx, integer *ix, integer *iy, integer *k, real *cx, real *ux, real *uy);
extern int udbclr__(integer *i__, integer *j, integer *k, integer *l, integer *ibr);
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 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 udline__(real *z__, integer *mx, integer *kx, integer *ky, integer *kk, real *cx, logical *lopen, integer *ibr);
extern int udcntr__(real *z__, integer *mx, integer *nx, integer *ny);
extern int udgclb__(real *z__, integer *mx, integer *nx, integer *ny, real *dx);
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 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 umsgrd__(void);
extern int umplim__(void);
extern int umspwd__(void);
extern int umpmap__(char *cdsn, ftnlen cdsn_len);
extern int umscom__(void);
extern int umqfnm__(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
extern int umspdf__(void);
extern int umpgrd__(void);
extern int umbndp__(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int umscwd__(real *xcntr, real *ycntr, real *r__);
extern int umqcwd__(real *xcntr, real *ycntr, real *r__);
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 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 umpglb__(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 umqtxy__(real *txminz, real *txmaxz, real *tyminz, real * tymaxz);
extern int umspct__(void);
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 umfmap__(char *cdsn, ftnlen cdsn_len);
extern int umbndc__(real *xmin, real *xmax, real *ymin, real *ymax);
extern int uminit__(void);
extern int umscnt__(real *xcnt, real *ycnt, real *rot);
extern int umqcnt__(real *xcnt, real *ycnt, real *rot);
extern int umpfit__(void);
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 umsppt__(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 umspcw__(void);
extern int umstvz__(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 grinit__(void);
extern int grstrf__(void);
extern int grscwd__(real *cxmin, real *cxmax, real *cymin, real * cymax);
extern int grsvpt__(real *vxmin, real *vxmax, real *vymin, real * vymax);
extern int grsmpl__(real *plx, real *ply, real *plrot);
extern int gropn__(integer *iws);
extern int grfrm__(void);
extern int grfig__(void);
extern int grcls__(void);
extern int grstrn__(integer *itr);
extern int grssim__(real *simfac, real *vxoff, real *vyoff);
extern int grstxy__(real *txmin, real *txmax, real *tymin, real * tymax);
extern int grswnd__(real *uxmin, real *uxmax, real *uymin, real * uymax);
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 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 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 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 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 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 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 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 uifpac__(integer *ir, integer *ig, integer *ib, integer * irgb);
extern int uiipac__(integer *irgb, integer *ir, integer *ig, integer  *ib);
extern int uiybar__(real *xmin, real *xmax, real *ymin, real *ymax,  real *zmin, real *zmax, char *cpos, ftnlen cpos_len);
extern int uiqfnm__(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_len);
extern int uipdat__(real *z__, integer *mx, integer *nx, integer *ny);
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 uiqcrg__(real *zmin, real *zmax);
extern int uiqmrg__(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 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 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 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 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 uixbar__(real *xmin, real *xmax, real *ymin, real *ymax,  real *zmin, real *zmax, char *cpos, ftnlen cpos_len);
extern int uipcmp__(real *xmin, real *xmax, real *ymin, real *ymax,  char *cpos, ftnlen cpos_len);
extern int uwdflt__(integer *nx, integer *ny);
extern int uwinit__(void);
extern int iuwgy__(real *uy);
extern int iuwgx__(real *ux);
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 uxmttl__(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uxpnum__(char *cside, integer *islct, real *ux, integer * n, ftnlen cside_len);
extern int uxsfmt__(char *cfmt, ftnlen cfmt_len);
extern int uxqfmt__(char *cfmt, ftnlen cfmt_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 uxpttl__(char *cside, integer *islct, char *cttl, real * px, ftnlen cside_len, ftnlen cttl_len);
extern int uxptmz__(real *ux, integer *n, real *upy, real *roffx,  real *rtick, integer *index);
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 uxpaxs__(char *cside, integer *islct, ftnlen cside_len);
extern int uxsaxs__(char *cside, ftnlen cside_len);
extern int uxsaxz__(char *cside, real *roffx, ftnlen cside_len);
extern int uxsoff__(void);
extern int uxroff__(void);
extern int uxptmk__(char *cside, integer *islct, real *ux, integer * n, ftnlen cside_len);
extern logical luxchk__(char *cside, ftnlen cside_len);
extern int uxaxnm__(char *cside, real *ux1, integer *n1, real *ux2,  integer *n2, 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 uxaxdv__(char *cside, real *dx1, real *dx2, ftnlen  cside_len);
extern int uxsttl__(char *cside, char *cttl, real *px, ftnlen  cside_len, ftnlen cttl_len);
extern int uvbxl__(integer *n, real *upx, real *upy);
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 uverbz__(integer *n, real *upx, real *upy1, real *upy2,  integer *itype, integer *index, real *rsize);
extern int uvbxf__(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbxfz__(integer *n, real *upx, real *upy1, real *upy2,  integer *itype, integer *index);
extern int uvbrfz__(integer *n, real *upx, real *upy1, real *upy2,  integer *itype, integer *index, real *rsize);
extern int uvbxaz__(integer *n, real *upx, real *upy1, real *upy2,  integer *itpat1, integer *itpat2);
extern int uvbrf__(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbxa__(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbxlz__(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int uvdif__(integer *n, real *upx, real *upy1, real *upy2);
extern int uvbra__(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 uverb__(integer *n, real *upx, real *upy1, real *upy2);
extern int uvdifz__(integer *n, real *upx, real *upy1, real *upy2,  integer *itpat1, integer *itpat2);
extern int uhbxfz__(integer *n, real *upx1, real *upx2, real *upy,  integer *itype, integer *index);
extern int uhdifz__(integer *n, real *upx1, real *upx2, real *upy,  integer *itpat1, integer *itpat2);
extern int uhbraz__(integer *n, real *upx1, real *upx2, real *upy,  integer *itpat1, integer *itpat2, real *rsize);
extern int uhbxf__(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbxl__(integer *n, real *upx, real *upy);
extern int uhdif__(integer *n, real *upx1, real *upx2, real *upy);
extern int uherb__(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbrfz__(integer *n, real *upx1, real *upx2, real *upy,  integer *itype, integer *index, real *rsize);
extern int uhbrl__(integer *n, real *upx, real *upy);
extern int uhbxa__(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbra__(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 uhbxlz__(integer *n, real *upx, real *upy, integer *itype, integer *index);
extern int uhbrf__(integer *n, real *upx1, real *upx2, real *upy);
extern int uhbrlz__(integer *n, real *upx, real *upy, integer *itype, integer *index, real *rsize);
extern int uherbz__(integer *n, real *upx1, real *upx2, real *upy,  integer *itype, integer *index, real *rsize);
extern int indxnl__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int nindxc__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int indxrf__(real *rx, integer *n, integer *jd, real *rr);
extern int nindxm__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int indxnf__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int indxif__(integer *ix, integer *n, integer *jd, integer *ii);
extern int indxil__(integer *ix, integer *n, integer *jd, integer *ii);
extern int nindxr__(real *rx, integer *n, integer *jd, real *rr);
extern int indxrl__(real *rx, integer *n, integer *jd, real *rr);
extern int indxcl__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int indxml__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int indxmf__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int nindxn__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int indxcf__(char *cx, integer *n, integer *jd, char *ch, ftnlen cx_len,  ftnlen ch_len);
extern int nindxi__(integer *ix, integer *n, integer *jd, integer *ii);
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 vrinc0__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int rmlt__(real *rx, integer *n, integer *jx, real *rr);
extern int vrfct__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrcon1__(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 vrfct1__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int rset0__(real *rx, integer *n, integer *jx, real *rr);
extern int radd__(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 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 rmlt0__(real *rx, integer *n, integer *jx, real *rr);
extern int radd1__(real *rx, integer *n, integer *jx, real *rr);
extern int vrcon0__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern int vrcon__(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 vrinc1__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, real *rr);
extern logical lrnea__(real *x, real *y, real *epsl);
extern logical lrle1__(real *x, real *y);
extern logical lrlt0__(real *x, real *y);
extern logical lreq__(real *x, real *y);
extern logical lreq0__(real *x, real *y);
extern logical lrgta__(real *x, real *y, real *epsl);
extern logical lrgt__(real *x, real *y);
extern logical lrne0__(real *x, real *y);
extern logical lrge1__(real *x, real *y);
extern logical lreqa__(real *x, real *y, real *epsl);
extern logical lrlt1__(real *x, real *y);
extern logical lrlea__(real *x, real *y, real *epsl);
extern logical lreq1__(real *x, real *y);
extern logical lrle__(real *x, real *y);
extern logical lrge__(real *x, real *y);
extern logical lrne__(real *x, real *y);
extern logical lrle0__(real *x, real *y);
extern logical lrgt0__(real *x, real *y);
extern logical lrgt1__(real *x, real *y);
extern logical lrge0__(real *x, real *y);
extern logical lrgea__(real *x, real *y, real *epsl);
extern logical lrlt__(real *x, real *y);
extern logical lrne1__(real *x, real *y);
extern logical lrlta__(real *x, real *y, real *epsl);
extern int lenc__(char *c__, ftnlen c_len);
extern int cradj__(char *chr, ftnlen chr_len);
extern int lenb__(char *c__, ftnlen c_len);
extern int cladj__(char *chr, ftnlen chr_len);
extern int lenz__(char *c__, ftnlen c_len);
extern int leny__(char *c__, ftnlen c_len);
extern int crvrs__(char *chr, ftnlen chr_len);
extern int iblkgt__(real *rx, integer *n, real *rr);
extern int iblkge__(real *rx, integer *n, real *rr);
extern int iblkle__(real *rx, integer *n, real *rr);
extern int iblklt__(real *rx, integer *n, real *rr);
extern int mpfazm__(real *xlon, real *ylat, real *x, real *y);
extern int mpiazm__(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 mpzktd__(real *phi, real *alpha, real *f, real *df);
extern int mpzek6__(real *phi, real *alpha, real *f, real *df);
extern int mpfmer__(real *xlon, real *ylat, real *x, real *y);
extern int mpimer__(real *x, real *y, real *xlon, real *ylat);
extern int mpfpst__(real *xlon, real *ylat, real *x, real *y);
extern int mpipst__(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 mpfmwd__(real *xlon, real *ylat, real *x, real *y);
extern int mpimwd__(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 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 mpfcya__(real *xlon, real *ylat, real *x, real *y);
extern int mpicya__(real *x, real *y, real *xlon, real *ylat);
extern int mpzmwd__(real *phi, real *alpha, real *f, real *df);
extern int mpfcyc__(real *xlon, real *ylat, real *x, real *y);
extern int mpicyc__(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 mpfaza__(real *xlon, real *ylat, real *x, real *y);
extern int mpiaza__(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 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 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 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 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 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 mpfhmr__(real *xlon, real *ylat, real *x, real *y);
extern int mpihmr__(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 mpfek6__(real *xlon, real *ylat, real *x, real *y);
extern int mpiek6__(real *x, real *y, real *xlon, real *ylat);
extern int mpfpt2__(real *xlon, real *ylat, real *x, real *y);
extern int mpipt2__(real *x, real *y, real *xlon, real *ylat);
extern int mpfcyl__(real *xlon, real *ylat, real *x, real *y);
extern int mpicyl__(real *x, real *y, real *xlon, real *ylat);
extern int mpfglb__(real *xlon, real *ylat, real *x, real *y);
extern int mpiglb__(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 mpfrbs__(real *xlon, real *ylat, real *x, real *y);
extern int mpirbs__(real *x, real *y, real *xlon, real *ylat);
extern void osgenv__(char *cename, char *ceval, integer Lename, integer Leval);
extern int osgarg__(integer *n, char *char__, ftnlen char_len);
extern int osqarn__(integer *n);
extern void osexec__(char *cmd, integer Lcmd);
extern void osabrt__(void);
extern int vicon1__(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int vifct0__(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int vifct1__(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, integer *ii);
extern int iset1__(integer *ix, integer *n, integer *jx, integer *ii);
extern int imlt0__(integer *ix, integer *n, integer *jx, integer *ii);
extern int iset0__(integer *ix, integer *n, integer *jx, integer *ii);
extern int imlt__(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 vicon__(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 viinc__(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, 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 iadd__(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 vifct__(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, integer *ii);
extern int iset__(integer *ix, integer *n, integer *jx, integer *ii);
extern int iadd0__(integer *ix, integer *n, integer *jx, integer *ii);
extern int imlt1__(integer *ix, integer *n, integer *jx, integer *ii);
extern int imin1__(integer *ix, integer *n, integer *jx);
extern int isum0__(integer *ix, integer *n, integer *jx);
extern int imin0__(integer *ix, integer *n, integer *jx);
extern int isum1__(integer *ix, integer *n, integer *jx);
extern int imax1__(integer *ix, integer *n, integer *jx);
extern int isum__(integer *ix, integer *n, integer *jx);
extern int imax__(integer *ix, integer *n, integer *jx);
extern int imax0__(integer *ix, integer *n, integer *jx);
extern int imin__(integer *ix, integer *n, integer *jx);
extern logical lfromc__(char *cx, ftnlen cx_len);
extern int jfromc__(char *cx, ftnlen cx_len);
extern int ifromc__(char *cx, ftnlen cx_len);
extern int ct2ch__(real *x, real *y, real *u, real *v);
extern int cr3c__(real *theta, real *phi, real *psi, real *x0, real * y0, real *z0, real *x1, real *y1, real *z1);
extern int ct2pc__(real *r__, real *theta, real *x, real *y);
extern int ct2hc__(real *u, real *v, real *x, real *y);
extern int cr2c__(real *theta, real *x0, real *y0, real *x1, real * y1);
extern int ct3cs__(real *x, real *y, real *z__, real *r__, real * theta, real *phi);
extern int ct2cp__(real *x, real *y, real *r__, real *theta);
extern int ct3sc__(real *r__, real *theta, real *phi, real *x, real * y, real *z__);
extern int ct2bc__(real *u, real *v, real *x, real *y);
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 irlt__(real *rx);
extern int irge__(real *rx);
extern int irle__(real *rx);
extern int irgt__(real *rx);
extern int visub__(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 vidiv1__(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 vimlt0__(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 vimlt1__(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
extern int visub1__(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 vidiv__(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 viadd1__(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz);
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 logical lg2inq__(real *cx, real *cy, real *cx00, real *cx10, real *cx01, real * cx11, real *cy00, real *cy10, real *cy01, real *cy11);
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 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 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 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 glqfnm__(char *cpara, char *cfname, ftnlen cpara_len,  ftnlen cfname_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 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 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 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 int mszdmp__(char *cmsg, integer *iunit, integer *lnsize,  ftnlen cmsg_len);
extern int msgdmp__(char *, char *, char *, ftnlen, ftnlen, ftnlen);
extern int iufopn__(void);
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 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 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 cfsrch__(char *cplist, integer *np, char *cflist, integer  *nf, char *cfname, ftnlen cplist_len, ftnlen cflist_len, ftnlen  cfname_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 logical lchreq__(char *ch1, char *ch2, ftnlen ch1_len, ftnlen ch2_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 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 dxfloc__(integer *nd, integer *ns, integer *np, integer * ncp);
extern int dxiloc__(integer *nd, integer *ns, integer *np, integer * ncp);
extern int vrgnn__(real *rx, integer *n, integer *jx);
extern int vignn__(integer *ix, integer *n, integer *jx);
extern int vrmlt0__(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vrdiv0__(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz);
extern int vradd0__(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 vrsub1__(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 vrsub0__(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 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 vrmlt__(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz);
extern int imod__(integer *ix, integer *id);
extern int igus__(real *rx);
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 int gnsave__(void);
extern int gnrset__(void);
extern int passb4__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int passb5__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
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 radf2__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int passb2__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int cfftb__(integer *n, real *c__, real *wsave);
extern int sint1__(integer *n, real *war, real *was, real *xh, real * x, integer *ifac);
extern int sint__(integer *n, real *x, real *wsave);
extern int passf4__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int rfftf__(integer *n, real *r__, real *wsave);
extern int radb3__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int ezfft1__(integer *n, real *wa, integer *ifac);
extern int sinqi__(integer *n, 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 cffti__(integer *n, real *wsave);
extern int radb5__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int passb3__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int cfftf__(integer *n, real *c__, real *wsave);
extern int cfftb1__(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int radb4__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3);
extern int passf5__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int passf3__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
extern int ezffti__(integer *n, real *wsave);
extern int cosqb1__(integer *n, real *x, real *w, real *xh);
extern int rfftb1__(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int radb2__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int rfftb__(integer *n, real *r__, 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 radbg__(integer *ido, integer *ip, integer *l1, integer * idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
extern int cost__(integer *n, real *x, real *wsave);
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 radf3__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2);
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 cosqf1__(integer *n, real *x, real *w, real *xh);
extern int cffti1__(integer *n, real *wa, integer *ifac);
extern int ezfftb__(integer *n, real *r__, real *azero, real *a,  real *b, real *wsave);
extern int passf2__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1);
extern int cosqb__(integer *n, real *x, real *wsave);
extern int sinqf__(integer *n, real *x, real *wsave);
extern int radf5__(integer *ido, integer *l1, real *cc, real *ch,  real *wa1, real *wa2, real *wa3, real *wa4);
extern int rffti__(integer *n, real *wsave);
extern int rfftf1__(integer *n, real *c__, real *ch, real *wa,  integer *ifac);
extern int cosqi__(integer *n, real *wsave);
extern int sinti__(integer *n, real *wsave);
extern int cosqf__(integer *n, real *x, real *wsave);
extern int sinqb__(integer *n, real *x, real *wsave);
extern int rffti1__(integer *n, real *wa, integer *ifac);
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 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 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 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 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 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 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 shfw2g__(integer *mm, integer *jm, integer *im, real *w,  real *g, real *h__, real *wfft);
extern int shinip__(integer *mm, integer *jm, real *ys, real *yc,  real *py);
extern int shinif__(integer *nfft, 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 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 shiniz__(integer *jm, real *x, real *y, real *z__);
extern int shly2x__(integer *jm, integer *m, integer *isw, real *wm,  real *wx, real *wy, real *z__);
extern int shpfun__(integer *mm, integer *jm, integer *m, real *fun,  real *pm, real *ys, real *yc, real *py, real *r__);
extern int shinic__(integer *mm, integer *jm, real *xw, real *px);
extern int shlfwl__(integer *mm, integer *jm, integer *n, integer *m, real *wx, real *sd, real *pm);
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 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 shlsds__(integer *mm, integer *m, integer *isw, real *sd,  real *sm, real *r__);
extern int shinix__(integer *jm, real *x, real *xs, real *xc, real * xw);
extern int shmdxm__(integer *jm, real *wr, real *wi);
extern int shfwga__(integer *mm, integer *jm, integer *im, integer * m1, integer *m2, real *w, real *g, real *h__, real *wfft);
extern int shmsri__(integer *mm, integer *m, real *sr, real *si);
extern int shfwgz__(integer *jm, integer *im, real *wz, real *g);
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 shfftb__(integer *nfft, real *xfft, real *wfft);
extern int shlbwl__(integer *mm, integer *m, real *sd, real *ws,  real *wa, real *pmj);
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 shinir__(integer *mm, real *r__);
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 shppma__(integer *mm, integer *jm, integer *m, real *pm,  real *ys, real *py, real *r__);
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 shfwgj__(integer *mm, integer *im, integer *m1, integer * m2, real *wj, real *gj, real *h__, real *wfft);
extern int shmdxj__(real *wrd, real *wid);
extern int sholap__(integer *mm, integer *ind, real *a, real *b);
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 shfg2w__(integer *mm, integer *jm, integer *im, real *g,  real *w, real *h__, real *wfft);
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 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 shfftf__(integer *nfft, real *xfft, real *wfft);
extern int shlssd__(integer *mm, integer *m, integer *isw, real *sm,  real *sd, real *r__);
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 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 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 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 shiniy__(integer *jm, real *y, real *ys, real *yc);
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 shppmj__(integer *mm, integer *jm, integer *m, integer *j, real *pmj, real *ys, real *py, real *r__);
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 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 vrintr__(real *rx, integer *n, integer *jx);
extern int chngr__(char *ch, char *ca, real *rr, char *cfmt, ftnlen  ch_len, ftnlen ca_len, ftnlen cfmt_len);
extern int chngi__(char *ch, char *ca, integer *ii, 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 void dateq3__(integer *iy, integer *im, integer *id);
extern int date12__(integer *idate, integer *iy, integer *itd);
extern int dateg3__(integer *n, integer *iy, integer *im, integer * id, integer *ny, integer *nm, integer *nd);
extern int iweek1__(integer *idate);
extern int ndate1__(integer *idate, integer *ndate);
extern int dateq1__(integer *idate);
extern int date32__(integer *iy, integer *im, integer *id, integer * itd);
extern int ndate3__(integer *iy, integer *im, integer *id, integer *ny, integer * nm, integer *nd);
extern int datec3__(char *cform, integer *iy, integer *im, integer * id, ftnlen cform_len);
extern int date23__(integer *iy, integer *im, integer *id, integer * itd);
extern int datef2__(integer *n, integer *iy, integer *itd, integer * ny, integer *ntd);
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 int dateg2__(integer *n, integer *iy, integer *itd, integer * ny, integer *ntd);
extern int date13__(integer *idate, integer *iy, integer *im,  integer *id);
extern int dateg1__(integer *n, integer *idate, integer *ndate);
extern int ndyear__(integer *iy);
extern int date21__(integer *idate, integer *iy, integer *itd);
extern int cmon__(char *ret_val, ftnlen ret_val_len, integer *im);
extern int ndmon__(integer *iy, integer *im);
extern int date31__(integer *idate, integer *iy, integer *im,  integer *id);
extern int datec2__(char *cform, integer *iy, integer *itd, ftnlen  cform_len);
extern int iweek2__(integer *iy, integer *itd);
extern int dateq2__(integer *iy, integer *itd);
extern int cweek__(char *ret_val, ftnlen ret_val_len, integer *iw);
extern int iweek3__(integer *iy, integer *im, integer *id);
extern int ndate2__(integer *iy, integer *itd, integer *ny, integer *ntd);
extern int datef1__(integer *n, integer *idate, integer *ndate);
extern int clower__(char *ch, ftnlen ch_len);
extern int cupper__(char *ch, ftnlen ch_len);
extern int iand__(integer *i, integer *j);
extern int gbytes__(integer *npack, integer *isam, integer *ibit,  integer *nbits, integer *nskip, integer *iter);
extern int bitpci__(char *cp, integer *ip, ftnlen cp_len);
extern int sbyte__(integer *npack, integer *iout, integer *ibit,  integer *nbits);
extern int gbyte__(integer *npack, integer *iout, integer *ibit,  integer *nbits);
extern int ior__(integer *i, integer *j);
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 int ishift__(integer *i, integer *nshift);
extern void dclvnm__(char *cvname, integer Lvname);
extern int cdblk__(char *chr, ftnlen chr_len);
extern int cns__(char *ret_val, ftnlen ret_val_len, integer *ins);
extern real rngu0__(integer *iseed);
extern logical lchra__(char *ch, ftnlen ch_len);
extern logical lchrb__(char *ch, ftnlen ch_len);
extern logical lchrs__(char *ch, ftnlen ch_len);
extern logical lchrc__(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 lchrf__(char *ch, ftnlen ch_len);
extern logical lchrl__(char *ch, ftnlen ch_len);
extern int cllsrg__(real *h__, real *l, real *s, integer *r__,  integer *g, integer *b, integer *n, integer *m);
extern int clrgls__(integer *r__, integer *g, integer *b, real *h__,  real *l, real *s, integer *n, integer *m);
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 rnorml__(real *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 hexdic__(integer *ip, char *cp, ftnlen cp_len);
extern int hexdci__(char *cp, integer *ip, ftnlen cp_len);
extern int time12__(integer *itime, integer *itt);
extern void timeq3__(integer *ih, integer *im, integer *is);
extern int time32__(integer *ih, integer *im, integer *is, integer * itt);
extern int time23__(integer *ih, integer *im, integer *is, integer * itt);
extern int timec1__(char *cform, integer *itime, ftnlen cform_len);
extern int time31__(integer *itime, integer *ih, integer *im,  integer *is);
extern int timeq2__(integer *itt);
extern int timec2__(char *cform, integer *itt, ftnlen cform_len);
extern int timec3__(char *cform, integer *ih, integer *im, integer * is, ftnlen cform_len);
extern int timeq1__(integer *itime);
extern int time21__(integer *itime, integer *itt);
extern int time13__(integer *itime, integer *ih, integer *im,  integer *is);
extern int chval__(char *cfmt, real *val, char *cval, ftnlen  cfmt_len, ftnlen cval_len);
// extern int tmiget__(char *cp, integer *ipara, ftnlen cp_len);
//extern int tmiset__(char *cp, integer *ipara, ftnlen cp_len);
//extern int tmistx__(char *cp, integer *ipara, ftnlen cp_len);
//extern int tmstls__(real *l, real *t, real *u, real *v, integer *nx,  integer *ny);
//extern int tmstlc__(real *x, real *y, real *u, real *v, integer *nx,  integer *ny);
//extern int tmpget__(char *cp, integer *ipara, ftnlen cp_len);
//extern int tmpset__(char *cp, integer *ipara, ftnlen cp_len);
//extern int tmpstx__(char *cp, integer *ipara, ftnlen cp_len);
//extern int tmstln__(real *x, real *y, real *u, real *v, integer *nx,  integer *ny, real *trx, real *try__, integer *nm);
//extern int tmrget__(char *cp, real *rpara, ftnlen cp_len);
//extern int tmrset__(char *cp, real *rpara, ftnlen cp_len);
//extern int tmrstx__(char *cp, real *rpara, ftnlen cp_len);
//extern int tmslcl__(real *ini_x__, real *ini_y__, integer *nx,  integer *ny, real *x, real *y, real *u, real *v, real *trajx, real * trajy, integer *trajn, integer *grid_flag__);
//extern int tmlget__(char *cp, logical *lpara, ftnlen cp_len);
//extern int tmlset__(char *cp, logical *lpara, ftnlen cp_len);
//extern int tmlstx__(char *cp, logical *lpara, ftnlen cp_len);
//extern int tmstla__(real *r__, real *t, real *u, real *v, integer *nx, integer *ny);
extern real rave__(real *rx, integer *n, integer *jx);
extern real rave0__(real *rx, integer *n, integer *jx);
extern real rave1__(real *rx, integer *n, integer *jx);
extern real rmin1__(real *rx, integer *n, integer *jx);
extern real rmin0__(real *rx, integer *n, integer *jx);
extern real rmin__(real *rx, integer *n, integer *jx);
extern real rmax1__(real *rx, integer *n, integer *jx);
extern real rmax__(real *rx, integer *n, integer *jx);
extern real rmax0__(real *rx, integer *n, integer *jx);
extern real rstd0__(real *, integer *, integer *);
extern real rstd1__(real *, integer *, integer *);
extern real ramp0__(real *, integer *, integer *);
extern real ramp1__(real *,integer *, integer *);
extern real rsum0__(real *, integer *, integer *);
extern real rsum1__(real *, integer *, integer *);
extern int g2fctr__(real *ux, real *uy, real *cx, real *cy);
//, logical *lini, real *cxmine, real *cxmaxe, real *cymine, real *	cymaxe, integer *nx, integer *ny, real *uxa, real *uya, real *cxa, 	real *cya);
extern int uwsgxa__(real *xp, integer *nx);
extern int uwqgyi__(real *, integer *, real *);
extern real rvmin__(real *rx, integer *ns, integer *np, integer *nq, integer *nd);
extern real rfromc__(char *cx, ftnlen cx_len);
extern int uwqgya__(real *yp, integer *ny);
extern int uwigyi__();
extern int uwigxi__();
extern int g2ictr__(real *cx, real *cy, real *ux, real *uy);
extern int uwqgxb__(real *uxmin, real *uxmax, integer *nx);
extern real rstd__(real *rx, integer *n, integer *jx);
extern int uwqgyb__(real *uymin, real *uymax, integer *ny);
extern int uwsgyb__(real *uymin, real *uymax, integer *ny);
extern real rd2r__(real *x);
extern real ruwgy__(integer *iy);
extern real rvmax0__(real *rx, integer *ns, integer *np, integer *nq, integer *nd);
extern real rrms1__(real *rx, integer *n, integer *jx);
extern real rvmin0__(real *rx, integer *ns, integer *np, integer *nq, integer *nd);
extern real rngu1__(integer *iseed);
extern int uwsgxz__(logical *lsetx);
extern int g2qctm__(real *cxmine, real *cxmaxe, real *cymine, real *cymaxe);
extern real rprd__(real *rx, real *ry, integer *n, integer *jx, integer *jy);
extern real rcov__(real *rx, real *ry, integer *n, integer *jx, integer *jy);
extern real rmod__(real *rx, real *rd);
extern real rfpi__();
extern real ramp__(real *rx, integer *n, integer *jx);
extern real rsum__(real *rx, integer *n, integer *jx);
extern int g2sctr__(integer *nx, integer *ny, real *uxa, real *uya, real *cxa, real *cya);
extern real rvar1__(real *rx, integer *n, integer *jx);
extern real rvar0__(real *rx, integer *n, integer *jx);
extern int isgc__(char *ch, ftnlen ch_len);
extern int uwsgya__(real *yp, integer *ny);
extern real rgnlt__(real *rx);
extern int uwsgxb__(real *uxmin, real *uxmax, integer *nx);
extern real rvmax1__(real *rx, integer *ns, integer *np, integer *nq, integer *nd);
extern real rvmin1__(real *rx, integer *ns, integer *np, integer *nq, integer *nd);
extern int uwqgyz__(logical *lsety);
extern int uwqgxi__(real *, integer *, real *);
extern real rngu2__(integer *iseed);
extern real rgnge__(real *rx);
extern real rvar__(real *rx, integer *n, integer *jx);
extern int uwqgxa__(real *xp, integer *nx);
extern int g2qcti__(logical *lini);
extern real rcor__(real *rx, real *ry, integer *n, integer *jx, integer *jy);
extern real rvmax__(real *rx, integer *ns, integer *np, integer *nq, integer *nd);
extern int uwqgxz__(logical *lsetx);
extern real ruwgx__(integer *ix);
extern real rrms0__(real *rx, integer *n, integer *jx);
extern int uwsgyz__(logical *lsety);






























/*

extern int odrkdv__(integer *n, S_fp steper, U_fp fcn, real *t, real  *tend, real *dt, real *x, real *work);
extern int odrkdu__(integer *n, S_fp algr, S_fp fcn, real *t, real * tend, integer *istep, real *x, real *work);
extern int odrk4s__(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odrk4__(integer *n, S_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);

extern int vrfna1__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, R_fp rfna);
extern int vrfna__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, R_fp rfna);
extern int vrfna0__(real *rx, real *ry, integer *n, integer *jx,  integer *jy, R_fp rfna);
extern int mpznwt__(S_fp func, real *phi, real *alpha);
extern int mpnwtn__(real *x, real *y, real *xlon, real *ylat, S_fp  func, logical *xcyc);
extern int vifnb1__(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz, I_fp ifnb);
extern int vifnb__(integer *ix, integer *iy, integer *iz, integer *n, integer *jx, integer *jy, integer *jz, U_fp ifnb);
extern int vifnb0__(integer *ix, integer *iy, integer *iz, integer * n, integer *jx, integer *jy, integer *jz, I_fp ifnb);
extern int vrfnb0__(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz, R_fp rfnb);
extern int vrfnb1__(real *rx, real *ry, real *rz, integer *n,  integer *jx, integer *jy, integer *jz, R_fp rfnb);
extern int vrfnb__(real *rx, real *ry, real *rz, integer *n, integer  *jx, integer *jy, integer *jz, R_fp rfnb);
extern int odrkgs__(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 odrk4r__(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odrkg__(integer *n, S_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);
extern int odrkgr__(integer *n, S_fp fcn, real *t, real *dt, real * epsl, real *x, real *work);
extern int odrk2__(integer *n, S_fp fcn, real *t, real *dt, real *x,  real *dx, real *xout, real *work);

extern int vifna__(integer *ix, integer *iy, integer *n, integer *jx, integer *jy, U_fp ifna);
extern int vifna0__(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, I_fp ifna);
extern int vifna1__(integer *ix, integer *iy, integer *n, integer * jx, integer *jy, I_fp ifna);

extern int umbndr__(S_fp func, S_fp ftr, real *xmin, real *xmax,  real *ymin, real *ymax);





extern int vcintr__(complex *cx, integer *n, integer *jx);


*/
