/*** 惂屼曄悢 ***/
extern int Cntlset;
extern int Seidn;
extern int Pseid;
extern int Useid;
extern int Kijun;
extern int Saimu;
extern int Fpset;

extern int Kyoskijun;

extern int Ks;
extern int Ke;

extern double Shunor;
extern double Ca;

extern int Kozai;
extern int Flg_Kaisho;
extern int Flg_Dmakuro;
extern int Dmakuro_Yr;
extern int Kkuci;
extern int Sienset;

extern int Flg_Rima;
extern int Rima_Yr_Str;
extern int Rima_Yr_End;
extern double Drima;

extern int Flg_Part;
extern int Part_Yr1, Part_Yr2;
extern double Cbm_Pt1, Cbm_Pt2;

extern int Flg_Houjou;
extern int Houjou_Yr;
extern double Houjou_R;

extern double Misyu;
extern double Tumawake;
extern int Psly, Pslsi, Pslsi2;
extern int Kzn, Kzny;
extern int Seitaikey;

/** 帋嶼斣崋 **/
extern char Nfile[5];
extern char Nfile2[5];
extern char Nfile3[5];
extern char Nkfile[5];
extern char Ecfile[5];
extern char Wcfile[5];

extern char Sifile[4];

extern char Cutrfile1[2];
extern char Cutrfile2[2];
extern char Cutrfile3[3];
extern char Cutrfile4[4];

extern char Tumafile[3];

extern char Saimushu[3];
extern char Saimuski[3];
extern char Siencha[13];

/* 偦偺懠曄悢 */
extern double Prema[6][ENDY-STTY+1];
extern double Premb[6][ENDY-STTY+1];

/*** 宱嵪慜採曄悢 ***/
extern double Ci[ECEDY-ECSTY+1], H[ECEDY-ECSTY+1];
extern double Ri[ECEDY-ECSTY+1], Ri2[ECEDY-ECSTY+1];
extern double Id_Hhd[ECEDY-ECSTY+1];
extern double Kra[ECEDY-ECSTY+1][116-ECXA], Krb[ECEDY-ECSTY+1][116-ECXA];
extern double Id_Cid[ECEDY-ECSTY+1];


extern double Ap[5][4][ENDY-STTY+1];
extern double Apdum[5][4][ENDY-STTY+1];
extern double Ap65[5][4][ENDY-STTY+1];
extern double Ap70[5][4][ENDY-STTY+1];

extern double A[5][4][ENDY-STTY+1];
extern double Adum[5][4][ENDY-STTY+1];
extern double A60[5][4][ENDY-STTY+1];
extern double A65[5][4][ENDY-STTY+1];
extern double A70[5][4][ENDY-STTY+1];

extern double Aiku[5][4][ENDY-STTY+1];
extern double Aikudum[5][4][ENDY-STTY+1];
extern double Aal[5][4][ENDY-STTY+1];

/* 僷乕僩偺曬廣憤妟 */
extern double Apart[4][ENDY-STTY+1];
extern double Aikupart[4][ENDY-STTY+1];
extern double A60part[4][ENDY-STTY+1];
extern double A65part[4][ENDY-STTY+1];
extern double A70part[4][ENDY-STTY+1];

extern double An[5][4][ENDY-STTY+1];
extern double Aniku[5][4][ENDY-STTY+1];
extern double Anpart[4][ENDY-STTY+1];
extern double Anikupart[4][ENDY-STTY+1];

extern double T4xtp[5][4][7][ENDY-STTY+1][116];

extern double D3bxtp[5][4][14][8][ENDY-STTY+1][116];
extern double Kfpbxtp[5][4][14][8][ENDY-STTY+1][116];
extern double Kofbxtp[5][4][14][ENDY-STTY+1][116];
extern double Kofte[5][4][14][ENDY-STTY+1][116];
extern double Kofkk[5][4][14][ENDY-STTY+1][116];
extern double Daikbxtp[5][4][9][ENDY-STTY+1][116];

extern double Kyosdx[2][7][2][ENDY-STTY+1][116];
extern double Kfkyosdx[2][7][2][ENDY-STTY+1][116];

extern double Sien[2][5][ENDY-STTY+1];
extern double Nofu[5][ENDY-STTY+1];
extern double Jyutaku[ENDY-STTY+1];

/** 夵掕棪傗挷惍棪娭學 **/
extern double Scutrk1[ECEDY-ECSTY+1], Scutrk2[ECEDY-ECSTY+1];
extern double Scutrrh[ECEDY-ECSTY+1][116-ECXA];
extern double Scutrrt[ECEDY-ECSTY+1][116-ECXA];
extern double Scutrrki[ECEDY-ECSTY+1][116-ECXA];


/** 廂巟奿擺梡曄悢乮shus偱弶婜壔乯 **/
extern double Cc[5][31][ENDY-STTY+1];
extern double Dc[5][31];

extern double Ukyu[2][5][4][ENDY-STTY+1];

/* 堦尦壔帪愊棫嬥巇暘偗梡側偳 */
extern double Siwake[5];
extern double Jisout[5];
extern double Tumazumi[5][ENDY-STTY+1];


/* 廂巟寁嶼梡媼晅旓摍僒儅儕:E3dxb[Psd][JJ][K][X] */ 
extern double E3dxb[5][14][ENDY-STTY+1][116];

/* 椵愊僇僢僩棪 */
extern double Escutrrh[ECEDY-ECSTY+1][116-ECXA];
extern double Escutrrt[ECEDY-ECSTY+1][116-ECXA];

/* 儌僨儖擭嬥梡 */
extern double W[ENDY-STTY+1][5], Kw[ENDY-STTY+1][5];
extern double Mkiso[ENDY-STTY+1], Mhirei[ENDY-STTY+1][5];

/*** 僼傽僀儖億僀儞僞 ***/
extern FILE *ifp_econ;

extern FILE *ifp10_usys[5];
extern FILE *ifp_kyos;
extern FILE *ifp27_tuma;

extern FILE *ifp_sien;
extern FILE *ifp_nofu;

extern FILE *ifp_kaiteb;
extern FILE *ifp_kaitea;
extern FILE *ifp_kokukaite;

extern FILE *ifp_wakum;
extern FILE *ifp_bas_cuta;
extern FILE *ifp_asys_cuta;
extern FILE *ifp_asys_cutb;

extern FILE *ofp01_shushi[5];
extern FILE *ofp03_summary;
extern FILE *ofp_cuta, *ofp_cutb;

extern FILE *ofp_siwake;
