FILE *fp_jinkom;     
FILE *fp_jinkof;       
FILE *fp_jinkow;      
FILE *fp_jinkoy;      
FILE *fp_roudritu;     
FILE *fp_roudhosei;    
FILE *fp_map;          
FILE *fp_setakyo;  
FILE *fp_qp;          
FILE *fp_kyos;         
FILE *fp_mikanyu;       
FILE *fp_ichirou;     
FILE *fp_wakuout;      
FILE *fp_cutout;       
FILE *fp_testout;       
FILE *fp_err;          
FILE *fp_part;      


char    filename[250]    ; 
char    filename_m[250]  ; 
char    filename_f[250]  ; 
double  buffer[DATA_MAX] ;
int     data_number      ;
double  previous_buffer0 ;

