

/*  基本的な変数  */
    int  nendo  ;   /*  年度  */
    int  nenrei ;   /*  年齢  */
    int  sei    ;   /*  性（０：計、１：男、２：女計、３：女有配偶、４：女無配偶） */
    int  seido  ;   /*  制度（１：国共済、２：地共済、３：私学共済 →現存の共済                
                            ４：ＪＲ、５：ＪＴ、６：ＮＴＴ、７：農林 →旧共済（厚年の内訳として）） */
    int  kubun  ;   /*  ５歳階級別年齢区分、１：15〜19歳、…、10：60〜64歳、…、15：85歳以上 */


/*  初期設定変数  */
    int  BANGO    ;   /*  試算番号  */
    int  JIN      ;   /*  人口の設定  */
    int  QX       ;   /*  死亡率の設定 */
    int  SJINKOY  ;   /*  人口推計の開始年度 */
    int  FJINKOY  ;   /*  人口推計の終了年度 */
    int  YUHAIGX  ;   /*  有配偶率 */
    int  YUHAIGY  ;   /*  有配偶率推計の終了年度 */

    int  ROUDR    ;   /*  労働力率の設定  */
    int  ROUDYR   ;   /*  労働力率推計の終了年度  */
    int  MODE     ;   /*  モード  */
    int  KIJUN    ;   /*  基準年度  */

    int  KS       ;   /*  出力開始年度  */
    int  KE       ;   /*  推計終了年度  */
    int  KF       ;   /*  出力終了年度  */
    int  KYOREQBK ;   /*  国共済ファイル番号 */
    int  KYOREQBR ;   /*  地共済ファイル番号 */
    int  KYOREQBS ;   /*  私学共済ファイル番号 */
    int  KYOREQK  ;   /*  国共済の設定 */
    int  KYOREQR  ;   /*  地共済の設定 */
    int  KYOREQS  ;   /*  私学共済の設定 */
    int  MODESAN  ;   /*  女性３号推計方法  */

    int  MODE45   ;   /*  オプション３用  */

/*  人口関係 */
    double  jinko_c[ENDY-STARTY+1][5][121]     ; /* 年度央人口[年度][性][年齢] */
    double  jinko_m[ENDY-STARTY+1][5][121]     ; /* 年度末人口[年度][性][年齢] */
    double  sojinko_c[ENDY-STARTY+1][5]        ; /* 年度央年齢計人口[年度][性] */
    double  sojinko_m[ENDY-STARTY+1][5]        ; /* 年度末年齢計人口[年度][性] */
    double  jinko_wari[5][121]                 ; /* 年度末人口作成用 */
    double  jinko_syus[121]                    ; /* 年度末人口作成用 */
    double  yuhaigr_c[ENDY-STARTY+1][121]      ; /* 年度央女性の有配偶者割合[年度][年齢] */
    double  yuhaigr_m[ENDY-STARTY+1][121]      ; /* 年度末女性の有配偶者割合[年度][年齢] */
    double  seisanj_c[ENDY-STARTY+1][5]        ; /* 年度央生産年齢人口[年度][性] */
    double  seisanj_m[ENDY-STARTY+1][5]        ; /* 年度末生産年齢人口[年度][性] */
    double  seisanj_j_c[ENDY-STARTY+1][5]      ; /* 実績年度央生産年齢人口[年度][性]（10月1日現在） */
    double  seisanj_j_m[ENDY-STARTY+1][5]      ; /* 実績年度末生産年齢人口[年度][性]（4月1日現在） */
    double  sojinko_j_c[ENDY-STARTY+1][5]      ; /* 実績年度央総人口[年度][性]（10月1日現在） */
    double  sojinko_j_m[ENDY-STARTY+1][5]      ; /* 実績年度末総人口[年度][性]（4月1日現在） */

    double  stk_jinko_c[ENDY-STARTY+1][5][121]  ; 
    double  stk_jinko_m[ENDY-STARTY+1][5][121]  ; 
    double  stk_sojinko_c[ENDY-STARTY+1][5]     ; 
    double  stk_sojinko_m[ENDY-STARTY+1][5]     ; 
    double  stk_seisanj_c[ENDY-STARTY+1][5]     ; 
    double  stk_seisanj_m[ENDY-STARTY+1][5]     ; 
    double  str_jinko_c[ENDY-STARTY+1][5][121]  ; 
    double  str_jinko_m[ENDY-STARTY+1][5][121]  ; 
    double  str_sojinko_c[ENDY-STARTY+1][5]     ; 
    double  str_sojinko_m[ENDY-STARTY+1][5]     ; 
    double  str_seisanj_c[ENDY-STARTY+1][5]     ; 
    double  str_seisanj_m[ENDY-STARTY+1][5]     ; 
    double  sts_jinko_c[ENDY-STARTY+1][5][121]  ; 
    double  sts_jinko_m[ENDY-STARTY+1][5][121]  ; 
    double  sts_sojinko_c[ENDY-STARTY+1][5]     ; 
    double  sts_sojinko_m[ENDY-STARTY+1][5]     ; 
    double  sts_seisanj_c[ENDY-STARTY+1][5]     ; 
    double  sts_seisanj_m[ENDY-STARTY+1][5]     ; 


/*  労働力人口関係  */
    double  roudr_c[ENDY-STARTY+1][5][121]             ; /* 年度央労働力率[年度][性][年齢] */
    double  roudr_m[ENDY-STARTY+1][5][121]             ; /* 年度末労働力率[年度][性][年齢] */
    double  roudr_a_c[ENDY-STARTY+1][5][121]           ; /* 年度央労働力率[年度][性][年齢] */
    double  roudr_a_m[ENDY-STARTY+1][5][121]           ; /* 年度末労働力率[年度][性][年齢] */
    double  roudj_c[ENDY-STARTY+1][5][121]             ; 
    double  roudj_m[ENDY-STARTY+1][5][121]             ; 

    double  syuwari_c[ENDY-STARTY+1][5][121]           ; 
    double  syuwari_m[ENDY-STARTY+1][5][121]           ; 
    double  syuwari_a_c[ENDY-STARTY+1][5][121]         ; 
    double  syuwari_a_m[ENDY-STARTY+1][5][121]         ; 
    double  syugyor_c[ENDY-STARTY+1][5][121]           ; /* 年度央就業率[年度][性][年齢] */
    double  syugyor_m[ENDY-STARTY+1][5][121]           ; /* 年度末就業率[年度][性][年齢] */
    double  syugyor_a_c[ENDY-STARTY+1][5][121]         ; /* 年度央就業率[年度][性][年齢] */
    double  syugyor_a_m[ENDY-STARTY+1][5][121]         ; /* 年度末就業率[年度][性][年齢] */
    double  syugyoj_c[ENDY-STARTY+1][5][121]           ; 
    double  syugyoj_m[ENDY-STARTY+1][5][121]           ; 

    double  koyouj_c[10][ENDY-STARTY+1][5][121]        ; 
    double  koyouj_m[10][ENDY-STARTY+1][5][121]        ; 
    double  koyour_c[ENDY-STARTY+1][5][121]            ; /* 年度央雇用者割合[年度][性][年齢] */
    double  koyour_m[ENDY-STARTY+1][5][121]            ; /* 年度末雇用者割合[年度][性][年齢] */
    double  koyour_a_c[ENDY-STARTY+1][5][121]          ; /* 年度央雇用者割合[年度][性][年齢] */
    double  koyour_a_m[ENDY-STARTY+1][5][121]          ; /* 年度末雇用者割合[年度][性][年齢] */
    double  koyour_cho_c[ENDY-STARTY+1][5][121]        ; 
    double  koyour_cho_m[ENDY-STARTY+1][5][121]        ; 
    double  tankor_c[10][ENDY-STARTY+1][5][121]        ; /* 年度央短時間割合[属性][年度][性][年齢] */
    double  tankor_m[10][ENDY-STARTY+1][5][121]        ; /* 年度末短時間割合[属性][年度][性][年齢] */
    double  tankor_all_c[10][ENDY-STARTY+1]            ; 
    double  tankor_all_m[10][ENDY-STARTY+1]            ; 
    double  tankor_cho_c[ENDY-STARTY+1]                ; 
    double  tankor_cho_m[ENDY-STARTY+1]                ; 
    double  jieigyoj_c[ENDY-STARTY+1][5][121]          ; 
    double  jieigyoj_m[ENDY-STARTY+1][5][121]          ; 
    double  soroudh_c[10][ENDY-STARTY+1][5][121]       ; /* 年度央総労働時間[属性][年度][性][年齢] */
    double  soroudh_m[10][ENDY-STARTY+1][5][121]       ; /* 年度末総労働時間[属性][年度][性][年齢] */
    double  heikinh_c[10][ENDY-STARTY+1]               ; /* 平均労働時間[属性][年度] */
    double  heikinh_m[10][ENDY-STARTY+1]               ; /* 平均労働時間[属性][年度] */
    double  kounenteki_c[10][ENDY-STARTY+1]            ; /* 年度央厚年適用率[属性][年度] */
    double  kounenteki_m[10][ENDY-STARTY+1]            ; /* 年度末厚年適用率[属性][年度] */



/*  被保険者数関係（年度末）  */
  /*  ２号  */ 
    double  nigou[ENDY-STARTY+1][5][121]        ; /* ２号全体被保険者数[年度][性][年齢]                  */
    double  kounen[ENDY-STARTY+1][5][121]       ; /* 旧共済含めた厚年被保険者数計[年度][性][年齢]３種含む */
    double  qkounen[ENDY-STARTY+1][5][121]      ; /* 旧共済含ない厚年被保険者数計[年度][性][年齢]３種含む */
    double  kou12syu[ENDY-STARTY+1][5][121]     ; /* 旧共済含めた厚年１，２種被保険者数[年度][性][年齢]  */
    double  qkou12syu[ENDY-STARTY+1][5][121]    ; /* 旧共済含めない厚年１，２種被保険者数[年度][性][年齢]*/
    double  kou3syu[ENDY-STARTY+1][5][121]      ; /* 厚年３種被保険者数[年度][性][年齢]                  */
    double  kyosai[8][ENDY-STARTY+1][5][121]    ; /* 共済組合員数[制度][年度][性][年齢]                  */
  /*  ３号  */
    double  sangou[ENDY-STARTY+1][5][121]       ; /* ３号全体被保険者数[年度][性][年齢]                  */
    double  kounen3[ENDY-STARTY+1][5][121]      ; /* 旧共済含めた厚年３号人数計[年度][性][年齢]          */
    double  qkounen3[ENDY-STARTY+1][5][121]     ; /* 旧共済含ない厚年３号人数計[年度][性][年齢]          */
    double  kou12syu3[ENDY-STARTY+1][5][121]    ; /* 旧共済含めた厚年１，２種の３号人数[年度][性][年齢]  */
    double  qkou12syu3[ENDY-STARTY+1][5][121]   ; /* 旧共済含めない厚年１，２種の３号人数[年度][性][年齢]*/
    double  kou3syu3[ENDY-STARTY+1][5][121]     ; /* 厚年３種の３号人数[年度][性][年齢]                  */
    double  kyosai3[8][ENDY-STARTY+1][5][121]   ; /* 共済の３号人数[制度][年度][性][年齢]                */
  /*  １号その他  */
    double  ichigou[ENDY-STARTY+1][5][121]      ; /* １号被保険者数[年度][性][年齢]                      */
    double  ichigouip[ENDY-STARTY+1][5][121]    ; /* １号一般被保険者数[年度][性][年齢]                  */
    double  ichigouni[ENDY-STARTY+1][5][121]    ; /* １号任意加入被保険者数[年度][性][年齢]              */
    double  mika_soto1[ENDY-STARTY+1][5][121]   ; /*  人口その他[年度][性][年齢]                         */
    double  mika_soto2[ENDY-STARTY+1][5][121]   ; 
    double  kikin[ENDY-STARTY+1][5][121]        ; /*  基金加入者[年度][性][年齢]                         */
    double  r_ichigouni[ENDY-STARTY+1][5][121]  ; 
    double  r_mika_soto[ENDY-STARTY+1][5][121]  ; 

    double  kounen_cho[ENDY-STARTY+1][5][121]  ; /*  厚年調整率[年度][性][年齢]  */

  /*  厚年３種、基金加入者の厚年に対する割合 */
    double  rk_sen[ENDY-STARTY+1][5][121]       ; /*  厚年１〜３種に対する３種割合  */
    double  rk_kikin[ENDY-STARTY+1][5][121]     ; /*  厚年１、２種に対する基金割合  */

  /*  女性の有配偶率 */
    double  ichiyuhaigr[121]     ; 
    double  kouyuhaigr_c[ENDY-STARTY+1][121] ; 
    double  kouyuhaigr_m[ENDY-STARTY+1][121] ; 


  /*  被保険者上限年齢  */
    int  xend[10][ENDY-STARTY+1]     ; /*  制度別被保険者上限年齢[制度][年度]  */ 


  /*  適用拡大関係  */
    int  PART         ;  
    int  PARTYR1      ;  
    int  PARTYR2      ;  
    int  PARTJ2       ;  
    int  PARTJJ       ;  
    int  PARTK1       ;  
    int  PARTK2       ;  
    int  PARTKYR      ;  
    double  partnin[ENDY-STARTY+1][5][121][23][3] ; 
    double  kbetu_partnin[ENDY-STARTY+1][5][17][5][3] ;
    double  kbetu_tankoj[ENDY-STARTY+1][5][17] ;
    double  kbetu_partkiso[5][17][5][3] ; 
    double  kbetu_partgen[ENDY-STARTY+1][5][17][5] ;
    double  partgenwari[ENDY-STARTY+1][5][121][10][3] ;
    double  tmae[66][ENDY-STARTY][5][121]  ;  
    double  tato[66][ENDY-STARTY][5][121]  ;  
    double  tyouken[8][ENDY-STARTY] ;  
    double  syouken[8][ENDY-STARTY] ;  
    double  tjwari[8]   ;  
    double  tiwari[8]   ;  

    double  TEMP[ENDY-STARTY+1][5][121] ; 

