cccc	common_arriv.inc	*************************************
ccc	common used in arrivat time readings.
ccc	hypocenter parameters		!total na200 bytes
ccc	c_hypocenter; hypocenter parameters.
ccc	sec;second for the first data on the disk.
	character*15 wave_file_win
	common /c_hypocenter/iy,im,id,ih,imin,sec,sec_wave,
     1  t,dt,phi,dphi,ram,dram,dep,ddep,nobs,fmag,sd,t_wadachi,
     2  phi_same,ram_same,iflag_same,sd_check,fmagj,iflag_hypo,
     2  nobsp,nobss,nobsall,nobsp_ini,n_key,nmecha,mode_read,
     4 iy_sakai,im_sakai,id_sakai,ih_sakai,imin_sakai,nstn_pol_err,
     3 nobsp_min_cal_hypo,wave_file_win

ccc
ccc	picked arrival time data by c_arriv
ccc	aicsa,aicsn;AIC values and S/N ratios for picked phases.
ccc	fp;F-P time in sec.
ccc	ampp;Amplitude in mkine.
ccc	nphasep,nphses;eg.  =1,2 for first event, =3,4 for second event. 
ccc	deltak,azimutha,thdega,travp,travs;not used and not defined.
ccc	poaa,ampaa,snaa,aicaa,ipolaa,rankaa,nphaseaa,; measured data for 
ccc	various phases.
ccc	ampcom; maximum amplitude for each component.
	character*2 ipola,rankp,ranks,ipolaa,rankaa
	character*7 stnw,stn_rev_pol
	character*2 ipolsakai,ipol_uda,ipol_ar
ccc	parameter (na200=200)
	parameter (na200=2500)		!97-9-18
 	common /c_plot_ps/unit_k_org_dk,sec_bef_org_dk,bai_org_dk,
     1  bai_stna(na200),nfilp_dk,nfils_dk,nfilp_dk_org,nfils_dk_org	
	character*20 person,person_org
	common /c_arriv_cha/stnw(na200),rankp(na200),ranks(na200),
     1 ipola(na200),ipolsakai(1000),stn_error(100),person,
     1 person_org,ipol_uda(na200),ipol_ar(na200),stn_rev_pol(na200)
	common /c_arriv/nstn(na200),po(na200),so(na200),sp(na200),
     1  wp(na200),ws(na200),tppa(na200),tssa(na200),tp_amax(na200),
     2 ts_amax(na200),torga(na200),kstn_plot_ord(na200),
     3  period(na200,2),aicsa(na200,2),aicsn(na200,2),resoc(na200,2),
     4  fmaga(na200),fp(na200),ampp(na200),amps(na200),deltak(na200),
     5 azimutha(na200),thdega(na200),score_box(100),ner_mechaa(900),
     6  travp(na200),travs(na200),sampwa(na200),fmagjma(na200),
     8  ntrg_flaga(na200),po_bsum(na200),pna(na200),
     8 sn_soamxa(na200),iread_pol(na200),pol_theo(na200),
     1 sn_pcoda(na200),so_bsum(na200),iminseca(na200),ipolerror(na200),
     4 ampjma(na200),betaa(na200),fil_maga(na200),so_amaxa(na200),
     5 del_near_arv(na200,30),near_stn_arv(na200,30),kcheck3a(3,na200),
     6 nobsp_near(na200),del_min_arv(na200),del_min_ave(na200)


       common /c_face/freq_face(na200),cont_face(na200),
     1 sn_av_face(na200),sn_max_face(na200)
	character*2 ipol_ps
	common /c_pick_ps/p_psa(na200,10),sn_psa(na200,10),
     1 cont_psa(na200,10),neq_psa(na200,10),kps_psa(na200,10),
     2 nphase_ps(na200),ipol_ps(na200,10),freq_psa(na200,10),
     3 org_psa(na200,10),nsel_psa(na200,2),org_ps,nobs_org,
     4 amax_log_psa(na200,10),amax_loga(na200),amax_psa(na200,10),
     5 sn_psak(na200,10),weight_psa(na200,10),ptime_psa1,
     6 ptime_psa2,near40_psa(na200,10),p_psak(na200,10),
     7 nphase_psk(na200),nobs_rm_oka(na200,2),kps_psak(na200,10),
     8 p_bsum_psa(na200,10),sn_bsum_psa(na200,10),
     9 nphase_bsum_ps(na200),amp_nois_psa(na200,10),
     1  filter_freq1,filter_freq2
	common /c_read_ps/delmax_read,p_err_max_auto_rm,
     1  s_err_max_auto_rm,p_err_max_disp,s_err_max_disp,
     2  middle_key,delmax_reads,del_range_az_plot,del_from_az_plot,
     3  kkk_th30,k_repick,az_plot_from,az_plot_to,az_plot_range
       common /c_sxs/sxsa(na200,10),nsxsa(na200),sxs_jcon(na200,10),
     1 sxs_hv(na200,10),sxs_amp(na200,10),sxs_freq(na200,10)	

       common /c_hypo_ring/neq_ring,phi_ring(10),ram_ring(10),
     1 dep_ring(10),nobsp_ring(10),t_ring(10),delmax_ring(10),
     2 po_ring(10,500),so_ring(10,500),nstn_ring(10,500)
        common /c_sakai_arriv/posakai(na200),sosakai(na200),
     1 ampsakai(1000),iyeri,imeri,ideri,iheri,parv_eri,
     2 imineri,iseceri,teri,phieri,rameri,deperi,fmageri
       common /c_check_hypo/rat1_check_hypo,rat2_check_hypo,
     1 nok_check_hypo,nno_check_hypo,snps_check_hypo
	common /c_arriv2/po2(na200),so2(na200),phi_bef,ram_bef,
     1  dep_bef,t_bef,sd_bef,nobsall_bef,sp2(na200),wp2(na200),
     2  ws2(na200),
     3  period2(na200,2),aicsn2(na200,2),resoc2(na200,2)
        common /c_pick_pol/iplk,k_pol_read,k_rem_pol