#define VOID void
typedef int integer;
typedef unsigned long uinteger;
typedef char *address;
typedef short int shortint;
typedef float real;
typedef double doublereal;
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;
typedef int ftnlen;
typedef int flag;
typedef int ftnlen;
typedef int ftnint;

extern int uestln__(real *, integer *, integer *);

extern int szpipz__(real *, real *, real *, real *,  integer *);
extern int szgipz__(real *, real *, real *, real *,  integer *);
extern int szplop__(integer *, integer *);
extern int szplcl__(void);
extern int szsgcl__(real *, real *, real *, real *);
extern int szqgcy__(real *, real *);
extern int szqgcx__(real *, real *);
extern int sztxno__(char *, char *, logical *,  ftnlen chars_len, ftnlen charz_len);
extern int szlnzr__(real *, real *, real *, real *);
extern int szoplr__(void);
extern int szmvlr__(real *, real *);
extern int szpllr__(real *, real *);
extern int szcllr__(void);
extern int sztnzr__(integer *, real *, real *);
extern int szpcll__(real *, real *, real *, real *,  logical *, integer *);
extern int szgcll__(real *, real *, logical *, logical *, integer *);
extern int szscll__(real *, real *, real *, real *, integer *);
extern int szqcll__(real *, real *, real *, real *, integer *);
extern int szm3zu__(integer *, real *, real *, real *);
extern int szlnzu__(real *, real *, real *, real *);
extern int szqtxw__(char *, integer *, real *, real *, ftnlen chars_len);
extern int sztnsv__(integer *, real *, real *, integer *, real *, integer *, integer *);
extern int szt3zv__(real *, real *, real *);
extern int szplzr__(integer *, real *, real *);
extern int szpclx__(real *, real *, real *, real *,  logical *, logical *);
extern int szgclx__(real *, real *, logical *, logical *);
extern int szsclx__(real *, real *);
extern int szqclx__(real *, real *);
extern int szplzu__(integer *, real *, real *);
extern int sztnzv__(integer *, real *, real *);
extern int szl3op__(integer *);
extern int szl3cl__(void);
extern int szoplu__(void);
extern int szmvlu__(real *, real *);
extern int szpllu__(real *, real *);
extern int szcllu__(void);
extern int szpipl__(real *, real *, real *, real *, integer *);
extern int szgipl__(real *, real *, logical *);
extern int szoplv__(void);
extern int szmvlv__(real *, real *);
extern int szpllv__(real *, real *);
extern int szcllv__(void);
extern int szoplc__(void);
extern int szmvlc__(real *, real *);
extern int szpllc__(real *, real *);
extern int szcllc__(void);
extern int szschz__(char *, real *, ftnlen ch_len);
extern int szqchz__(char *, real *, ftnlen ch_len);
extern int szcrst__(void);
extern int szopsv__(void);
extern int szmvsv__(real *, real *);
extern int szplsv__(real *, real *);
extern int szclsv__(void);
extern int sztnop__(integer *);
extern int sztncl__(void);
extern int szpmzv__(integer *, real *, real *);
extern int szt3zu__(real *, real *, real *);
extern int szoptt__(void);
extern int szsttt__(real *, real *);
extern int szcltt__(void);
extern int sztxzu__(real *, real *, char *, ftnlen  chars_len);
extern int szsidx__(integer *);
extern int szqidx__(integer *);
extern int sztnzu__(integer *, real *, real *);
extern int szstni__(integer *);
extern int szqtni__(integer *);
extern int szlazu__(real *, real *, real *, real *);
extern int szlazr__(real *, real *, real *, real *);
extern int szt3op__(integer *, integer *);
extern int szt3cl__(void);
extern int szopts__(void);
extern int szstts__(real *, real *);
extern int szclts__(void);
extern int sztits__(integer *);
extern int szpmop__(integer *, integer *, real *);
extern int szpmcl__(void);
extern int szl3zv__(integer *, real *, real *, real *);
extern int sztxop__(real *, integer *, integer *,  integer *);
extern int sztxcl__(void);
extern int szpmzu__(integer *, real *, real *);
extern int sztxzr__(real *, real *, char *, ftnlen  chars_len);
extern int szstyp__(integer *);
extern int szqtyp__(integer *);
extern int szoptp__(void);
extern int szsttp__(real *, real *);
extern int szcltp__(void);
extern int szstmd__(logical *);
extern int szqtmd__(logical *);
extern int szoptu__(void);
extern int szsttu__(real *, real *);
extern int szcltu__(void);
extern int szslti__(integer *, integer *);
extern int sztxzv__(real *, real *, char *, ftnlen  chars_len);
extern int szoptr__(void);
extern int szsttr__(real *, real *);
extern int szcltr__(void);
extern int szpipt__(real *, real *, real *, real *,  integer *);
extern int szgipt__(real *, real *, logical *);
extern int szpmzr__(integer *, real *, real *);
extern int szopld__(void);
extern int szmvld__(real *, real *);
extern int szplld__(real *, real *);
extern int szclld__(void);
extern int szstyz__(integer *);
extern int szqtyz__(integer *);
extern int szlnzv__(real *, real *, real *, real *);
extern int szfint__(integer *);
extern int szqfnt__(integer *, char *, char *, ftnlen  clx_len, ftnlen cly_len);
extern int szqfnw__(real *, real *);
extern int szoplt__(void);
extern int szmvlt__(real *, real *);
extern int szpllt__(real *, real *);
extern int szcllt__(void);
extern int szm3op__(integer *, integer *, real *);
extern int szm3cl__(void);
extern int szlaop__(integer *, integer *);
extern int szlacl__(void);
extern int szlnop__(integer *);
extern int szlncl__(void);
extern int szopl3__(void);
extern int szmvl3__(real *, real *, real *);
extern int szpll3__(real *, real *, real *);
extern int szcll3__(void);
extern int szoptz__(void);
extern int szsttz__(real *, real *);
extern int szcltz__(void);
extern int sztitz__(integer *);
extern int szl3zu__(integer *, real *, real *, real *);
extern int szoplz__(void);
extern int szmvlz__(real *, real *);
extern int szpllz__(real *, real *);
extern int szcllz__(void);
extern int szm3zv__(integer *, real *, real *, real *);
extern int szpcly__(real *, real *, real *, real *,  logical *, logical *);
extern int szgcly__(real *, real *, logical *);
extern int szscly__(real *, real *);
extern int szqcly__(real *, real *);
extern int szoplp__(void);
extern int szmvlp__(real *, real *);
extern int szpllp__(real *, real *);
extern int szcllp__(void);
extern int szfont__(integer *, integer *, integer *,  char *, char *, integer *, ftnlen ckx_len, ftnlen cky_len);
extern int szlazv__(real *, real *, real *, real *);
extern int sztxwv__(real *, real *, char *, ftnlen  chars_len);
extern int szcltn__(integer *, integer *);
extern int szplzv__(integer *, real *, real *);
extern int szoptv__(void);
extern int szsttv__(real *, real *);
extern int szcltv__(void);
extern int stfrot__(real *, real *, real *, real *);
extern int stirot__(real *, real *, real *, real *);
extern int stsrot__(real *, real *, real *);
extern int stftrn__(real *, real *, real *, real *);
extern int stitrn__(real *, real *, real *, real *);
extern int ststri__(integer *);
extern int ststrp__(real *, real *, real *, real *);
extern int stfpr3__(real *, real *, real *, real *, real *);
extern int stspr3__(real *, real *, real *, real *,  real *, real *, real *, real *, real *, real *);
extern int stfpr2__(real *, real *, real *, real *);
extern int stipr2__(real *, real *, real *, real *);
extern int stspr2__(integer *, integer *, real *);
extern int stepr2__(void);
extern int strpr2__(void);
extern int stftrf__(real *, real *, real *, real *);
extern int stitrf__(real *, real *, real *, real *);
extern int stqtrf__(logical *);
extern int ststrf__(logical *);
extern int ststrn__(integer *, real *, real *, real *,  real *);
extern int stfrad__(real *, real *, real *, real *);
extern int stirad__(real *, real *, real *, real *);
extern int stsrad__(logical *, logical *);
extern int stftr3__(real *, real *, real *, real *, real *, real *);
extern int ststr3__(integer *, real *, real *, real *,  real *, real *, real *);
extern int stsrd3__(logical *, logical *, logical *);
extern int stslg3__(logical *, logical *, logical *);
extern int stfusr__(real *, real *, real *, real *);
extern int stiusr__(real *, real *, real *, real *);
extern int stsusr__(void);
extern int stnusr__(integer *);
extern int stcusr__(integer *, char *, ftnlen cttl_len);
extern int stfwtr__(real *, real *, real *, real *);
extern int stiwtr__(real *, real *, real *, real *);
extern int stswtr__(real *, real *, real *, real *, real *, real *, real *, real *, integer *);
extern int stqwtr__(real *, real *, real *, real *, real *, real *, real *, real *, integer *);
extern int stswrc__(real *, real *, real *, real *);
extern int stqwrc__(real *, real *, real *, real *);
extern int slpage__(integer *, integer *, integer *);
extern int slpwvr__(integer *);
extern int slzttl__(char *, char *, real *, real *,  real *, integer *, ftnlen cside_len, ftnlen cttl_len);
extern int slrat__(real *, real *);
extern int slqrct__(integer *, integer *, real *, real *, real *, real *);
extern int slpwwr__(integer *);
extern int slpwwc__(integer *, real *);
extern int sldiv__(char *, integer *, integer *, ftnlen  cform_len);
extern int slsttl__(char *, char *, real *, real *,  real *, integer *, ftnlen cttl_len, ftnlen cside_len);
extern int sldttl__(integer *);
extern int slpttl__(void);
extern int sldivz__(real *, real *, real *, real *, char *, integer *, integer *, real *, real *, real *, real *, ftnlen cform_len);
extern int slratz__(real *, real *, real *, real *, real *, real *);
extern int slpwvc__(integer *, real *);
extern int slqsiz__(char *, real *, real *, ftnlen  csize_len);
extern int slpvpr__(integer *);
extern int slinit__(real *, real *, real *);
extern int slsize__(char *, ftnlen cszez_len);
extern int slform__(real *, real *);
extern int slpcnr__(void);
extern int slpvpc__(integer *, real *);
extern int slmgn__(real *, real *, real *, real *);
extern int slmgnz__(real *, real *, real *, real *, real *, real *, real *, real *);
extern int sltlcv__(char *, char *, integer *, ftnlen  ctlin_len, ftnlen ctlout_len);
extern int sctnzu__(real *, real *, real *, integer *, integer *);
extern int sctnu__(real *, real *, real *);
extern int sctnv__(real *, real *, real *);
extern int scstnp__(integer *, integer *);
extern int scqtnp__(integer *, integer *);
extern int scplzu__(integer *, real *, real *, real *,  integer *);
extern int scswnd__(real *, real *, real *, real *, real *, real *);
extern int scqwnd__(real *, real *, real *, real *, real *, real *);
extern int scspln__(integer *, integer *, real *);
extern int scqpln__(integer *, integer *, real *);
extern int scslog__(logical *, logical *, logical *);
extern int scqlog__(logical *, logical *, logical *);
extern int scplu__(integer *, real *, real *, real *);
extern int scplv__(integer *, real *, real *, real *);
extern int scspli__(integer *);
extern int scqpli__(integer *);
extern int sctnzv__(real *, real *, real *, integer *, integer *);
extern int scplzv__(integer *, real *, real *, real *,  integer *);
extern int scsorg__(real *, real *, real *, real *);
extern int scqorg__(real *, real *, real *, real *);
extern int scseye__(real *, real *, real *);
extern int scqeye__(real *, real *, real *);
extern int scsprj__(void);
extern int scpmu__(integer *, real *, real *, real *);
extern int scpmv__(integer *, real *, real *, real *);
extern int scspmt__(integer *);
extern int scqpmt__(integer *);
extern int scspmi__(integer *);
extern int scqpmi__(integer *);
extern int scspms__(real *);
extern int scqpms__(real *);
extern int scpmzu__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int scstrf__(void);
extern int scsobj__(real *, real *, real *);
extern int scqobj__(real *, real *, real *);
extern int scstrn__(integer *);
extern int scqtrn__(integer *);
extern int scpmzv__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int scsvpt__(real *, real *, real *, real *, real *, real *);
extern int scqvpt__(real *, real *, real *, real *, real *, real *);
extern int sgrget__(char *, real *, ftnlen cp_len);
extern int sgrset__(char *, real *, ftnlen cp_len);
extern int sgrstx__(char *, real *, ftnlen cp_len);
extern int sgpmzr__(integer *, real *, real *, integer *, integer *, real *);
extern int sgpmzu__(integer *, real *, real *, integer *, integer *, real *);
extern int sgtxxr__(real *, real *, char *, real *,  integer *, integer *, integer *, integer *,  ftnlen chars_len);
extern int sglaxr__(real *, real *, real *, real *,  integer *, integer *, integer *);
extern int sgstxy__(real *, real *, real *, real *);
extern int sgqtxy__(real *, real *, real *, real *);
extern int sgtxzu__(real *, real *, char *, real *,  integer *, integer *, integer *, ftnlen chars_len);
extern int sglnzv__(real *, real *, real *, real *,  integer *);
extern int sgtnxv__(integer *, real *, real *, integer *, integer *);
extern int sgpmxv__(integer *, real *, real *, integer *, integer *, integer *, real *);
extern int sgswnd__(real *, real *, real *, real *);
extern int sgqwnd__(real *, real *, real *, real *);
extern int sgstrf__(void);
extern int sgpget__(char *, integer *, ftnlen cp_len);
extern int sgpset__(char *, integer *, ftnlen cp_len);
extern int sgpstx__(char *, integer *, ftnlen cp_len);
extern int sgtxxv__(real *, real *, char *, real *,  integer *, integer *, integer *, integer *,  ftnlen chars_len);
extern int sglqnp__(integer *);
extern int sglqid__(char *, integer *, ftnlen cp_len);
extern int sglqcp__(integer *, char *, ftnlen cp_len);
extern int sglqcl__(integer *, char *, ftnlen cp_len);
extern int sglqvl__(integer *, logical *);
extern int sglsvl__(integer *, logical *);
extern int sglqin__(char *, integer *, ftnlen cp_len);
extern int sgpmzv__(integer *, real *, real *, integer *, integer *, real *);
extern int sglaxv__(real *, real *, real *, real *,  integer *, integer *, integer *);
extern int sglau__(real *, real *, real *, real *);
extern int sglav__(real *, real *, real *, real *);
extern int sglar__(real *, real *, real *, real *);
extern int sgslat__(integer *);
extern int sgqlat__(integer *);
extern int sgslai__(integer *);
extern int sgqlai__(integer *);
extern int sgscwd__(real *, real *, real *, real *);
extern int sgqcwd__(real *, real *, real *, real *);
extern int sgpfln__(void);
extern int sgtnzr__(integer *, real *, real *, integer *);
extern int sgplu__(integer *, real *, real *);
extern int sgplv__(integer *, real *, real *);
extern int sgplr__(integer *, real *, real *);
extern int sgsplt__(integer *);
extern int sgqplt__(integer *);
extern int sgspli__(integer *);
extern int sgqpli__(integer *);
extern int sglnzu__(real *, real *, real *, real *,  integer *);
extern int sglget__(char *, logical *, ftnlen cp_len);
extern int sglset__(char *, logical *, ftnlen cp_len);
extern int sglstx__(char *, logical *, ftnlen cp_len);
extern int sgsvpt__(real *, real *, real *, real *);
extern int sgqvpt__(real *, real *, real *, real *);
extern int sgplzr__(integer *, real *, real *, integer *, integer *);
extern int sglazv__(real *, real *, real *, real *,  integer *, integer *);
extern int sglaxu__(real *, real *, real *, real *,  integer *, integer *, integer *);
extern int sgtxxu__(real *, real *, char *, real *,  integer *, integer *, integer *, integer *,  ftnlen chars_len);
extern int sgtnzu__(integer *, real *, real *, integer *);
extern int sgtxu__(real *, real *, char *, ftnlen chars_len);
extern int sgtxv__(real *, real *, char *, ftnlen chars_len);
extern int sgtxr__(real *, real *, char *, ftnlen chars_len);
extern int sgstxs__(real *);
extern int sgqtxs__(real *);
extern int sgstxr__(integer *);
extern int sgqtxr__(integer *);
extern int sgstxc__(integer *);
extern int sgqtxc__(integer *);
extern int sgstxi__(integer *);
extern int sgqtxi__(integer *);
extern int sglnxu__(real *, real *, real *, real *,  integer *, integer *);
extern int sgplxv__(integer *, real *, real *, integer *, integer *, integer *);
extern int sgtxzv__(real *, real *, char *, real *,  integer *, integer *, integer *, ftnlen chars_len);
extern int sglnxr__(real *, real *, real *, real *,  integer *, integer *);
extern int sgpwsn__(void);
extern int sgplxr__(integer *, real *, real *, integer *, integer *, integer *);
extern int sgstrn__(integer *);
extern int sgqtrn__(integer *);
extern int sgsplc__(char *, ftnlen charx_len);
extern int sgqplc__(char *, ftnlen charx_len);
extern int sgspls__(real *);
extern int sgqpls__(real *);
extern int sgnplc__(void);
extern int sgiget__(char *, integer *, ftnlen cp_len);
extern int sgiset__(char *, integer *, ftnlen cp_len);
extern int sgistx__(char *, integer *, ftnlen cp_len);
extern int sgtxzr__(real *, real *, char *, real *,  integer *, integer *, integer *, ftnlen chars_len);
extern int sglnzr__(real *, real *, real *, real *,  integer *);
extern int sgpmxu__(integer *, real *, real *, integer *, integer *, integer *, real *);
extern int isgtrc__(char *, ftnlen ctr_len);
extern int sgpmu__(integer *, real *, real *);
extern int sgpmv__(integer *, real *, real *);
extern int sgpmr__(integer *, real *, real *);
extern int sgspmt__(integer *);
extern int sgqpmt__(integer *);
extern int sgspmi__(integer *);
extern int sgqpmi__(integer *);
extern int sgspms__(real *);
extern int sgqpms__(real *);
extern int sglazr__(real *, real *, real *, real *,  integer *, integer *);
extern int sgtnu__(integer *, real *, real *);
extern int sgtnv__(integer *, real *, real *);
extern int sgtnr__(integer *, real *, real *);
extern int sgstnp__(integer *);
extern int sgqtnp__(integer *);
extern int sgplxu__(integer *, real *, real *, integer *, integer *, integer *);
extern int sgsmpl__(real *, real *, real *);
extern int sgqmpl__(real *, real *, real *);
extern int sglazu__(real *, real *, real *, real *,  integer *, integer *);
extern int sgplzu__(integer *, real *, real *, integer *, integer *);
extern int sglnxv__(real *, real *, real *, real *,  integer *, integer *);
extern int sgtnxr__(integer *, real *, real *, integer *, integer *);
extern int sgpmxr__(integer *, real *, real *, integer *, integer *, integer *, real *);
extern int sgscmn__(integer *);
extern int sgqcmn__(integer *);
extern int sgopn__(integer *);
extern int sginit__(void);
extern int sgfrm__(void);
extern int sgcls__(void);
extern int sgtnxu__(integer *, real *, real *, integer *, integer *);
extern int sgoopn__(char *, char *, ftnlen cprc_len, ftnlen  com_len);
extern int sgocls__(char *, ftnlen cprc_len);
extern int sgtnzv__(integer *, real *, real *, integer *);
extern int sgplzv__(integer *, real *, real *, integer *, integer *);
extern int sgiqnp__(integer *);
extern int sgiqid__(char *, integer *, ftnlen cp_len);
extern int sgiqcp__(integer *, char *, ftnlen cp_len);
extern int sgiqcl__(integer *, char *, ftnlen cp_len);
extern int sgiqvl__(integer *, integer *);
extern int sgisvl__(integer *, integer *);
extern int sgiqin__(char *, integer *, ftnlen cp_len);
extern int sglnu__(real *, real *, real *, real *);
extern int sglnv__(real *, real *, real *, real *);
extern int sglnr__(real *, real *, real *, real *);
extern int sgslni__(integer *);
extern int sgqlni__(integer *);
extern int sgpqnp__(integer *);
extern int sgpqid__(char *, integer *, ftnlen cp_len);
extern int sgpqcp__(integer *, char *, ftnlen cp_len);
extern int sgpqcl__(integer *, char *, ftnlen cp_len);
extern int sgpqit__(integer *, integer *);
extern int sgpqvl__(integer *, integer *);
extern int sgpsvl__(integer *, integer *);
extern int sgpqin__(char *, integer *, ftnlen cp_len);
extern int sgpcmd__(void);
extern int sgrqnp__(integer *);
extern int sgrqid__(char *, integer *, ftnlen cp_len);
extern int sgrqcp__(integer *, char *, ftnlen cp_len);
extern int sgrqcl__(integer *, char *, ftnlen cp_len);
extern int sgrqvl__(integer *, real *);
extern int sgrsvl__(integer *, real *);
extern int sgrqin__(char *, integer *, ftnlen cp_len);
extern int isgrgb__(integer *, integer *, integer *);
extern int sgtrqf__(integer *, logical *);
extern int sgtrsl__(char *, char *, ftnlen cts_len, ftnlen  ctl_len);
extern int sgtrsn__(char *, integer *, ftnlen cts_len);
extern int sgtrls__(char *, char *, ftnlen ctl_len, ftnlen  cts_len);
extern int sgtrln__(char *, integer *, ftnlen ctl_len);
extern int sgtrns__(integer *, char *, ftnlen cts_len);
extern int sgtrnl__(integer *, char *, ftnlen ctl_len);
extern int sgclst__(char *, ftnlen ccfile_len);
extern int sgqcl__(integer *, integer *, integer *, integer *);
extern int sgssim__(real *, real *, real *);
extern int sgqsim__(real *, real *, real *);
#ifdef __GTK_H__
extern void zgiset__(char pmname[],integer *,integer *);
extern void zgrset__(char pmname[],integer *,real *);
extern void zgfrel__(real *, real *, real *, real *);
extern void zgiint__(integer *, integer *, real *, real *);
extern void zgdopn__(integer *, integer *, integer *, integer *, integer *, integer *, integer *,real *, integer *, integer *, integer *, integer *lalt , integer *, integer *, integer *, integer *, integer *, integer *, integer *, char cimgfmt[], real *, 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 *, char *);
extern void zgocls__(char *);
extern void zgswdi__(integer *);
extern void zgscli__(integer *);
extern void zggopn__(void);
extern void zggmov__(real *, real *);
extern void zgclip__(real *,real *,real *,real *);
extern void zgrclp__();
extern void zgtxt__(real *, real *, real *, char *, integer *, real *, integer *);
extern void zgselectfont__(char *selected_font);
extern void zgftfc__(char *);
extern void zgsfw__(integer *);
extern void zgnumfonts__(integer *);
extern void zglistfonts__();
extern void zgfontname__(integer *, char *, integer *);
extern void zggplt__(real *, real *);
extern void zggcls__(void);
extern void zggton__(integer *, real wpx[], real wpy[], integer *);
extern void zgiopn__(integer *, integer *, integer *, integer *);
extern void zgidat__(integer image[], integer *);
extern void zgicls__(void);
extern void zgqpnt__(real *, real *, integer *);
extern void zgqwdc__(integer *);
extern void zgqclc__(integer *);
extern void zgqtnc__(integer *);
extern void zgqimc__(integer *);
extern void zgqptc__(integer *);
extern void zgqrct__(real *, real *, real *, real *, real *);
extern void zgsrot__(integer *);
extern void zgsfcm__(integer *);
extern void zgslcl__(integer *);
extern void zgstcl__(integer *);
extern void zgiclr__(integer *,integer *);
extern void zgclini__(char clrmap[], integer *);
#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 *, char *, ftnlen cobj_len, ftnlen  comm_len);
extern int swocls__(char *, ftnlen cobj_len);
extern int swqfcc__(logical *);
extern int swsfcm__(integer *);
extern int swswdi__(integer *);
extern int swscli__(integer *, logical *);
extern int swslcl__(integer *);
extern int swsfw__(integer *);
extern int swgopn__(void);
extern int swgmov__(real *, real *);
extern int swgplt__(real *, real *);
extern int swgcls__(void);
extern int swstcl__(integer *);
extern int swgton__(integer *, real *, real *, integer *);
extern int swiqnp__(integer *);
extern int swiqid__(char *, integer *, ftnlen cp_len);
extern int swiqcp__(integer *, char *, ftnlen cp_len);
extern int swiqcl__(integer *, char *, ftnlen cp_len);
extern int swiqvl__(integer *, integer *);
extern int swisvl__(integer *, integer *);
extern int swiqin__(char *, integer *, ftnlen cp_len);
extern int swiopn__(integer *, integer *, integer *,  integer *, real *, real *, real *, real *, real *,  real *, real *, real *);
extern int swidat__(integer *, integer *);
extern int swiclr__(integer *, integer *);
extern int swicls__(void);
extern int swqpnt__(real *, real *, integer *);
extern int swfint__(real *, real *, integer *, integer *);
extern int swiint__(integer *, integer *, real *, real *);
extern int swqwdc__(logical *);
extern int swqclc__(logical *);
extern int swqtnc__(logical *);
extern int swqimc__(logical *);
extern int swqptc__(logical *);
extern int swqrct__(real *, real *, real *, real *, real *);
extern int swsrot__(integer *);
extern int swclch__(void);
extern int swqtxw__(char *, integer *, real *, real *, ftnlen chars_len);
extern int swftfc__(char *, ftnlen fontname_len);
extern int swftnm__(integer *);
extern int swslft__(char *, ftnlen fontname_len);
extern int swgtft__(integer *, char *, integer *,  ftnlen fontname_len);
extern int swlsft__(void);
extern int swtxt__(real *, real *, real *, char *, integer *, integer *, integer *, ftnlen chars_len);
extern int swrget__(char *, real *, ftnlen cp_len);
extern int swrset__(char *, real *, ftnlen cp_len);
extern int swrstx__(char *, real *, ftnlen cp_len);
extern int swpqnp__(integer *);
extern int swpqid__(char *, integer *, ftnlen cp_len);
extern int swpqcp__(integer *, char *, ftnlen cp_len);
extern int swpqcl__(integer *, char *, ftnlen cp_len);
extern int swpqit__(integer *, integer *);
extern int swpqvl__(integer *, integer *);
extern int swpsvl__(integer *, integer *);
extern int swpqin__(char *, integer *, ftnlen cp_len);
extern int swrqnp__(integer *);
extern int swrqid__(char *, integer *, ftnlen cp_len);
extern int swrqcp__(integer *, char *, ftnlen cp_len);
extern int swrqcl__(integer *, char *, ftnlen cp_len);
extern int swrqvl__(integer *, real *);
extern int swrsvl__(integer *, real *);
extern int swrqin__(char *, integer *, ftnlen cp_len);
extern int swcqnp__(integer *);
extern int swcqid__(char *, integer *, ftnlen cp_len);
extern int swcqcp__(integer *, char *, ftnlen cp_len);
extern int swcqcl__(integer *, char *, ftnlen cp_len);
extern int swcqvl__(integer *, char *, ftnlen cval_len);
extern int swcsvl__(integer *, char *, ftnlen cval_len);
extern int swcqin__(char *, integer *, ftnlen cp_len);
extern int swlget__(char *, logical *, ftnlen cp_len);
extern int swlset__(char *, logical *, ftnlen cp_len);
extern int swlstx__(char *, logical *, ftnlen cp_len);
extern int swqfnm__(char *, char *, ftnlen cpara_len,  ftnlen cfname_len);
extern void zgfint__(real *, real *, integer *, integer *);
extern void zgqtxw__(char *, integer *, real *, real *);
extern int swlqnp__(integer *);
extern int swlqid__(char *, integer *, ftnlen cp_len);
extern int swlqcp__(integer *, char *, ftnlen cp_len);
extern int swlqcl__(integer *, char *, ftnlen cp_len);
extern int swlqvl__(integer *, logical *);
extern int swlsvl__(integer *, logical *);
extern int swlqin__(char *, integer *, ftnlen cp_len);
extern int swcget__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int swcset__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int swcstx__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int swiget__(char *, integer *, ftnlen cp_len);
extern int swiset__(char *, integer *, ftnlen cp_len);
extern int swistx__(char *, integer *, ftnlen cp_len);
extern int swcmll__(void);
extern int swqcmn__(integer *);
extern int swqcmf__(integer *, char *, ftnlen ctf_len);
extern int swqcmd__(integer *, char *, ftnlen ctd_len);
extern int swpget__(char *, integer *, ftnlen cp_len);
extern int swpset__(char *, integer *, ftnlen cp_len);
extern int swpstx__(char *, integer *, ftnlen cp_len);
extern int uelget__(char *, logical *, ftnlen cp_len);
extern int uelset__(char *, logical *, ftnlen cp_len);
extern int uelstx__(char *, logical *, ftnlen cp_len);
extern int uezchk__(real *, integer *, integer *, integer *, char *, integer *, ftnlen cname_len);
extern int ueitlv__(void);
extern int uestlv__(real *, real *, integer *);
extern int ueqtlv__(real *, real *, integer *, integer  *);
extern int ueqntl__(integer *);
extern int uestlz__(logical *);
extern int ueqtlz__(logical *);
extern int ueiget__(char *, integer *, ftnlen cp_len);
extern int ueiset__(char *, integer *, ftnlen cp_len);
extern int ueistx__(char *, integer *, ftnlen cp_len);
extern int uetonz__(real *, integer *, integer *, integer *, integer *, integer *);
extern int uetone__(real *, integer *, integer *, integer *);
extern int uerget__(char *, real *, ftnlen cp_len);
extern int uerset__(char *, real *, ftnlen cp_len);
extern int uerstx__(char *, real *, ftnlen cp_len);
extern int uegtlb__(real *, integer *, integer *, integer *, real *);
extern int uepget__(char *, integer *, ftnlen cp_len);
extern int uepset__(char *, integer *, ftnlen cp_len);
extern int uepstx__(char *, integer *, ftnlen cp_len);
extern int uetonc__(real *, integer *, integer *, integer *);
extern int uearea__(real *, real *, real *, real *, real *, real *, integer *, integer *, integer *);
extern int ueaint__(void);
extern int uepqnp__(integer *);
extern int uepqid__(char *, integer *, ftnlen cp_len);
extern int uepqcp__(integer *, char *, ftnlen cp_len);
extern int uepqcl__(integer *, char *, ftnlen cp_len);
extern int uepqit__(integer *, integer *);
extern int uepqvl__(integer *, integer *);
extern int uepsvl__(integer *, integer *);
extern int uepqin__(char *, integer *, ftnlen cp_len);
extern int uerqnp__(integer *);
extern int uerqid__(char *, integer *, ftnlen cp_len);
extern int uerqcp__(integer *, char *, ftnlen cp_len);
extern int uerqcl__(integer *, char *, ftnlen cp_len);
extern int uerqvl__(integer *, real *);
extern int uersvl__(integer *, real *);
extern int uerqin__(char *, integer *, ftnlen cp_len);
extern int uegtla__(real *, real *, real *);
extern int ueiqnp__(integer *);
extern int ueiqid__(char *, integer *, ftnlen cp_len);
extern int ueiqcp__(integer *, char *, ftnlen cp_len);
extern int ueiqcl__(integer *, char *, ftnlen cp_len);
extern int ueiqvl__(integer *, integer *);
extern int ueisvl__(integer *, integer *);
extern int ueiqin__(char *, integer *, ftnlen cp_len);
extern int uetonf__(real *, integer *, integer *, integer *);
extern int uetonb__(real *, integer *, integer *, integer *);
extern int uelqnp__(integer *);
extern int uelqid__(char *, integer *, ftnlen cp_len);
extern int uelqcp__(integer *, char *, ftnlen cp_len);
extern int uelqcl__(integer *, char *, ftnlen cp_len);
extern int uelqvl__(integer *, logical *);
extern int uelsvl__(integer *, logical *);
extern int uelqin__(char *, integer *, ftnlen cp_len);
extern int iueton__(real *);
extern int uspqnp__(integer *);
extern int uspqid__(char *, integer *, ftnlen cp_len);
extern int uspqcp__(integer *, char *, ftnlen cp_len);
extern int uspqcl__(integer *, char *, ftnlen cp_len);
extern int uspqit__(integer *, integer *);
extern int uspqvl__(integer *, integer *);
extern int uspsvl__(integer *, integer *);
extern int uspqin__(char *, integer *, ftnlen cp_len);
extern int uspttl__(char *, integer *, char *, real *, ftnlen cside_len, ftnlen cttl_len);
extern int usrqnp__(integer *);
extern int usrqid__(char *, integer *, ftnlen cp_len);
extern int usrqcp__(integer *, char *, ftnlen cp_len);
extern int usrqcl__(integer *, char *, ftnlen cp_len);
extern int usrqvl__(integer *, real *);
extern int usrsvl__(integer *, real *);
extern int usrqin__(char *, integer *, ftnlen cp_len);
extern int usxaxs__(char *, ftnlen cside_len);
extern int usysub__(char *, char *, char *, real *,  ftnlen cya_len, ftnlen cxa_len, ftnlen clabel_len);
extern int uspfit__(void);
extern int usaxcl__(char *, integer *, char *, integer *, ftnlen cside_len, ftnlen ctype_len);
extern int uspnum__(char *, integer *, real *, integer *, ftnlen cside_len);
extern int uszdgt__(real *, real *, real *, integer *, real *, real *, integer *, integer *);
extern int uslget__(char *, logical *, ftnlen cp_len);
extern int uslset__(char *, logical *, ftnlen cp_len);
extern int uslstx__(char *, logical *, ftnlen cp_len);
extern int usaxlg__(char *, integer *, integer *,  ftnlen cside_len);
extern int uswapz__(real *, real *, integer *);
extern int ususcl__(char *, real *, real *, real *,  real *, ftnlen caxis_len);
extern int ususcu__(char *, real *, real *, real *,  real *, integer *, ftnlen caxis_len);
extern int usxinz__(char *, real *, real *, ftnlen  csa_len);
extern int usxtlz__(void);
extern int usiget__(char *, integer *, ftnlen cp_len);
extern int usiset__(char *, integer *, ftnlen cp_len);
extern int usistx__(char *, integer *, ftnlen cp_len);
extern int usspnt__(integer *, real *, real *);
extern int usxoff__(char *, ftnlen cxs_len);
extern int usaxnm__(char *, real *, integer *, real *, integer *, ftnlen cside_len);
extern int usaxsc__(char *, ftnlen cside_len);
extern int usdaxs__(void);
extern int usiqnp__(integer *);
extern int usiqid__(char *, integer *, ftnlen cp_len);
extern int usiqcp__(integer *, char *, ftnlen cp_len);
extern int usiqcl__(integer *, char *, ftnlen cp_len);
extern int usiqvl__(integer *, integer *);
extern int usisvl__(integer *, integer *);
extern int usiqin__(char *, integer *, ftnlen cp_len);
extern int usrget__(char *, real *, ftnlen cp_len);
extern int usrset__(char *, real *, ftnlen cp_len);
extern int usrstx__(char *, real *, ftnlen cp_len);
extern int uschvl__(real *, char *, ftnlen chx_len);
extern int usxsub__(char *, char *, char *, real *,  ftnlen cxa_len, ftnlen cya_len, ftnlen clabel_len);
extern int usxaxu__(char *, ftnlen cxs_len);
extern int usyaxs__(char *, ftnlen cside_len);
extern int usgrph__(integer *, real *, real *);
extern int usaxdv__(char *, real *, real *, ftnlen  cside_len);
extern void csblbl__(char *, ftnlen ret_val_len, real *,  real *, char *, ftnlen cunit_len);
extern int uspget__(char *, integer *, ftnlen cp_len);
extern int uspset__(char *, integer *, ftnlen cp_len);
extern int uspstx__(char *, integer *, ftnlen cp_len);
extern int uslqnp__(integer *);
extern int uslqid__(char *, integer *, ftnlen cp_len);
extern int uslqcp__(integer *, char *, ftnlen cp_len);
extern int uslqcl__(integer *, char *, ftnlen cp_len);
extern int uslqvl__(integer *, logical *);
extern int uslsvl__(integer *, logical *);
extern int uslqin__(char *, integer *, ftnlen cp_len);
extern int ussttl__(char *, char *, char *, char *, ftnlen cxttl_len, ftnlen cxunit_len, ftnlen cyttl_len, ftnlen  cyunit_len);
extern int ussaxs__(char *, ftnlen cside_len);
extern int usxaxl__(char *, ftnlen cxs_len);
extern int usinit__(void);
extern int usyaxl__(char *, ftnlen cys_len);
extern int usyoff__(char *, ftnlen cys_len);
extern int uscqnp__(integer *);
extern int uscqid__(char *, integer *, ftnlen cp_len);
extern int uscqcp__(integer *, char *, ftnlen cp_len);
extern int uscqcl__(integer *, char *, ftnlen cp_len);
extern int uscqvl__(integer *, char *, ftnlen cval_len);
extern int uscsvl__(integer *, char *, ftnlen cval_len);
extern int uscqin__(char *, integer *, ftnlen cp_len);
extern int usptmk__(char *, integer *, real *, integer *, ftnlen cside_len);
extern int usurdl__(real *, real *, real *, real *);
extern int usurdt__(real *, real *, real *, real *,  real *);
extern int uspaxs__(char *, integer *, ftnlen cside_len);
extern int usyinz__(char *, real *, real *, ftnlen  csa_len);
extern int usytlz__(void);
extern int uscget__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int uscset__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int uscstx__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int usyaxu__(char *, ftnlen cys_len);
extern int uypaxs__(char *, integer *, ftnlen cside_len);
extern int uypttl__(char *, integer *, char *, real *, ftnlen cside_len, ftnlen cttl_len);
extern int uysaxs__(char *, ftnlen cside_len);
extern int uypnum__(char *, integer *, real *, integer *, ftnlen cside_len);
extern int uysaxz__(char *, real *, ftnlen cside_len);
extern logical luychk__(char *, ftnlen cside_len);
extern int uyptmk__(char *, integer *, real *, integer *, ftnlen cside_len);
extern int uysttl__(char *, char *, real *, ftnlen  cside_len, ftnlen cttl_len);
extern int uyaxdv__(char *, real *, real *, ftnlen  cside_len);
extern int uysfmt__(char *, ftnlen cfmt_len);
extern int uyqfmt__(char *, ftnlen cfmt_len);
extern int uyptmz__(real *, integer *, real *, real *,  real *, integer *);
extern int uysoff__(void);
extern int uyroff__(void);
extern int uymttl__(char *, char *, real *, ftnlen  cside_len, ftnlen cttl_len);
extern int uyaxnm__(char *, real *, integer *, real *,  integer *, ftnlen cside_len);
extern int uliget__(char *, integer *, ftnlen cp_len);
extern int uliset__(char *, integer *, ftnlen cp_len);
extern int ulistx__(char *, integer *, ftnlen cp_len);
extern int ullget__(char *, logical *, ftnlen cp_len);
extern int ullset__(char *, logical *, ftnlen cp_len);
extern int ullstx__(char *, logical *, ftnlen cp_len);
extern int ulpqnp__(integer *);
extern int ulpqid__(char *, integer *, ftnlen cp_len);
extern int ulpqcp__(integer *, char *, ftnlen cp_len);
extern int ulpqcl__(integer *, char *, ftnlen cp_len);
extern int ulpqit__(integer *, integer *);
extern int ulpqvl__(integer *, integer *);
extern int ulpsvl__(integer *, integer *);
extern int ulpqin__(char *, integer *, ftnlen cp_len);
extern int ulrqnp__(integer *);
extern int ulrqid__(char *, integer *, ftnlen cp_len);
extern int ulrqcp__(integer *, char *, ftnlen cp_len);
extern int ulrqcl__(integer *, char *, ftnlen cp_len);
extern int ulrqvl__(integer *, real *);
extern int ulrsvl__(integer *, real *);
extern int ulrqin__(char *, integer *, ftnlen cp_len);
extern int ulxlbl__(real *, integer *, integer *);
extern int ulsxbl__(real *, integer *);
extern int ulqxbl__(real *, integer *);
extern int ullqnp__(integer *);
extern int ullqid__(char *, integer *, ftnlen cp_len);
extern int ullqcp__(integer *, char *, ftnlen cp_len);
extern int ullqcl__(integer *, char *, ftnlen cp_len);
extern int ullqvl__(integer *, logical *);
extern int ullsvl__(integer *, logical *);
extern int ullqin__(char *, integer *, ftnlen cp_len);
extern int uliqnp__(integer *);
extern int uliqid__(char *, integer *, ftnlen cp_len);
extern int uliqcp__(integer *, char *, ftnlen cp_len);
extern int uliqcl__(integer *, char *, ftnlen cp_len);
extern int uliqvl__(integer *, integer *);
extern int ulisvl__(integer *, integer *);
extern int uliqin__(char *, integer *, ftnlen cp_len);
extern int ulxsfm__(char *, ftnlen cxfmt_len);
extern int ulxqfm__(char *, ftnlen cxfmt_len);
extern int ulrget__(char *, real *, ftnlen cp_len);
extern int ulrset__(char *, real *, ftnlen cp_len);
extern int ulrstx__(char *, real *, ftnlen cp_len);
extern int ulysfm__(char *, ftnlen cyfmt_len);
extern int ulyqfm__(char *, ftnlen cyfmt_len);
extern int ulylbl__(real *, integer *, integer *);
extern int ulsybl__(real *, integer *);
extern int ulqybl__(real *, integer *);
extern int ulxlog__(char *, integer *, integer *,  ftnlen cside_len);
extern int ulpget__(char *, integer *, ftnlen cp_len);
extern int ulpset__(char *, integer *, ftnlen cp_len);
extern int ulpstx__(char *, integer *, ftnlen cp_len);
extern int ulylog__(char *, integer *, integer *,  ftnlen cside_len);
extern int uulin__(integer *, real *, real *);
extern int uuiqnp__(integer *);
extern int uuiqid__(char *, integer *, ftnlen cp_len);
extern int uuiqcp__(integer *, char *, ftnlen cp_len);
extern int uuiqcl__(integer *, char *, ftnlen cp_len);
extern int uuiqvl__(integer *, integer *);
extern int uuisvl__(integer *, integer *);
extern int uuiqin__(char *, integer *, ftnlen cp_len);
extern int uumrk__(integer *, real *, real *);
extern int uulget__(char *, logical *, ftnlen cp_len);
extern int uulset__(char *, logical *, ftnlen cp_len);
extern int uulstx__(char *, logical *, ftnlen cp_len);
extern int uusfrt__(integer *);
extern int uuqfrt__(integer *);
extern int uusfri__(integer *);
extern int uuqfri__(integer *);
extern int uusarp__(integer *, integer *);
extern int uuqarp__(integer *, integer *);
extern int uulqnp__(integer *);
extern int uulqid__(char *, integer *, ftnlen cp_len);
extern int uulqcp__(integer *, char *, ftnlen cp_len);
extern int uulqcl__(integer *, char *, ftnlen cp_len);
extern int uulqvl__(integer *, logical *);
extern int uulsvl__(integer *, logical *);
extern int uulqin__(char *, integer *, ftnlen cp_len);
extern int uurget__(char *, real *, ftnlen cp_len);
extern int uurset__(char *, real *, ftnlen cp_len);
extern int uurstx__(char *, real *, ftnlen cp_len);
extern int uulinz__(integer *, real *, real *, integer *, integer *);
extern int uurqnp__(integer *);
extern int uurqid__(char *, integer *, ftnlen cp_len);
extern int uurqcp__(integer *, char *, ftnlen cp_len);
extern int uurqcl__(integer *, char *, ftnlen cp_len);
extern int uurqvl__(integer *, real *);
extern int uursvl__(integer *, real *);
extern int uurqin__(char *, integer *, ftnlen cp_len);
extern int uupget__(char *, integer *, ftnlen cp_len);
extern int uupset__(char *, integer *, ftnlen cp_len);
extern int uupstx__(char *, integer *, ftnlen cp_len);
extern int uuinit__(void);
extern int uuslnt__(integer *);
extern int uuqlnt__(integer *);
extern int uuslni__(integer *);
extern int uuqlni__(integer *);
extern int uusidv__(real *, real *);
extern int uuqidv__(real *, real *);
extern int uupqnp__(integer *);
extern int uupqid__(char *, integer *, ftnlen cp_len);
extern int uupqcp__(integer *, char *, ftnlen cp_len);
extern int uupqcl__(integer *, char *, ftnlen cp_len);
extern int uupqit__(integer *, integer *);
extern int uupqvl__(integer *, integer *);
extern int uupsvl__(integer *, integer *);
extern int uupqin__(char *, integer *, ftnlen cp_len);
extern int uusbrs__(real *);
extern int uuqbrs__(real *);
extern int uusmkt__(integer *);
extern int uuqmkt__(integer *);
extern int uusmki__(integer *);
extern int uuqmki__(integer *);
extern int uusmks__(real *);
extern int uuqmks__(real *);
extern int uuiget__(char *, integer *, ftnlen cp_len);
extern int uuiset__(char *, integer *, ftnlen cp_len);
extern int uuistx__(char *, integer *, ftnlen cp_len);
extern int uusebt__(integer *);
extern int uuqebt__(integer *);
extern int uusebi__(integer *);
extern int uuqebi__(integer *);
extern int uusebs__(real *);
extern int uuqebs__(real *);
extern int uumrkz__(integer *, real *, real *, integer *, integer *, real *);
extern int ugsut__(char *, char *, ftnlen cside_len, ftnlen  cttl_len);
extern int ugdut__(void);
extern int ugvect__(real *, integer *, real *, integer *,  integer *, integer *);
extern int ugrqnp__(integer *);
extern int ugrqid__(char *, integer *, ftnlen cp_len);
extern int ugrqcp__(integer *, char *, ftnlen cp_len);
extern int ugrqcl__(integer *, char *, ftnlen cp_len);
extern int ugrqvl__(integer *, real *);
extern int ugrsvl__(integer *, real *);
extern int ugrqin__(char *, integer *, ftnlen cp_len);
extern int ugiqnp__(integer *);
extern int ugiqid__(char *, integer *, ftnlen cp_len);
extern int ugiqcp__(integer *, char *, ftnlen cp_len);
extern int ugiqcl__(integer *, char *, ftnlen cp_len);
extern int ugiqvl__(integer *, integer *);
extern int ugisvl__(integer *, integer *);
extern int ugiqin__(char *, integer *, ftnlen cp_len);
extern int ugunit__(void);
extern int ugrget__(char *, real *, ftnlen cp_len);
extern int ugrset__(char *, real *, ftnlen cp_len);
extern int ugrstx__(char *, real *, ftnlen cp_len);
extern int ugpqnp__(integer *);
extern int ugpqid__(char *, integer *, ftnlen cp_len);
extern int ugpqcp__(integer *, char *, ftnlen cp_len);
extern int ugpqcl__(integer *, char *, ftnlen cp_len);
extern int ugpqit__(integer *, integer *);
extern int ugpqvl__(integer *, integer *);
extern int ugpsvl__(integer *, integer *);
extern int ugpqin__(char *, integer *, ftnlen cp_len);
extern int ugiget__(char *, integer *, ftnlen cp_len);
extern int ugiset__(char *, integer *, ftnlen cp_len);
extern int ugistx__(char *, integer *, ftnlen cp_len);
extern int uglqnp__(integer *);
extern int uglqid__(char *, integer *, ftnlen cp_len);
extern int uglqcp__(integer *, char *, ftnlen cp_len);
extern int uglqcl__(integer *, char *, ftnlen cp_len);
extern int uglqvl__(integer *, logical *);
extern int uglsvl__(integer *, logical *);
extern int uglqin__(char *, integer *, ftnlen cp_len);
extern int ugpget__(char *, integer *, ftnlen cp_len);
extern int ugpset__(char *, integer *, ftnlen cp_len);
extern int ugpstx__(char *, integer *, ftnlen cp_len);
extern int uglget__(char *, logical *, ftnlen cp_len);
extern int uglset__(char *, logical *, ftnlen cp_len);
extern int uglstx__(char *, logical *, ftnlen cp_len);
extern int uzcqnp__(integer *);
extern int uzcqid__(char *, integer *, ftnlen cp_len);
extern int uzcqcp__(integer *, char *, ftnlen cp_len);
extern int uzcqcl__(integer *, char *, ftnlen cp_len);
extern int uzcqvl__(integer *, char *, ftnlen cval_len);
extern int uzcsvl__(integer *, char *, ftnlen cval_len);
extern int uzcqin__(char *, integer *, ftnlen cp_len);
extern int uzcsav__(integer *);
extern int uzcrst__(integer *);
extern int uziget__(char *, integer *, ftnlen cp_len);
extern int uziset__(char *, integer *, ftnlen cp_len);
extern int uzistx__(char *, integer *, ftnlen cp_len);
extern int uzcget__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int uzcset__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int uzcstx__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int uzlget__(char *, logical *, ftnlen cp_len);
extern int uzlset__(char *, logical *, ftnlen cp_len);
extern int uzlstx__(char *, logical *, ftnlen cp_len);
extern int uzinit__(void);
extern int uzpsav__(void);
extern int uzprst__(void);
extern int uzpqnp__(integer *);
extern int uzpqid__(char *, integer *, ftnlen cp_len);
extern int uzpqcp__(integer *, char *, ftnlen cp_len);
extern int uzpqcl__(integer *, char *, ftnlen cp_len);
extern int uzpqit__(integer *, integer *);
extern int uzpqvl__(integer *, integer *);
extern int uzpsvl__(integer *, integer *);
extern int uzpqin__(char *, integer *, ftnlen cp_len);
extern int uzfact__(real *);
extern int uziqnp__(integer *);
extern int uziqid__(char *, integer *, ftnlen cp_len);
extern int uziqcp__(integer *, char *, ftnlen cp_len);
extern int uziqcl__(integer *, char *, ftnlen cp_len);
extern int uziqvl__(integer *, integer *);
extern int uzisvl__(integer *, integer *);
extern int uziqin__(char *, integer *, ftnlen cp_len);
extern int uzisav__(integer *);
extern int uzirst__(integer *);
extern int uzpget__(char *, integer *, ftnlen cp_len);
extern int uzpset__(char *, integer *, ftnlen cp_len);
extern int uzpstx__(char *, integer *, ftnlen cp_len);
extern int uzlqnp__(integer *);
extern int uzlqid__(char *, integer *, ftnlen cp_len);
extern int uzlqcp__(integer *, char *, ftnlen cp_len);
extern int uzlqcl__(integer *, char *, ftnlen cp_len);
extern int uzlqvl__(integer *, logical *);
extern int uzlsvl__(integer *, logical *);
extern int uzlqin__(char *, integer *, ftnlen cp_len);
extern int uzlsav__(integer *);
extern int uzlrst__(integer *);
extern int uzrget__(char *, real *, ftnlen cp_len);
extern int uzrset__(char *, real *, ftnlen cp_len);
extern int uzrstx__(char *, real *, ftnlen cp_len);
extern int uzrqnp__(integer *);
extern int uzrqid__(char *, integer *, ftnlen cp_len);
extern int uzrqcp__(integer *, char *, ftnlen cp_len);
extern int uzrqcl__(integer *, char *, ftnlen cp_len);
extern int uzrqvl__(integer *, real *);
extern int uzrsvl__(integer *, real *);
extern int uzrqin__(char *, integer *, ftnlen cp_len);
extern int uzrsav__(integer *);
extern int uzrrst__(integer *);
extern int ucxayr__(char *, integer *, integer *, ftnlen  cside_len);
extern int ucpqnp__(integer *);
extern int ucpqid__(char *, integer *, ftnlen cp_len);
extern int ucpqcp__(integer *, char *, ftnlen cp_len);
extern int ucpqcl__(integer *, char *, ftnlen cp_len);
extern int ucpqit__(integer *, integer *);
extern int ucpqvl__(integer *, integer *);
extern int ucpsvl__(integer *, integer *);
extern int ucpqin__(char *, integer *, ftnlen cp_len);
extern int ucrqnp__(integer *);
extern int ucrqid__(char *, integer *, ftnlen cp_len);
extern int ucrqcp__(integer *, char *, ftnlen cp_len);
extern int ucrqcl__(integer *, char *, ftnlen cp_len);
extern int ucrqvl__(integer *, real *);
extern int ucrsvl__(integer *, real *);
extern int ucrqin__(char *, integer *, ftnlen cp_len);
extern int ucxamn__(char *, integer *, integer *, ftnlen  cside_len);
extern int ucyady__(char *, integer *, integer *, ftnlen  cside_len);
extern int ucpget__(char *, integer *, ftnlen cp_len);
extern int ucpset__(char *, integer *, ftnlen cp_len);
extern int ucpstx__(char *, integer *, ftnlen cp_len);
extern int ucyamn__(char *, integer *, integer *, ftnlen  cside_len);
extern int ucyacl__(char *, integer *, integer *, ftnlen  cside_len);
extern int uclget__(char *, logical *, ftnlen cp_len);
extern int uclset__(char *, logical *, ftnlen cp_len);
extern int uclstx__(char *, logical *, ftnlen cp_len);
extern int ucxacl__(char *, integer *, integer *, ftnlen  cside_len);
extern int uciget__(char *, integer *, ftnlen cp_len);
extern int uciset__(char *, integer *, ftnlen cp_len);
extern int ucistx__(char *, integer *, ftnlen cp_len);
extern int uciqnp__(integer *);
extern int uciqid__(char *, integer *, ftnlen cp_len);
extern int uciqcp__(integer *, char *, ftnlen cp_len);
extern int uciqcl__(integer *, char *, ftnlen cp_len);
extern int uciqvl__(integer *, integer *);
extern int ucisvl__(integer *, integer *);
extern int uciqin__(char *, integer *, ftnlen cp_len);
extern int nucday__(char *, integer *, ftnlen cs_len);
extern int ucrget__(char *, real *, ftnlen cp_len);
extern int ucrset__(char *, real *, ftnlen cp_len);
extern int ucrstx__(char *, real *, ftnlen cp_len);
extern int ucxady__(char *, integer *, integer *, ftnlen  cside_len);
extern int nucchr__(char *, integer *, ftnlen cs_len);
extern int uclqnp__(integer *);
extern int uclqid__(char *, integer *, ftnlen cp_len);
extern int uclqcp__(integer *, char *, ftnlen cp_len);
extern int uclqcl__(integer *, char *, ftnlen cp_len);
extern int uclqvl__(integer *, logical *);
extern int uclsvl__(integer *, logical *);
extern int uclqin__(char *, integer *, ftnlen cp_len);
extern int ucyayr__(char *, integer *, integer *, ftnlen  cside_len);
extern int udbset__(integer *, integer *, integer *, integer *, integer *);
extern int udpget__(char *, integer *, ftnlen cp_len);
extern int udpset__(char *, integer *, ftnlen cp_len);
extern int udpstx__(char *, integer *, ftnlen cp_len);
extern int udgrdn__(integer *, integer *, integer *, integer  *, integer *, integer *, integer *);
extern int udiget__(char *, integer *, ftnlen cp_len);
extern int udiset__(char *, integer *, ftnlen cp_len);
extern int udistx__(char *, integer *, ftnlen cp_len);
extern int udiqnp__(integer *);
extern int udiqid__(char *, integer *, ftnlen cp_len);
extern int udiqcp__(integer *, char *, ftnlen cp_len);
extern int udiqcl__(integer *, char *, ftnlen cp_len);
extern int udiqvl__(integer *, integer *);
extern int udisvl__(integer *, integer *);
extern int udiqin__(char *, integer *, ftnlen cp_len);
extern int udlget__(char *, logical *, ftnlen cp_len);
extern int udlset__(char *, logical *, ftnlen cp_len);
extern int udlstx__(char *, logical *, ftnlen cp_len);
extern int udiclv__(void);
extern int udsclv__(real *, integer *, integer *, char *, real *, ftnlen clv_len);
extern int udqclv__(real *, integer *, integer *, char *, real *, integer *, ftnlen clv_len);
extern int udqcln__(integer *);
extern int uddclv__(real *);
extern int udsclz__(logical *);
extern int udqclz__(logical *);
extern int udgcla__(real *, real *, real *);
extern int udiclr__(integer *, integer *);
extern int udlabl__(real *, char *, ftnlen cval_len);
extern int udsfmt__(char *, ftnlen cfmt_len);
extern int udqfmt__(char *, ftnlen cfmt_len);
extern int udrget__(char *, real *, ftnlen cp_len);
extern int udrset__(char *, real *, ftnlen cp_len);
extern int udrstx__(char *, real *, ftnlen cp_len);
extern logical ludchk__(integer *, integer *, integer *, integer *, integer *);
extern int udlqnp__(integer *);
extern int udlqid__(char *, integer *, ftnlen cp_len);
extern int udlqcp__(integer *, char *, ftnlen cp_len);
extern int udlqcl__(integer *, char *, ftnlen cp_len);
extern int udlqvl__(integer *, logical *);
extern int udlsvl__(integer *, logical *);
extern int udlqin__(char *, integer *, ftnlen cp_len);
extern int udcntz__(real *, integer *, integer *, integer *, integer *, integer *);
extern int uduxuy__(real *, integer *, integer *, integer *, integer *, real *, real *, real *);
extern int udbclr__(integer *, integer *, integer *, integer *, integer *);
extern int udpqnp__(integer *);
extern int udpqid__(char *, integer *, ftnlen cp_len);
extern int udpqcp__(integer *, char *, ftnlen cp_len);
extern int udpqcl__(integer *, char *, ftnlen cp_len);
extern int udpqit__(integer *, integer *);
extern int udpqvl__(integer *, integer *);
extern int udpsvl__(integer *, integer *);
extern int udpqin__(char *, integer *, ftnlen cp_len);
extern int udrqnp__(integer *);
extern int udrqid__(char *, integer *, ftnlen cp_len);
extern int udrqcp__(integer *, char *, ftnlen cp_len);
extern int udrqcl__(integer *, char *, ftnlen cp_len);
extern int udrqvl__(integer *, real *);
extern int udrsvl__(integer *, real *);
extern int udrqin__(char *, integer *, ftnlen cp_len);
extern int udline__(real *, integer *, integer *, integer *, integer *, real *, logical *, integer *);
extern int udcntr__(real *, integer *, integer *, integer *);
extern int udgclb__(real *, integer *, integer *, integer *, real *);
extern int umrqnp__(integer *);
extern int umrqid__(char *, integer *, ftnlen cp_len);
extern int umrqcp__(integer *, char *, ftnlen cp_len);
extern int umrqcl__(integer *, char *, ftnlen cp_len);
extern int umrqvl__(integer *, real *);
extern int umrsvl__(integer *, real *);
extern int umrqin__(char *, integer *, ftnlen cp_len);
extern int umpget__(char *, integer *, ftnlen cp_len);
extern int umpset__(char *, integer *, ftnlen cp_len);
extern int umpstx__(char *, integer *, ftnlen cp_len);
extern int umsgrd__(void);
extern int umplim__(void);
extern int umspwd__(void);
extern int umpmap__(char *, ftnlen cdsn_len);
extern int umscom__(void);
extern int umqfnm__(char *, char *, ftnlen cpara_len,  ftnlen cfname_len);
extern int umspdf__(void);
extern int umpgrd__(void);
extern int umbndp__(real *, real *, real *, real *);
extern int umscwd__(real *, real *, real *r__);
extern int umqcwd__(real *, real *, real *r__);
extern int umiget__(char *, integer *, ftnlen cp_len);
extern int umiset__(char *, integer *, ftnlen cp_len);
extern int umistx__(char *, integer *, ftnlen cp_len);
extern int umspnt__(integer *, real *, real *);
extern int umqpnt__(integer *, real *, real *);
extern int umqptn__(integer *);
extern int umrpnt__(void);
extern int umpglb__(void);
extern int umlget__(char *, logical *, ftnlen cp_len);
extern int umlset__(char *, logical *, ftnlen cp_len);
extern int umlstx__(char *, logical *, ftnlen cp_len);
extern int umqtxy__(real *, real *, real *, real *);
extern int umspct__(void);
extern int umrget__(char *, real *, ftnlen cp_len);
extern int umrset__(char *, real *, ftnlen cp_len);
extern int umrstx__(char *, real *, ftnlen cp_len);
extern int umfmap__(char *, ftnlen cdsn_len);
extern int umbndc__(real *, real *, real *, real *);
extern int uminit__(void);
extern int umscnt__(real *, real *, real *);
extern int umqcnt__(real *, real *, real *);
extern int umpfit__(void);
extern int umiqnp__(integer *);
extern int umiqid__(char *, integer *, ftnlen cp_len);
extern int umiqcp__(integer *, char *, ftnlen cp_len);
extern int umiqcl__(integer *, char *, ftnlen cp_len);
extern int umiqvl__(integer *, integer *);
extern int umisvl__(integer *, integer *);
extern int umiqin__(char *, integer *, ftnlen cp_len);
extern int umsppt__(void);
extern int umlqnp__(integer *);
extern int umlqid__(char *, integer *, ftnlen cp_len);
extern int umlqcp__(integer *, char *, ftnlen cp_len);
extern int umlqcl__(integer *, char *, ftnlen cp_len);
extern int umlqvl__(integer *, logical *);
extern int umlsvl__(integer *, logical *);
extern int umlqin__(char *, integer *, ftnlen cp_len);
extern int umspcw__(void);
extern int umstvz__(void);
extern int umpqnp__(integer *);
extern int umpqid__(char *, integer *, ftnlen cp_len);
extern int umpqcp__(integer *, char *, ftnlen cp_len);
extern int umpqcl__(integer *, char *, ftnlen cp_len);
extern int umpqit__(integer *, integer *);
extern int umpqvl__(integer *, integer *);
extern int umpsvl__(integer *, integer *);
extern int umpqin__(char *, integer *, ftnlen cp_len);
extern int grinit__(void);
extern int grstrf__(void);
extern int grscwd__(real *, real *, real *, real *);
extern int grsvpt__(real *, real *, real *, real *);
extern int grsmpl__(real *, real *, real *);
extern int gropn__(integer *);
extern int grfrm__(void);
extern int grfig__(void);
extern int grcls__(void);
extern int grstrn__(integer *);
extern int grssim__(real *, real *, real *);
extern int grstxy__(real *, real *, real *, real *);
extern int grswnd__(real *, real *, real *, real *);
extern int uirqnp__(integer *);
extern int uirqid__(char *, integer *, ftnlen cp_len);
extern int uirqcp__(integer *, char *, ftnlen cp_len);
extern int uirqcl__(integer *, char *, ftnlen cp_len);
extern int uirqvl__(integer *, real *);
extern int uirsvl__(integer *, real *);
extern int uirqin__(char *, integer *, ftnlen cp_len);
extern int uipda2__(real *, real *, integer *, integer *,  integer *);
extern int uipd2z__(real *, real *, integer *, integer *,  integer *, integer *, integer *);
extern int uipda3__(real *, real *, real *, integer *, integer *, integer *);
extern int uipd3z__(real *, real *, real *, integer *, integer *, integer *, integer *, integer *);
extern int uic2d__(real *, real *, integer *);
extern int ui2ini__(real *, real *, real *, real *);
extern int uiscr2__(real *, real *, real *, real *);
extern int uiqcr2__(real *, real *, real *, real *);
extern int uiscmp__(integer *, integer *, integer *,  integer *);
extern int uiiget__(char *, integer *, ftnlen cp_len);
extern int uiiset__(char *, integer *, ftnlen cp_len);
extern int uiistx__(char *, integer *, ftnlen cp_len);
extern int uipdaz__(real *, integer *, integer *, integer *, integer *, integer *);
extern int uishdw__(real *, real *, real *, real *, real *, real *);
extern int uiiqnp__(integer *);
extern int uiiqid__(char *, integer *, ftnlen cp_len);
extern int uiiqcp__(integer *, char *, ftnlen cp_len);
extern int uiiqcl__(integer *, char *, ftnlen cp_len);
extern int uiiqvl__(integer *, integer *);
extern int uiisvl__(integer *, integer *);
extern int uiiqin__(char *, integer *, ftnlen cp_len);
extern int uilget__(char *, logical *, ftnlen cp_len);
extern int uilset__(char *, logical *, ftnlen cp_len);
extern int uilstx__(char *, logical *, ftnlen cp_len);
extern int uifpac__(integer *, integer *, integer *, integer *);
extern int uiipac__(integer *, integer *, integer *, integer  *);
extern int uiybar__(real *, real *, real *, real *,  real *, real *, char *, ftnlen cpos_len);
extern int uiqfnm__(char *, char *, ftnlen cpara_len,  ftnlen cfname_len);
extern int uipdat__(real *, integer *, integer *, integer *);
extern int uicrgb__(real *, real *, integer *);
extern int uicini__(real *, real *);
extern int uiscrg__(real *, real *);
extern int uismrg__(real *, real *);
extern int uiqcrg__(real *, real *);
extern int uiqmrg__(real *, real *);
extern int uiscsq__(real *, integer *, integer *);
extern int uiscfl__(char *, ftnlen cdsn_len);
extern int uismsq__(real *, real *, integer *);
extern int uismfl__(char *, ftnlen cdsn_len);
extern int uilqnp__(integer *);
extern int uilqid__(char *, integer *, ftnlen cp_len);
extern int uilqcp__(integer *, char *, ftnlen cp_len);
extern int uilqcl__(integer *, char *, ftnlen cp_len);
extern int uilqvl__(integer *, logical *);
extern int uilsvl__(integer *, logical *);
extern int uilqin__(char *, integer *, ftnlen cp_len);
extern int uirget__(char *, real *, ftnlen cp_len);
extern int uirset__(char *, real *, ftnlen cp_len);
extern int uirstx__(char *, real *, ftnlen cp_len);
extern int uic3d__(real *, real *, real *, integer *);
extern int ui3ini__(real *, real *, real *, real *,  real *, real *);
extern int uiflab__(real *, real *, real *, real *, real *,  real *);
extern int uiilab__(real *, real *, real *, real *, real *,  real *z__);
extern int uifluv__(real *, real *, real *, real *, real *,  real *);
extern int uiiluv__(real *, real *, real *, real *, real *,  real *z__);
extern int uifrgb__(real *, real *, real *, real *, real *,  real *);
extern int uiirgb__(real *, real *, real *, real *, real *,  real *z__);
extern int uifyxy__(real *, real *, real *, real *, real *,  real *);
extern int uiiyxy__(real *, real *, real *, real *, real *,  real *z__);
extern int uiencd__(real *, real *, real *, integer *);
extern int uidecd__(integer *, real *, real *, real *);
extern int uixbar__(real *, real *, real *, real *,  real *, real *, char *, ftnlen cpos_len);
extern int uipcmp__(real *, real *, real *, real *,  char *, ftnlen cpos_len);
extern int uwdflt__(integer *, integer *);
extern int uwinit__(void);
extern int iuwgy__(real *);
extern int iuwgx__(real *);
extern int uxmttl__(char *, char *, real *, ftnlen  cside_len, ftnlen cttl_len);
extern int uxpnum__(char *, integer *, real *, integer *, ftnlen cside_len);
extern int uxsfmt__(char *, ftnlen cfmt_len);
extern int uxqfmt__(char *, ftnlen cfmt_len);
extern int uxpttl__(char *, integer *, char *, real *, ftnlen cside_len, ftnlen cttl_len);
extern int uxptmz__(real *, integer *, real *, real *,  real *, integer *);
extern int uxpaxs__(char *, integer *, ftnlen cside_len);
extern int uxsaxs__(char *, ftnlen cside_len);
extern int uxsaxz__(char *, real *, ftnlen cside_len);
extern int uxsoff__(void);
extern int uxroff__(void);
extern int uxptmk__(char *, integer *, real *, integer *, ftnlen cside_len);
extern logical luxchk__(char *, ftnlen cside_len);
extern int uxaxnm__(char *, real *, integer *, real *,  integer *, ftnlen cside_len);
extern int uxaxdv__(char *, real *, real *, ftnlen  cside_len);
extern int uxsttl__(char *, char *, real *, ftnlen  cside_len, ftnlen cttl_len);
extern int uvbxl__(integer *, real *, real *);
extern int uvbrl__(integer *, real *, real *);
extern int uvbrlz__(integer *, real *, real *, integer *, integer *, real *);
extern int uverbz__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int uvbxf__(integer *, real *, real *, real *);
extern int uvbxfz__(integer *, real *, real *, real *,  integer *, integer *);
extern int uvbrfz__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int uvbxaz__(integer *, real *, real *, real *,  integer *, integer *);
extern int uvbrf__(integer *, real *, real *, real *);
extern int uvbxa__(integer *, real *, real *, real *);
extern int uvbxlz__(integer *, real *, real *, integer *, integer *);
extern int uvdif__(integer *, real *, real *, real *);
extern int uvbra__(integer *, real *, real *, real *);
extern int uvbraz__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int uverb__(integer *, real *, real *, real *);
extern int uvdifz__(integer *, real *, real *, real *,  integer *, integer *);
extern int uhbxfz__(integer *, real *, real *, real *,  integer *, integer *);
extern int uhdifz__(integer *, real *, real *, real *,  integer *, integer *);
extern int uhbraz__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int uhbxf__(integer *, real *, real *, real *);
extern int uhbxl__(integer *, real *, real *);
extern int uhdif__(integer *, real *, real *, real *);
extern int uherb__(integer *, real *, real *, real *);
extern int uhbrfz__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int uhbrl__(integer *, real *, real *);
extern int uhbxa__(integer *, real *, real *, real *);
extern int uhbra__(integer *, real *, real *, real *);
extern int uhbxaz__(integer *, real *, real *, real *,  integer *, integer *);
extern int uhbxlz__(integer *, real *, real *, integer *, integer *);
extern int uhbrf__(integer *, real *, real *, real *);
extern int uhbrlz__(integer *, real *, real *, integer *, integer *, real *);
extern int uherbz__(integer *, real *, real *, real *,  integer *, integer *, real *);
extern int indxnl__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int nindxc__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int indxrf__(real *, integer *, integer *, real *);
extern int nindxm__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int indxnf__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int indxif__(integer *, integer *, integer *, integer *);
extern int indxil__(integer *, integer *, integer *, integer *);
extern int nindxr__(real *, integer *, integer *, real *);
extern int indxrl__(real *, integer *, integer *, real *);
extern int indxcl__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int indxml__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int indxmf__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int nindxn__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int indxcf__(char *, integer *, integer *, char *, ftnlen cx_len,  ftnlen ch_len);
extern int nindxi__(integer *, integer *, integer *, integer *);
extern int vrset__(real *, real *, integer *, integer *,  integer *);
extern int vrset0__(real *, real *, integer *, integer *,  integer *);
extern int vrset1__(real *, real *, integer *, integer *,  integer *);
extern int vrinc0__(real *, real *, integer *, integer *,  integer *, real *);
extern int rmlt__(real *, integer *, integer *, real *);
extern int vrfct__(real *, real *, integer *, integer *,  integer *, real *);
extern int vrcon1__(real *, real *, integer *, integer *,  integer *, real *);
extern int rmlt1__(real *, integer *, integer *, real *);
extern int vrfct1__(real *, real *, integer *, integer *,  integer *, real *);
extern int rset0__(real *, integer *, integer *, real *);
extern int radd__(real *, integer *, integer *, real *);
extern int rset__(real *, integer *, integer *, real *);
extern int rset1__(real *, integer *, integer *, real *);
extern int radd0__(real *, integer *, integer *, real *);
extern int vrinc__(real *, real *, integer *, integer *,  integer *, real *);
extern int rmlt0__(real *, integer *, integer *, real *);
extern int radd1__(real *, integer *, integer *, real *);
extern int vrcon0__(real *, real *, integer *, integer *,  integer *, real *);
extern int vrcon__(real *, real *, integer *, integer *,  integer *, real *);
extern int vrfct0__(real *, real *, integer *, integer *,  integer *, real *);
extern int vrinc1__(real *, real *, integer *, integer *,  integer *, real *);
extern logical lrnea__(real *, real *, real *);
extern logical lrle1__(real *, real *);
extern logical lrlt0__(real *, real *);
extern logical lreq__(real *, real *);
extern logical lreq0__(real *, real *);
extern logical lrgta__(real *, real *, real *);
extern logical lrgt__(real *, real *);
extern logical lrne0__(real *, real *);
extern logical lrge1__(real *, real *);
extern logical lreqa__(real *, real *, real *);
extern logical lrlt1__(real *, real *);
extern logical lrlea__(real *, real *, real *);
extern logical lreq1__(real *, real *);
extern logical lrle__(real *, real *);
extern logical lrge__(real *, real *);
extern logical lrne__(real *, real *);
extern logical lrle0__(real *, real *);
extern logical lrgt0__(real *, real *);
extern logical lrgt1__(real *, real *);
extern logical lrge0__(real *, real *);
extern logical lrgea__(real *, real *, real *);
extern logical lrlt__(real *, real *);
extern logical lrne1__(real *, real *);
extern logical lrlta__(real *, real *, real *);
extern int lenc__(char *, ftnlen c_len);
extern int cradj__(char *, ftnlen chr_len);
extern int lenb__(char *, ftnlen c_len);
extern int cladj__(char *, ftnlen chr_len);
extern int lenz__(char *, ftnlen c_len);
extern int leny__(char *, ftnlen c_len);
extern int crvrs__(char *, ftnlen chr_len);
extern int iblkgt__(real *, integer *, real *);
extern int iblkge__(real *, integer *, real *);
extern int iblkle__(real *, integer *, real *);
extern int iblklt__(real *, integer *, real *);
extern int mpfazm__(real *, real *, real *, real *);
extern int mpiazm__(real *, real *, real *, real *);
extern int mpfsin__(real *, real *, real *, real *);
extern int mpisin__(real *, real *, real *, real *);
extern int mpzktd__(real *, real *, real *, real *);
extern int mpzek6__(real *, real *, real *, real *);
extern int mpfmer__(real *, real *, real *, real *);
extern int mpimer__(real *, real *, real *, real *);
extern int mpfpst__(real *, real *, real *, real *);
extern int mpipst__(real *, real *, real *, real *);
extern int mpscct__(real *);
extern int mpfcct__(real *, real *, real *, real *);
extern int mpicct__(real *, real *, real *, real *);
extern int mpfgno__(real *, real *, real *, real *);
extern int mpigno__(real *, real *, real *, real *);
extern int mpfmwd__(real *, real *, real *, real *);
extern int mpimwd__(real *, real *, real *, real *);
extern int mpfmil__(real *, real *, real *, real *);
extern int mpimil__(real *, real *, real *, real *);
extern int mpfcon__(real *, real *, real *, real *);
extern int mpicon__(real *, real *, real *, real *);
extern int mpscon__(real *);
extern int mpfcya__(real *, real *, real *, real *);
extern int mpicya__(real *, real *, real *, real *);
extern int mpzmwd__(real *, real *, real *, real *);
extern int mpfcyc__(real *, real *, real *, real *);
extern int mpicyc__(real *, real *, real *, real *);
extern int mpxvdg__(real *, real *, real *, real *);
extern int mpfvdg__(real *, real *, real *, real *);
extern int mpivdg__(real *, real *, real *, real *);
extern int mpfaza__(real *, real *, real *, real *);
extern int mpiaza__(real *, real *, real *, real *);
extern int mpfktd__(real *, real *, real *, real *);
extern int mpiktd__(real *, real *, real *, real *);
extern int mpfbon__(real *, real *, real *, real *);
extern int mpibon__(real *, real *, real *, real *);
extern int mpsbon__(real *);
extern int mpfcoa__(real *, real *, real *, real *);
extern int mpicoa__(real *, real *, real *, real *);
extern int mpscoa__(real *);
extern int mpfcoc__(real *, real *, real *, real *);
extern int mpicoc__(real *, real *, real *, real *);
extern int mpscoc__(real *, real *);
extern int mpfplc__(real *, real *, real *, real *);
extern int mpiplc__(real *, real *, real *, real *);
extern int mpxplc__(real *, real *, real *, real *);
extern int mpfcyb__(real *, real *, real *, real *);
extern int mpicyb__(real *, real *, real *, real *);
extern int mpscyb__(real *);
extern int mpfhmr__(real *, real *, real *, real *);
extern int mpihmr__(real *, real *, real *, real *);
extern int mpfmwl__(real *, real *, real *, real *);
extern int mpimwl__(real *, real *, real *, real *);
extern int mpfek6__(real *, real *, real *, real *);
extern int mpiek6__(real *, real *, real *, real *);
extern int mpfpt2__(real *, real *, real *, real *);
extern int mpipt2__(real *, real *, real *, real *);
extern int mpfcyl__(real *, real *, real *, real *);
extern int mpicyl__(real *, real *, real *, real *);
extern int mpfglb__(real *, real *, real *, real *);
extern int mpiglb__(real *, real *, real *, real *);
extern int mpfotg__(real *, real *, real *, real *);
extern int mpiotg__(real *, real *, real *, real *);
extern int mpsotg__(real *);
extern int mpfrbs__(real *, real *, real *, real *);
extern int mpirbs__(real *, real *, real *, real *);
extern void osgenv__(char *, char *, integer Lename, integer Leval);
extern int osgarg__(integer *, char *, ftnlen char_len);
extern int osqarn__(integer *);
extern void osexec__(char *, integer Lcmd);
extern void osabrt__(void);
extern int vicon1__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int vifct0__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int vifct1__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int iset1__(integer *, integer *, integer *, integer *);
extern int imlt0__(integer *, integer *, integer *, integer *);
extern int iset0__(integer *, integer *, integer *, integer *);
extern int imlt__(integer *, integer *, integer *, integer *);
extern int vicon0__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int vicon__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int iadd1__(integer *, integer *, integer *, integer *);
extern int viinc__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int viset__(integer *, integer *, integer *, integer *, integer *);
extern int viset0__(integer *, integer *, integer *, integer *, integer *);
extern int viset1__(integer *, integer *, integer *, integer *, integer *);
extern int viinc0__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int iadd__(integer *, integer *, integer *, integer *);
extern int viinc1__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int vifct__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int iset__(integer *, integer *, integer *, integer *);
extern int iadd0__(integer *, integer *, integer *, integer *);
extern int imlt1__(integer *, integer *, integer *, integer *);
extern int imin1__(integer *, integer *, integer *);
extern int isum0__(integer *, integer *, integer *);
extern int imin0__(integer *, integer *, integer *);
extern int isum1__(integer *, integer *, integer *);
extern int imax1__(integer *, integer *, integer *);
extern int isum__(integer *, integer *, integer *);
extern int imax__(integer *, integer *, integer *);
extern int imax0__(integer *, integer *, integer *);
extern int imin__(integer *, integer *, integer *);
extern logical lfromc__(char *, ftnlen cx_len);
extern int jfromc__(char *, ftnlen cx_len);
extern int ifromc__(char *, ftnlen cx_len);
extern int ct2ch__(real *, real *, real *, real *);
extern int cr3c__(real *, real *, real *, real *, real *, real *, real *, real *, real *);
extern int ct2pc__(real *, real *, real *, real *);
extern int ct2hc__(real *, real *, real *, real *);
extern int cr2c__(real *, real *, real *, real *, real *);
extern int ct3cs__(real *, real *, real *, real *, real *, real *);
extern int ct2cp__(real *, real *, real *, real *);
extern int ct3sc__(real *, real *, real *, real *, real *, real *z__);
extern int ct2bc__(real *, real *, real *, real *);
extern int ct2ec__(real *, real *, real *, real *);
extern int cr3s__(real *, real *, real *, real *,  real *, real *, real *);
extern int irlt__(real *);
extern int irge__(real *);
extern int irle__(real *);
extern int irgt__(real *);
extern int visub__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int vidiv0__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int vidiv1__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int visub0__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int vimlt0__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int vimlt__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int vimlt1__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int visub1__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int viadd__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int vidiv__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int viadd0__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int viadd1__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int g2ibl2__(real *, real *, real *, real *, real *, real *, real *, real *, real *, real *, real *,  real *);
extern int g2fbli__(real *, real *, real *, real *, real *, real *, real *z__);
extern logical lg2inq__(real *, real *, real *, real *, real *, real *, real *, real *, real *, real *);
extern int g2fbl2__(real *, real *, real *, real *, real *, real *, real *, real *, real *, real *, real *,  real *);
extern void g2qgrd__(integer *, integer *,  real *, real *, real *, real *,  real *, real *, real *, real *);
extern void g2sgrd__(real *,  integer *, integer *, integer *, integer *,  real *, real *, real *, real *);
extern int rpnget__(void);
extern int rtiget__(char *, char *, integer *, integer *, ftnlen cpfix_len, ftnlen cps_len);
extern int rtlget__(char *, char *, logical *, integer *, ftnlen cpfix_len, ftnlen cps_len);
extern int rtrget__(char *, char *, real *, integer *, ftnlen cpfix_len, ftnlen cps_len);
extern int rtcget__(char *, char *, char *, integer *, ftnlen cpfix_len, ftnlen cps_len, ftnlen cpara_len);
extern int rliget__(char *, integer *, integer *,  ftnlen cpl_len);
extern int rllget__(char *, logical *, integer *,  ftnlen cpl_len);
extern int rlrget__(char *, real *, integer *, ftnlen  cpl_len);
extern int rlcget__(char *, char *, integer *, ftnlen  cpl_len, ftnlen cpara_len);
extern int gllget__(char *, logical *, ftnlen cp_len);
extern int gllset__(char *, logical *, ftnlen cp_len);
extern int gllstx__(char *, logical *, ftnlen cp_len);
extern int glqfnm__(char *, char *, ftnlen cpara_len,  ftnlen cfname_len);
extern int glrget__(char *, real *, ftnlen cp_len);
extern int glrset__(char *, real *, ftnlen cp_len);
extern int glrstx__(char *, real *, ftnlen cp_len);
extern int prcopn__(char *, ftnlen cproc_len);
extern int prccls__(char *, ftnlen cproc_len);
extern int prclvl__(integer *);
extern int prcnam__(integer *, char *, ftnlen cproc_len);
extern int rpnenv__(void);
extern int rtienv__(char *, char *, integer *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtlenv__(char *, char *, logical *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtrenv__(char *, char *, real *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtcenv__(char *, char *, char *, ftnlen  cpfix_len, ftnlen cp_len, ftnlen cpara_len);
extern int rlienv__(char *, integer *, ftnlen cp_len);
extern int rllenv__(char *, logical *, ftnlen cp_len);
extern int rlrenv__(char *, real *, ftnlen cp_len);
extern int rlcenv__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int rpnopt__(void);
extern int rtiopt__(char *, char *, integer *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtlopt__(char *, char *, logical *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtropt__(char *, char *, real *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtcopt__(char *, char *, char *, ftnlen  cpfix_len, ftnlen cp_len, ftnlen cpara_len);
extern int rliopt__(char *, integer *, ftnlen cp_len);
extern int rllopt__(char *, logical *, ftnlen cp_len);
extern int rlropt__(char *, real *, ftnlen cp_len);
extern int rlcopt__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int mszdmp__(char *, integer *, integer *,  ftnlen cmsg_len);
extern int msgdmp__(char *, char *, char *, ftnlen, ftnlen, ftnlen);
extern int iufopn__(void);
extern int gllqnp__(integer *);
extern int gllqid__(char *, integer *, ftnlen cp_len);
extern int gllqcp__(integer *, char *, ftnlen cp_len);
extern int gllqcl__(integer *, char *, ftnlen cp_len);
extern int gllqvl__(integer *, logical *);
extern int gllsvl__(integer *, logical *);
extern int gllqin__(char *, integer *, ftnlen cp_len);
extern int gliget__(char *, integer *, ftnlen cp_len);
extern int gliset__(char *, integer *, ftnlen cp_len);
extern int glistx__(char *, integer *, ftnlen cp_len);
extern int rpnxfl__(void);
extern int rtixfl__(char *, char *, integer *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtlxfl__(char *, char *, logical *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtrxfl__(char *, char *, real *, ftnlen  cpfix_len, ftnlen cp_len);
extern int rtcxfl__(char *, char *, char *, ftnlen  cpfix_len, ftnlen cp_len, ftnlen cval_len);
extern int rlixfl__(char *, integer *, ftnlen cp_len);
extern int rllxfl__(char *, logical *, ftnlen cp_len);
extern int rlrxfl__(char *, real *, ftnlen cp_len);
extern int rlcxfl__(char *, char *, ftnlen cp_len, ftnlen  cval_len);
extern int cfsrch__(char *, integer *, char *, integer  *, char *, ftnlen cplist_len, ftnlen cflist_len, ftnlen  cfname_len);
extern int glcget__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int glcset__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern int glcstx__(char *, char *, ftnlen cp_len, ftnlen  cpara_len);
extern logical lchreq__(char *, char *, ftnlen ch1_len, ftnlen ch2_len);
extern int glpqnp__(integer *);
extern int glpqid__(char *, integer *, ftnlen cp_len);
extern int glpqcp__(integer *, char *, ftnlen cp_len);
extern int glpqcl__(integer *, char *, ftnlen cp_len);
extern int glpqit__(integer *, integer *);
extern int glpqvl__(integer *, integer *);
extern int glpsvl__(integer *, integer *);
extern int glpqin__(char *, integer *, ftnlen cp_len);
extern int glpget__(char *, integer *, ftnlen cp_len);
extern int glpset__(char *, integer *, ftnlen cp_len);
extern int glpstx__(char *, integer *, ftnlen cp_len);
extern int dxfloc__(integer *, integer *, integer *, integer *);
extern int dxiloc__(integer *, integer *, integer *, integer *);
extern int vrgnn__(real *, integer *, integer *);
extern int vignn__(integer *, integer *, integer *);
extern int vrmlt0__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vrdiv0__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vradd0__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vrdiv__(real *, real *, real *, integer *, integer  *, integer *, integer *);
extern int vrsub1__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vradd__(real *, real *, real *, integer *, integer  *, integer *, integer *);
extern int vrsub__(real *, real *, real *, integer *, integer  *, integer *, integer *);
extern int vrsub0__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vradd1__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vrmlt1__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vrdiv1__(real *, real *, real *, integer *,  integer *, integer *, integer *);
extern int vrmlt__(real *, real *, real *, integer *, integer  *, integer *, integer *);
extern int imod__(integer *, integer *);
extern int igus__(real *);
extern int gnsblk__(real *, integer *);
extern int gnqblk__(real *, integer *);
extern int gnlt__(real *, real *, integer *);
extern int gnle__(real *, real *, integer *);
extern int gngt__(real *, real *, integer *);
extern int gnge__(real *, real *, integer *);
extern int gnsave__(void);
extern int gnrset__(void);
extern int passb4__(integer *, integer *, real *, real *,  real *, real *, real *);
extern int passb5__(integer *, integer *, real *, real *,  real *, real *, real *, real *);
extern int radf4__(integer *, integer *, real *, real *,  real *, real *, real *);
extern int costi__(integer *, real *);
extern int radf2__(integer *, integer *, real *, real *,  real *);
extern int passb2__(integer *, integer *, real *, real *,  real *);
extern int cfftb__(integer *, real *, real *);
extern int sint1__(integer *, real *, real *, real *, real *, integer *);
extern int sint__(integer *, real *, real *);
extern int passf4__(integer *, integer *, real *, real *,  real *, real *, real *);
extern int rfftf__(integer *, real *, real *);
extern int radb3__(integer *, integer *, real *, real *,  real *, real *);
extern int ezfft1__(integer *, real *, integer *);
extern int sinqi__(integer *, real *);
extern int passb__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *,  real *);
extern int cffti__(integer *, real *);
extern int radb5__(integer *, integer *, real *, real *,  real *, real *, real *, real *);
extern int passb3__(integer *, integer *, real *, real *,  real *, real *);
extern int cfftf__(integer *, real *, real *);
extern int cfftb1__(integer *, real *, real *, real *,  integer *);
extern int radb4__(integer *, integer *, real *, real *,  real *, real *, real *);
extern int passf5__(integer *, integer *, real *, real *,  real *, real *, real *, real *);
extern int passf3__(integer *, integer *, real *, real *,  real *, real *);
extern int ezffti__(integer *, real *);
extern int cosqb1__(integer *, real *, real *, real *);
extern int rfftb1__(integer *, real *, real *, real *,  integer *);
extern int radb2__(integer *, integer *, real *, real *,  real *);
extern int rfftb__(integer *, real *, real *);
extern int cfftf1__(integer *, real *, real *, real *,  integer *);
extern int ezfftf__(integer *, real *, real *, real *,  real *, real *);
extern int radbg__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *);
extern int cost__(integer *, real *, real *);
extern int passf__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *,  real *);
extern int radf3__(integer *, integer *, real *, real *,  real *, real *);
extern int radfg__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *);
extern int cosqf1__(integer *, real *, real *, real *);
extern int cffti1__(integer *, real *, integer *);
extern int ezfftb__(integer *, real *, real *, real *,  real *, real *);
extern int passf2__(integer *, integer *, real *, real *,  real *);
extern int cosqb__(integer *, real *, real *);
extern int sinqf__(integer *, real *, real *);
extern int radf5__(integer *, integer *, real *, real *,  real *, real *, real *, real *);
extern int rffti__(integer *, real *);
extern int rfftf1__(integer *, real *, real *, real *,  integer *);
extern int cosqi__(integer *, real *);
extern int sinti__(integer *, real *);
extern int cosqf__(integer *, real *, real *);
extern int sinqb__(integer *, real *, real *);
extern int rffti1__(integer *, real *, integer *);
extern int odrget__(char *, real *, ftnlen cp_len);
extern int odrset__(char *, real *, ftnlen cp_len);
extern int odrstx__(char *, real *, ftnlen cp_len);
extern int odrqnp__(integer *);
extern int odrqid__(char *, integer *, ftnlen cp_len);
extern int odrqcp__(integer *, char *, ftnlen cp_len);
extern int odrqcl__(integer *, char *, ftnlen cp_len);
extern int odrqvl__(integer *, real *);
extern int odrsvl__(integer *, real *);
extern int odrqin__(char *, integer *, ftnlen cp_len);
extern int odiget__(char *, integer *, ftnlen cp_len);
extern int odiset__(char *, integer *, ftnlen cp_len);
extern int odistx__(char *, integer *, ftnlen cp_len);
extern int odlqnp__(integer *);
extern int odlqid__(char *, integer *, ftnlen cp_len);
extern int odlqcp__(integer *, char *, ftnlen cp_len);
extern int odlqcl__(integer *, char *, ftnlen cp_len);
extern int odlqvl__(integer *, logical *);
extern int odlsvl__(integer *, logical *);
extern int odlqin__(char *, integer *, ftnlen cp_len);
extern int odpqnp__(integer *);
extern int odpqid__(char *, integer *, ftnlen cp_len);
extern int odpqcp__(integer *, char *, ftnlen cp_len);
extern int odpqcl__(integer *, char *, ftnlen cp_len);
extern int odpqit__(integer *, integer *);
extern int odpqvl__(integer *, integer *);
extern int odpsvl__(integer *, integer *);
extern int odpqin__(char *, integer *, ftnlen cp_len);
extern int odlget__(char *, logical *, ftnlen cp_len);
extern int odlset__(char *, logical *, ftnlen cp_len);
extern int odlstx__(char *, logical *, ftnlen cp_len);
extern int odiqnp__(integer *);
extern int odiqid__(char *, integer *, ftnlen cp_len);
extern int odiqcp__(integer *, char *, ftnlen cp_len);
extern int odiqcl__(integer *, char *, ftnlen cp_len);
extern int odiqvl__(integer *, integer *);
extern int odisvl__(integer *, integer *);
extern int odiqin__(char *, integer *, ftnlen cp_len);
extern int odpget__(char *, integer *, ftnlen cp_len);
extern int odpset__(char *, integer *, ftnlen cp_len);
extern int odpstx__(char *, integer *, ftnlen cp_len);
extern int shfw2g__(integer *, integer *, integer *, real *,  real *, real *, real *);
extern int shinip__(integer *, integer *, real *, real *,  real *);
extern int shinif__(integer *, real *);
extern int shlbwu__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real  *, real *r__);
extern int shmwjz__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, real *r__);
extern int shiniz__(integer *, real *, real *, real *z__);
extern int shly2x__(integer *, integer *, integer *, real *,  real *, real *, real *z__);
extern int shpfun__(integer *, integer *, integer *, real *,  real *, real *, real *, real *, real *r__);
extern int shinic__(integer *, integer *, real *, real *);
extern int shlfwl__(integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shlbwj__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *,  real *r__);
extern int shmwjm__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *,  real *, real *, real *, real *r__);
extern int shlsds__(integer *, integer *, integer *, real *,  real *, real *r__);
extern int shinix__(integer *, real *, real *, real *, real *);
extern int shmdxm__(integer *, real *, real *);
extern int shfwga__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shmsri__(integer *, integer *, real *, real *);
extern int shfwgz__(integer *, integer *, real *, real *);
extern int shmw2s__(integer *, integer *, integer *, real *,  real *, real *, real *, real *, real *, real *, real *,  real *, real *, real *z__);
extern int shfftb__(integer *, real *, real *);
extern int shlbwl__(integer *, integer *, real *, real *,  real *, real *);
extern int shlfwm__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real  *, real *, real *z__);
extern int shinir__(integer *, real *r__);
extern int shlbwm__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *r__);
extern int shppma__(integer *, integer *, integer *, real *,  real *, real *, real *r__);
extern int shinit__(integer *, integer *, integer *, real *,  real *, real *, real *, real *, real *, real *, real *,  real *, real *, real *, real *);
extern int shfwgj__(integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shmdxj__(real *, real *);
extern int sholap__(integer *, integer *, real *, real *);
extern int shtlib__(void);
extern int shtint__(integer *, integer *, integer *, real *);
extern int shtlap__(integer *, integer *, real *, real *);
extern int shtnml__(integer *, integer *, integer *, integer *, integer *);
extern int shtfun__(integer *, integer *, integer *, real *,  real *);
extern int shtlfw__(integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shtlbw__(integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shts2w__(integer *, integer *, integer *, real *,  real *, real *);
extern int shtswa__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shtswz__(integer *, integer *, integer *, real *,  real *, real *);
extern int shtswm__(integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shtswj__(integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shtw2s__(integer *, integer *, integer *, real *,  real *, real *);
extern int shtw2g__(integer *, integer *, integer *, real *,  real *, real *);
extern int shtwga__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shtwgm__(integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shtwgz__(integer *, integer *, real *, real *);
extern int shtwgj__(integer *, integer *, integer *, integer *, real *, real *, real *);
extern int shtg2w__(integer *, integer *, integer *, real *,  real *, real *);
extern int shts2g__(integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shtsga__(integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shtsgz__(integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shtsgm__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *);
extern int shtsgj__(integer *, integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shtg2s__(integer *, integer *, integer *, integer *, real *, real *, real *, real *);
extern int shfg2w__(integer *, integer *, integer *, real *,  real *, real *, real *);
extern int shmswa__(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real  *, real *, real *r__);
extern int shmswz__(integer *, integer *, integer *, real *,  real *, real *, real *, real *, real *, real *, real *r__);
extern int shfftf__(integer *, real *, real *);
extern int shlssd__(integer *, integer *, integer *, real *,  real *, real *r__);
extern int shmswm__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, real *, real *r__);
extern int shms2w__(integer *, integer *, integer *, real *,  real *, real *, real *, real *, real *, real *, real *r__);
extern int shnm2l__(integer *, integer *, integer *, integer *, integer *);
extern int shfwgm__(integer *, integer *, integer *, real *,  real *, real *, real *, real *);
extern int shlfwu__(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real  *, real *, real *, real *, real *z__);
extern int shiniy__(integer *, real *, real *, real *);
extern int shmswj__(integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *,  real *, real *, real *, real *r__);
extern int shppmj__(integer *, integer *, integer *, integer *, real *, real *, real *, real *r__);
extern int vrrnm__(real *, real *, integer *, integer *,  integer *, integer *);
extern int vrrnm1__(real *, real *, integer *, integer *,  integer *, integer *);
extern int vrrnm0__(real *, real *, integer *, integer *,  integer *, integer *);
extern int vs2int__(real *, integer *, integer *, integer *);
extern int vs2din__(real *, integer *, integer *, integer *,  real *, real *);
extern int vs2out__(real *, integer *, integer *, integer *);
extern int vs1int__(real *, integer *, integer *);
extern int vs1din__(real *, integer *, integer *, real *);
extern int vs1out__(real *, integer *, integer *);
extern int vrintr__(real *, integer *, integer *);
extern int chngr__(char *, char *, real *, char *, ftnlen  ch_len, ftnlen ca_len, ftnlen cfmt_len);
extern int chngi__(char *, char *, integer *, char *,  ftnlen ch_len, ftnlen ca_len, ftnlen cfmt_len);
extern int chngc__(char *, char *, char *, ftnlen ch_len,  ftnlen ca_len, ftnlen cb_len);
extern void clckst__(void);
extern void clckgt__(real *);
extern void clckdt__(real *);
extern void dateq3__(integer *, integer *, integer *);
extern int date12__(integer *, integer *, integer *);
extern int dateg3__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int iweek1__(integer *);
extern int ndate1__(integer *, integer *);
extern int dateq1__(integer *);
extern int date32__(integer *, integer *, integer *, integer *);
extern int ndate3__(integer *, integer *, integer *, integer *, integer *, integer *);
extern int datec3__(char *, integer *, integer *, integer *, ftnlen cform_len);
extern int date23__(integer *, integer *, integer *, integer *);
extern int datef2__(integer *, integer *, integer *, integer *, integer *);
extern int datec1__(char *, integer *, ftnlen cform_len);
extern int datef3__(integer *, integer *, integer *, integer *, integer *, integer *, integer *);
extern int dateg2__(integer *, integer *, integer *, integer *, integer *);
extern int date13__(integer *, integer *, integer *,  integer *);
extern int dateg1__(integer *, integer *, integer *);
extern int ndyear__(integer *);
extern int date21__(integer *, integer *, integer *);
extern int cmon__(char *, ftnlen ret_val_len, integer *);
extern int ndmon__(integer *, integer *);
extern int date31__(integer *, integer *, integer *,  integer *);
extern int datec2__(char *, integer *, integer *, ftnlen  cform_len);
extern int iweek2__(integer *, integer *);
extern int dateq2__(integer *, integer *);
extern int cweek__(char *, ftnlen ret_val_len, integer *);
extern int iweek3__(integer *, integer *, integer *);
extern int ndate2__(integer *, integer *, integer *, integer *);
extern int datef1__(integer *, integer *, integer *);
extern int clower__(char *, ftnlen ch_len);
extern int cupper__(char *, ftnlen ch_len);
extern int gbytes__(integer *, integer *, integer *,  integer *, integer *, integer *);
extern int bitpci__(char *, integer *, ftnlen cp_len);
extern int sbyte__(integer *, integer *, integer *,  integer *);
extern int gbyte__(integer *, integer *, integer *,  integer *);
extern int sbytes__(integer *, integer *, integer *,  integer *, integer *, integer *);
extern int bitpic__(integer *, char *, ftnlen cp_len);
extern int ishift__(integer *, integer *);
extern void dclvnm__(char *, integer Lvname);
extern int cdblk__(char *, ftnlen chr_len);
extern int cns__(char *, ftnlen ret_val_len, integer *);
extern real rngu0__(integer *);
extern logical lchra__(char *, ftnlen ch_len);
extern logical lchrb__(char *, ftnlen ch_len);
extern logical lchrs__(char *, ftnlen ch_len);
extern logical lchrc__(char *, ftnlen ch_len);
extern logical lchrd__(char *, ftnlen ch_len);
extern logical lchr__(char *, char *, ftnlen char_len, ftnlen cref_len);
extern logical lchrf__(char *, ftnlen ch_len);
extern logical lchrl__(char *, ftnlen ch_len);
extern int cllsrg__(real *, real *, real *, integer *,  integer *, integer *, integer *, integer *);
extern int clrgls__(integer *, integer *, integer *, real *,  real *, real *, integer *, integer *);
extern int clrgsv__(integer *, integer *, integer *, real *,  real *, real *, integer *, integer *);
extern int inorml__(integer *, real *, integer *, integer *,  real *, real *);
extern int rnorml__(real *, real *, integer *, integer *, real *, real *);
extern int clsvrg__(real *, real *, real *, integer *,  integer *, integer *, integer *, integer *);
extern int hexdic__(integer *, char *, ftnlen cp_len);
extern int hexdci__(char *, integer *, ftnlen cp_len);
extern int time12__(integer *, integer *);
extern void timeq3__(integer *, integer *, integer *);
extern int time32__(integer *, integer *, integer *, integer *);
extern int time23__(integer *, integer *, integer *, integer *);
extern int timec1__(char *, integer *, ftnlen cform_len);
extern int time31__(integer *, integer *, integer *,  integer *);
extern int timeq2__(integer *);
extern int timec2__(char *, integer *, ftnlen cform_len);
extern int timec3__(char *, integer *, integer *, integer *, ftnlen cform_len);
extern int timeq1__(integer *);
extern int time21__(integer *, integer *);
extern int time13__(integer *, integer *, integer *,  integer *);
extern int chval__(char *, real *, char *, ftnlen  cfmt_len, ftnlen cval_len);
extern real rave__(real *, integer *, integer *);
extern real rave0__(real *, integer *, integer *);
extern real rave1__(real *, integer *, integer *);
extern real rmin1__(real *, integer *, integer *);
extern real rmin0__(real *, integer *, integer *);
extern real rmin__(real *, integer *, integer *);
extern real rmax1__(real *, integer *, integer *);
extern real rmax__(real *, integer *, integer *);
extern real rmax0__(real *, integer *, integer *);
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 *, real *, real *, real *);
extern int uwsgxa__(real *, integer *);
extern int uwqgyi__(real *, integer *, real *);
extern real rvmin__(real *, integer *, integer *, integer *, integer *);
extern real rfromc__(char *, ftnlen cx_len);
extern int uwqgya__(real *, integer *);
extern int uwigyi__();
extern int uwigxi__();
extern int g2ictr__(real *, real *, real *, real *);
extern int uwqgxb__(real *, real *, integer *);
extern real rstd__(real *, integer *, integer *);
extern int uwqgyb__(real *, real *, integer *);
extern int uwsgyb__(real *, real *, integer *);
extern real rd2r__(real *);
extern real ruwgy__(integer *);
extern real rvmax0__(real *, integer *, integer *, integer *, integer *);
extern real rrms1__(real *, integer *, integer *);
extern real rvmin0__(real *, integer *, integer *, integer *, integer *);
extern real rngu1__(integer *);
extern int uwsgxz__(logical *);
extern int g2qctm__(real *, real *, real *, real *);
extern real rprd__(real *, real *, integer *, integer *, integer *);
extern real rcov__(real *, real *, integer *, integer *, integer *);
extern real rmod__(real *, real *);
extern real rfpi__();
extern real ramp__(real *, integer *, integer *);
extern real rsum__(real *, integer *, integer *);
extern int g2sctr__(integer *, integer *, real *, real *, real *, real *);
extern real rvar1__(real *, integer *, integer *);
extern real rvar0__(real *, integer *, integer *);
extern int isgc__(char *, ftnlen ch_len);
extern int uwsgya__(real *, integer *);
extern real rgnlt__(real *);
extern real rgngt__(real *);
extern int uwsgxb__(real *, real *, integer *);
extern real rvmax1__(real *, integer *, integer *, integer *, integer *);
extern real rvmin1__(real *, integer *, integer *, integer *, integer *);
extern int uwqgyz__(logical *);
extern int uwqgxi__(real *, integer *, real *);
extern real rngu2__(integer *);
extern real rgnge__(real *);
extern real rgnle__(real *);
extern real rvar__(real *, integer *, integer *);
extern int uwqgxa__(real *, integer *);
extern int g2qcti__(logical *);
extern real rcor__(real *, real *, integer *, integer *, integer *);
extern real rvmax__(real *, integer *, integer *, integer *, integer *);
extern int uwqgxz__(logical *);
extern real ruwgx__(integer *);
extern real rrms0__(real *, integer *, integer *);
extern int uwsgyz__(logical *);
extern real rudlev__(integer *);
extern real rexp__(real *, integer *, integer *);
extern real rr2d__(real *);
extern real rrms__(real *, integer *, integer *);
extern void vifna__(integer *,integer *,integer *,integer *,integer *,integer *);
extern void vifna0__(integer *,integer *,integer *,integer *,integer *,integer *);
extern void vifna1__(integer *,integer *,integer *,integer *,integer *,integer *);
extern void vrfna__(real *,real *,integer *,integer *,integer *,real *);
extern void vrfna0__(real *,real *,integer *,integer *,integer *,real *);
extern void vrfna1__(real *,real *,integer *,integer *,integer *,real *);
extern void umbndr__(integer *,integer *,real *,real *,real *,real *);
extern void vifnb__(integer *,integer *,integer *,integer *,integer *,integer *,integer *,integer *);
extern void vifnb0__(integer *,integer *,integer *,integer *,integer *,integer *,integer *,integer *);
extern void vifnb1__(integer *,integer *,integer *,integer *,integer *,integer *,integer *,integer *);
extern void vrfnb__(real *,real *,real *,integer *,integer *,integer *,integer *,real *);
extern void vrfnb0__(real *,real *,real *,integer *,integer *,integer *,integer *,real *);
extern void vrfnb1__(real *,real *,real *,integer *,integer *,integer *,integer *,real *);
extern void vcintr__(complex *,integer *,integer *);
extern int tmiget__(char *, integer *, ftnlen cp_len);
extern int tmiset__(char *, integer *, ftnlen cp_len);
extern int tmistx__(char *, integer *, ftnlen cp_len);
extern int tmiqnp__(integer *);
extern int tmiqid__(char *, integer *, ftnlen cp_len);
extern int tmiqcp__(integer *, char *, ftnlen cp_len);
extern int tmiqcl__(integer *, char *, ftnlen cp_len);
extern int tmiqvl__(integer *, integer *);
extern int tmisvl__(integer *, integer *);
extern int tmiqin__(char *, integer *, ftnlen cp_len);
extern int tmlget__(char *, logical *, ftnlen cp_len);
extern int tmlset__(char *, logical *, ftnlen cp_len);
extern int tmlstx__(char *, logical *, ftnlen cp_len);
extern int tmlqnp__(integer *);
extern int tmlqid__(char *, integer *, ftnlen cp_len);
extern int tmlqcp__(integer *, char *, ftnlen cp_len);
extern int tmlqcl__(integer *, char *, ftnlen cp_len);
extern int tmlqvl__(integer *, logical *);
extern int tmlsvl__(integer *, logical *);
extern int tmlqin__(char *, integer *, ftnlen cp_len);
extern int tmpget__(char *, integer *, ftnlen cp_len);
extern int tmpset__(char *, integer *, ftnlen cp_len);
extern int tmpstx__(char *, integer *, ftnlen cp_len);
extern int tmpqnp__(integer *);
extern int tmpqid__(char *, integer *, ftnlen cp_len);
extern int tmpqcp__(integer *, char *, ftnlen cp_len);
extern int tmpqcl__(integer *, char *, ftnlen cp_len);
extern int tmpqit__(integer *, integer *);
extern int tmpqvl__(integer *, integer *);
extern int tmpsvl__(integer *, integer *);
extern int tmpqin__(char *, integer *, ftnlen cp_len);
extern int tmrget__(char *, real *, ftnlen cp_len);
extern int tmrset__(char *, real *, ftnlen cp_len);
extern int tmrstx__(char *, real *, ftnlen cp_len);
extern int tmrqnp__(integer *);
extern int tmrqid__(char *, integer *, ftnlen cp_len);
extern int tmrqcp__(integer *, char *, ftnlen cp_len);
extern int tmrqcl__(integer *, char *, ftnlen cp_len);
extern int tmrqvl__(integer *, real *);
extern int tmrsvl__(integer *, real *);
extern int tmrqin__(char *, integer *, ftnlen cp_len);
extern int tmstla__(real *, real *, real *, real *, integer *, integer *);
extern int tmstlc__(real *, real *, real *, real *, integer *, integer *);
extern int tmstls__(real *, real *, real *, real *, integer *, integer *);
