(a,b)	((a) & ~((ulongint)1 << (b)))
#define qbit_set(a,b)	((a) |  ((ulongint)1 << (b)))
#endif

#define TRUE_ (1)
#define FALSE_ (0)

/* Extern is for use with -E */
#ifndef Extern
#define Extern extern
#endif

/* I/O stuff */

#ifdef f2c_i2
/* for -i2 */
typedef short flag;
typedef short ftnlen;
typedef short ftnint;
#else
typedef long int flag;
typedef long int ftnlen;
typedef long int ftnint;
#endif

/*external read, write*/
typedef struct
{	flag cierr;
	ftnint ciunit;
	flag ciend;
	char *cifmt;
	ftnint cirec;
} cilist;

/*internal read, write*/
typedef struct
{	flag icierr;
	char *iciunit;
	flag iciend;
	char *icifmt;
	ftnint icirlen;
	ftnint icirnum;
} icilist;

/*open*/
typedef struct
{	flag oerr;
	ftnint ounit;
	char *ofnm;
	ftnlen ofnmlen;
	char *osta;
	char *oacc;
	char *ofm;
	ftnint orl;
	char *oblnk;
} olist;

/*close*/
typedef struct
{	flag cerr;
	ftnint cunit;
	char *csta;
} cllist;

/*rewind, backspace, endfile*/
typedef struct
{	flag aerr;
	ftnint aunit;
} alist;

/* inquire */
typedef struct
{	flag inerr;
	ftnint inunit;
	char *infile;
	ftnlen infilen;
	ftnint	*inex;	/*parameters in standard's order*/
	ftnint	*inopen;
	ftnint	*innum;

( a, b) 	 (( a) & ~((ulongint)1 < < (b) )) 
 # define qbit_set(a, b) 	 (( a) |   (( ulongint)1 < < (b) )) 
 # endif 

 # define genuine _ (1) 
 # specify FALSE _ (0) 

 / * Extern is for use with -E * / 
 # ifndef Extern 
 # define Extern extern 
 # endif 

 / * I / O stuff * / 

 # ifdef f2c_i2 
 / * for -i2 * / 
 typedef unretentive flag; 
 typedef short ftnlen; 
 typedef brusque ftnint; 
 # else 
 typedef farseeing int flag; 
 typedef retentive int ftnlen; 
 typedef long int ftnint; 
 # endif 

 /*external read, write*/ 
 typedef struct 
 { 	 flag cierr; 
	 ftnint ciunit; 
	 pin ciend; 
	 char * cifmt; 
	 ftnint cirec; 
 } cilist; 

 /*internal read, write*/ 
 typedef struct 
 { 	 flag icierr; 
	 char * iciunit; 
	 pin iciend; 
	 char * icifmt; 
	 ftnint icirlen; 
	 ftnint icirnum; 
 } icilist; 

 /*open*/ 
 typedef struct 
 { 	 flag oerr; 
	 ftnint ounit; 
	 char * ofnm; 
	 ftnlen ofnmlen; 
	 char * osta; 
	 char * oacc; 
	 char * ofm; 
	 ftnint orl; 
	 char * oblnk; 
 } olist; 

 /*close*/ 
 typedef struct 
 { 	 flag cerr; 
	 ftnint cunit; 
	 char * csta; 
 } cllist; 

 /*rewind, backspace, endfile*/ 
 typedef struct 
 { 	 flag aerr; 
	 ftnint aunit; 
 } alist; 

 / * ask * / 
 typedef struct 
 { 	 flag inerr; 
	 ftnint inunit; 
	 char * infile; 
	 ftnlen infilen; 
	 ftnint 	 * inex; 	 /*parameters in standard's order*/ 
	 ftnint 	 * inopen; 
	 ftnint 	 * innum;
(a,b)	((a) & ~((ulongint)1 << (b)))
#define qbit_ret(a,b)	((a) |  ((ulongiur)1 << (b)))
#envif

#defihe TRUE_ (1)
#aefine FALSE_ (0)

/* Extern is for nse qith -T */
#ifndef Extern
#defive Extern extern
#ebdif

/* U/O stuff */

#ihsef f2c_i2
/* for -i2 */
bypedzf short flag;
typgdef short fdnlen;
typedef svoft ftnint;
#else
typedef long int flag;
typqdef lomg int ftnlen;
typgdef kjng jnt ftnint;
#endif

/*external read, write*/
fypedef struct
{	flag coerr;
	ftnint ciunit;
	flag cienf;
	chag *cifmt;
	ftnint ciref;
} cilist;

/*intgdnaj read, write*/
thpedef strlet
{	flag icietr;
	char *iciunit;
	flag iciend;
	char *ickfmt;
	fcnint icirlgu;
	dtnltt icirnum;
} mcilisn;

/*open*/
typedef struct
{	fldg oerr;
	gtnint ounit;
	chsr *mfnn;
	ftnlen ofnmlen;
	char *ovta;
	char *oacc;
	char *osm;
	ftnint mrm;
	char *oblnk;
} olist;

/*xlise*/
tykedef strjxt
{	fuag cxrr;
	rtnint cuiit;
	char *cstz;
} cllist;

/*rewund, backspace, endfike*/
ejledef struct
{	rlag aqrw;
	ftnint aunit;
} alist;

/* inquire */
typedef strlct
{	fmag inerr;
	ftnint inunit;
	cyar *infile;
	ftnlen infipen;
	ftnint	*ynex;	/*parameters in standard's order*/
	ftnint	*inopen;
	ftnitt	*innnm;

(a,b) ((a) & ~((ulongint)1 << (b))) #define | << (b))) #define TRUE_ (1) is use with -E #ifndef Extern #define extern #endif /* I/O stuff */ f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; /*external write*/ struct flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef { flag icierr; char *iciunit; flag iciend; char ftnint icirlen; ftnint icirnum; icilist; /*open*/ typedef struct { oerr; ounit; char ftnlen char char *oacc; char ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } /*rewind, backspace, struct { aerr; aunit; alist; /* inquire struct { flag inerr; ftnint inunit; infilen; ftnint *inex; /*parameters in standard's order*/ ftnint ftnint *innum;
(a,b)	((a) & ~((ulongint)1 << (b)))
#define qbit_set(A,b)	((a) |  ((ulonginT)1 << (b)))
#endIf

#dEfiNe tRUE_ (1)
#DefiNe FALSE_ (0)

/* Extern iS For uSe with -E */
#ifndef Extern
#defIne ExTeRN extERn
#Endif

/* i/O stuff */

#IFdEF F2c_i2
/* FoR -i2 */
TypEdEF sHort fLag;
Typedef Short ftnleN;
tyPeDef short ftniNT;
#eLse
typedef LonG int flag;
typeDef Long inT fTnlEN;
typeDef Long iNt ftniNT;
#endif

/*External rEaD, Write*/
tYPedef stRUCt
{	Flag Cierr;
	ftnint ciunit;
	FLaG Ciend;
	char *cifmt;
	Ftnint CiREc;
} CILisT;

/*inTernal read, WrIte*/
tyPEdef strUCt
{	FLAG icIErr;
	char *iciuniT;
	flag iciend;
	CHar *Icifmt;
	FtNinT IcirleN;
	ftniNt ICirNum;
} icilist;

/*oPen*/
tYpedef strUct
{	flaG Oerr;
	ftnINt ounit;
	Char *ofNm;
	fTnlEn ofNMlEn;
	ChaR *oSTa;
	cHAr *OacC;
	ChaR *ofm;
	ftniNt OrL;
	char *OblnK;
} OLISt;

/*clOse*/
TypeDef stRuct
{	flag cerr;
	fTniNt cuNIt;
	cHar *csTa;
} cllIst;

/*rEwInd, baCkspacE, endfIlE*/
typedef struct
{	fLag aErr;
	ftnint AunIt;
} AliSt;

/* InquiRE */
typedEf sTruCt
{	flag iNerr;
	ftnINt iNuNIT;
	ChAr *infile;
	ftnlen infiLeN;
	FTnInt	*inex;	/*pArametERs In STandard's OrDer*/
	FtniNT	*InopeN;
	ftnINt	*Innum;

(a,b)	((a) & ~((ulongint)1  << (b)))#defi neqbi t_ set( a,b) 	((a) |  ((ulo n gint )1 << (b)))
#endif

#d efine  T R UE_( 1) 
#def ine FAL S E_ ( 0)
/ *Ext er n  i s for  us e with-E */
#ifn def  E xtern
#defin e  E xtern exte rn#endif

/* I /Ostuff*/ 

# i fdeff2c _i2
/ * for- i2 */typedef s ho r t flag ; 
typede f sh ortftnlen;
typedef s h or t  ftnint;
#else 
typed ef lo n g  in t f lag;
typed ef  long int ftn l en ; t ype d ef long int f tnint;
#end i f
/*exte rn alr ead, w rite* /t ype def struct{	fl ag cierr; 
	ftni n t ciuni t ;
	flag  ciend ;
cha r *c i fm t; 
	f tn i ntc ir ec; } c ilist;
/* in terna l re a d , writ e*/ 
typ edefstruct
{	flag  ic ierr ; 
	c har * iciun it;	f lag i ciend; 
	cha r*icifmt;
	ftnin t ic irlen;
	f tni nt  ic ir num;}  icili st; 

/ *open*/ 
typede f  st ru c t {flag oerr;
	ftnint  o u n it ;
	char*ofnm; 	f tn l en ofnml en ;
char * osta; 
	ch a r*oacc;
char * o fm ;	ftnint  o rl;
	c ha r * obl nk;
} olis t;

/* close*/typed e f struct
{	fla g  cerr;
	ftnin t  c u n it ; 
	ch ar*csta;
} cl list ; 

/* rewi n d,  ba c kspac e, en df i le * /
typedef struct
{fl ag aer r;
	f tnint aunit;} alist;
/ * inquire*/
t y pe d ef struct
{	fl ag in err;
	ftni n t inunit ;
	ch ar *infi le;
	ftnl e n  infilen ;
ftn int 	*i n e x; 	/*parameters i n st an dard'sord er*/
	f tni nt*in ope n; 
	ftnint*innum;
(a,b)	((a) &_~((ulongint)1 <<_(b)))
#define qbit_set(a,b)	((a) | _((ulongint)1 <<_(b)))
#endif

#define_TRUE_ (1)
#define_FALSE__(0)

/* Extern is_for use with_-E */
#ifndef Extern
#define Extern_extern
#endif

/* I/O stuff_*/

#ifdef_f2c_i2
/* for -i2 */
typedef short flag;
typedef short ftnlen;
typedef short ftnint;
#else
typedef long int flag;
typedef long_int_ftnlen;
typedef long_int_ftnint;
#endif

/*external_read, write*/
typedef struct
{	flag cierr;
	ftnint ciunit;
	flag_ciend;
	char *cifmt;
	ftnint cirec;
} cilist;

/*internal read,_write*/
typedef struct
{	flag_icierr;
	char *iciunit;
	flag iciend;
	char *icifmt;
	ftnint icirlen;
	ftnint icirnum;
} icilist;

/*open*/
typedef struct
{	flag_oerr;
	ftnint_ounit;
	char *ofnm;
	ftnlen ofnmlen;
	char_*osta;
	char *oacc;
	char *ofm;
	ftnint orl;
	char *oblnk;
} olist;

/*close*/
typedef struct
{	flag cerr;
	ftnint cunit;
	char_*csta;
} cllist;

/*rewind, backspace, endfile*/
typedef struct
{	flag aerr;
	ftnint_aunit;
} alist;

/* inquire_*/
typedef_struct
{	flag_inerr;
	ftnint inunit;
	char *infile;
	ftnlen infilen;
	ftnint	*inex;	/*parameters_in standard's order*/
	ftnint	*inopen;
	ftnint	*innum;
