
    int  nendo  ;   
    int  nenrei ; 
    int  sei    ; 
    int  seido  ;  
    int  kubun  ;  
    int  BANGO    ;   
    int  JIN      ;   
    int  QX       ;   
    int  SJINKOY  ;   
    int  FJINKOY  ;   
    int  YUHAIGX  ;  
    int  YUHAIGY  ;   

    int  ROUDR    ;  
    int  ROUDYR   ; 
    int  MODE     ;  
    int  KIJUN    ; 
    int  KIJUNMAP ;  
    int  KS       ;  
    int  KE       ;  
    int  KF       ;   
    int  KYOREQBK ;  
    int  KYOREQBR ; 
    int  KYOREQBS ;   
    int  KYOREQK  ;  
    int  KYOREQR  ;  
    int  KYOREQS  ;   
    int  MODESAN  ;   
    int  MODE45   ;  
    int  MIKA     ;  
    int  TANCHO   ;  
    int  XR       ; 
    int  XR1      ;   
    int  HIHO74   ;   
    int  HIHO74YR ;  
    int  HIHO74CHO ;  
    int  SYOSETEI ;  
    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  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]      ; 
    double  seisanj_j_m[ENDY-STARTY+1][5]      ; 
    double  sojinko_j_c[ENDY-STARTY+1][5]      ; 
    double  sojinko_j_m[ENDY-STARTY+1][5]      ; 
    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[11][ENDY-STARTY+1][5][121]        ;
    double  koyouj_m[11][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  seikir_c[ENDY-STARTY+1][5][121]        ; 
    double  seikir_m[ENDY-STARTY+1][5][121]        ;
    double  hiseikir_c[ENDY-STARTY+1][5][121]        ; 
    double  hiseikir_m[ENDY-STARTY+1][5][121]        ; 
    double  hiseikihurur_c[10][ENDY-STARTY+1][5][121]        ; 
    double  hiseikihurur_m[10][ENDY-STARTY+1][5][121]        ; 
    double  hiseikitanr_c[10][ENDY-STARTY+1][5][121]        ;
    double  hiseikitanr_m[10][ENDY-STARTY+1][5][121]        ;                                                  
    double  hiseikitanr_all_c[10][ENDY-STARTY+1]            ; 
    double  hiseikitanr_all_m[10][ENDY-STARTY+1]            ; 
    double  tankor_cho_c[ENDY-STARTY+1][5][121]                ; 
    double  tankor_cho_m[ENDY-STARTY+1][5][121]                ; 
    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[11][ENDY-STARTY+1]               ;
    double  heikinh_m[11][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  mika_soto3[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] ;
    double  partyuhaigr_c[ENDY-STARTY+1][121] ; 
    double  partyuhaigr_m[ENDY-STARTY+1][121] ; 
    int  xend[10][ENDY-STARTY+1]     ;
    int  PART         ; 
    int  PARTYR1      ; 
    int  PARTYR2      ; 
    int  PARTJ2       ; 
    int  PARTJJ       ; 
    int  PARTKK       ; 
    int  PARTLL       ;  
    int  PARTK1       ;  
    int  PARTK2       ; 
    int  PARTKYR      ; 
    double  partnin[ENDY-STARTY+1][5][121][30][3] ; 
    double  kbetu_partnin[ENDY-STARTY+1][5][17][30][3] ;
    double  kbetu_tankoj[ENDY-STARTY+1][5][17] ;
    double  kbetu_partkiso[5][17][30][3] ; 
    double  kbetu_partgen[ENDY-STARTY+1][5][17][30] ;
    double  partgenwari[ENDY-STARTY+1][5][121][30][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] ; 













