/*** 制御変数 ***/
int Cntlset;
int Seidn;
int Pseid;
int Useid;
int Kijun;
int Saimu;
int Fpset;

int Kyoskijun;

int Ks;
int Ke;

double Shunor;
double Ca;

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

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

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

int Flg_Houjou;  
int Houjou_Yr;   
double Houjou_R; 

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

/** 試算番号 **/
char Nfile[5];   /* 試算番号（４桁） */
char Nfile2[5];  /* 拠出金ファイル番号（４桁） */
char Nfile3[5];  /* Fpset:9カット指定時のカット率ファイル（４桁） */
char Nkfile[5];  /* 拠出金試算番号（natの番号旧３桁）（４桁） */
char Ecfile[5];  /* 経済前提ファイル（４桁） */
char Wcfile[5];  /* 外枠ファイル（４桁） */

char Sifile[4];  /* 支援額ファイル（３桁） */

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

char Tumafile[3];

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

/* その他変数 */
double Prema[6][ENDY-STTY+1];  
double Premb[6][ENDY-STTY+1];  

/*** 経済前提変数 ***/
double Ci[ECEDY-ECSTY+1], H[ECEDY-ECSTY+1];
double Ri[ECEDY-ECSTY+1], Ri2[ECEDY-ECSTY+1];
double Id_Hhd[ECEDY-ECSTY+1];
double Kra[ECEDY-ECSTY+1][116-ECXA], Krb[ECEDY-ECSTY+1][116-ECXA];
double Id_Cid[ECEDY-ECSTY+1];


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

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

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

/* パートの報酬総額 */
double Apart[4][ENDY-STTY+1];
double Aikupart[4][ENDY-STTY+1];
double A60part[4][ENDY-STTY+1];
double A65part[4][ENDY-STTY+1];
double A70part[4][ENDY-STTY+1];

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

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

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

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

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

/** 改定率や調整率関係 **/
double Scutrk1[ECEDY-ECSTY+1], Scutrk2[ECEDY-ECSTY+1];
double Scutrrh[ECEDY-ECSTY+1][116-ECXA];
double Scutrrt[ECEDY-ECSTY+1][116-ECXA];
double Scutrrki[ECEDY-ECSTY+1][116-ECXA];


/** 収支格納用変数（shusで初期化） **/
double Cc[5][31][ENDY-STTY+1];
double Dc[5][31];

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

/* 一元化時積立金仕分け用など */
double Siwake[5];   /* 0:共済仕分け計、1:現厚年前年度末積立金、2〜4:共済の仕分け積立金 */
double Jisout[5];   /* 0:不使用、1:厚年、2:国共、3:地共、4:私学 */
double Tumazumi[5][ENDY-STTY+1]; /* 0:不使用、1:厚年、2:国共、3:地共、4:私学 */


/* 収支計算用給付費等サマリ:E3dxb[Psd][JJ][K][X] */ 
double E3dxb[5][14][ENDY-STTY+1][116];

/* 累積カット率 */
double Escutrrh[ECEDY-ECSTY+1][116-ECXA];
double Escutrrt[ECEDY-ECSTY+1][116-ECXA];

/* モデル年金用 */
double W[ENDY-STTY+1][5], Kw[ENDY-STTY+1][5];
double Mkiso[ENDY-STTY+1], Mhirei[ENDY-STTY+1][5];

/*** ファイルポインタ ***/
FILE *ifp_econ;  /* econ用 */

FILE *ifp10_usys[5]; /* u-sys出力ファイル */
FILE *ifp_kyos;    /* 拠出金ファイル */
FILE *ifp27_tuma;  /* 妻積ファイル */

FILE *ifp_sien;  /* 支援額ファイル */
FILE *ifp_nofu;  /* 納付金（回収金）ファイル */

FILE *ifp_kaiteb;    /* 比例改定率：kaiteb(u-sys) */
FILE *ifp_kaitea;    /* 定額改定率：kaitea(u-sys) */
FILE *ifp_kokukaite; /* 国年改定率（国年先決め用） */

FILE *ifp_wakum;     /* 外枠ファイル */
FILE *ifp_bas_cuta;  /* 国年先決め時の国年カット率（累積調整率） */
FILE *ifp_asys_cuta; /* カット率指定時の定額カット率 */
FILE *ifp_asys_cutb; /* カット率指定時の比例カット率 */

FILE *ofp01_shushi[5];  /* 収支出力用 */
FILE *ofp03_summary;     /* 収支サマリファイル */
FILE *ofp_cuta, *ofp_cutb; /* カット率ファイル出力用 */

FILE *ofp_siwake;
