ccc	common_stncod.inc	*************************************
ccc	station code data
ccc	nstobs;number of total stations of the tetwork.
ccc	stnobs,nstnobs;station code(a4) and station number.
ccc	phiobs,ramobs,altobs; Station lat.,long., and altitude.
ccc	phis,rams;Station cordinate in polar axes  and in radian.
ccc	stcr;station correction of P and S wave including delat by telemetry. 
	character*7 stnobs
	parameter (ns200=5000)           !03-7-16 
	common /c_station_cha/stnobs(ns200)

	common /c_station/ nstobs,nstnobs(ns200),
     1  phiobs(ns200),ramobs(ns200),altobs(ns200),phis(ns200),
     2  rams(ns200),stcr(ns200,2),fmag_cor(ns200),gps_stcr(ns200),
     1  deljmahypa(ns200),ntype_obsa(ns200),ntype_velmodel_org
	parameter (num_near_tbl=50)
	parameter (del_near_max=100.0) 
	common /c_trg_near_table/del_near_all(ns200,num_near_tbl),
     1  near_stn_all(ns200,num_near_tbl),obs_kessoku_all(ns200),
     2 iminsec_all(ns200),iminsec_trg_all(ns200),ntrg_stn_table,
     3 udalong_all(ns200),udashort_all(ns200),kopen_all(ns200),
     4 jtcont_all(ns200),ktrig_eq(30000),ktrig_stn_eq(30000),
     5 iminsec_trg_eq(30000),nstn_event(10),num_stn_event(10),
     6 ntrg_event, udalong_band(ns200),udashort_band(ns200),
     7 kstn_key,kk_key,po_key,iminsec_key_event(10),iminsec_key,
     8  twind_appro_p,snopen_all(ns200),sn_trg_eq(30000),
     9 ktrg_stn_flag(30000),del_near_dista(ns200),kessoku_stn(ns200),
     1 poobs(ns200),soobs(ns200),nsel_stna(ns200)
	common /c_trg_pick/p_trga(ns200,1000),kps_trga(ns200,1000),
     1 sn_trga(ns200,1000),cont_trga(ns200,1000),nphase_trga(ns200),
     1 near40_trga(ns200,1000),ntrg_trga(ns200,1000),samp_trga(ns200) 
	common /c_no_gps/id_nogps(ns200,5000),nobs_no_gps,
     1 nc_nogps(ns200)
	character*7 stn_gpsa
	common /cha_no_gps/stn_gpsa(ns200)


	include 'def_nmem.inc'
ccc     parameter for velocity structure
ccc	v=al(1,kps)*(r1/radius)**be(1,kps)	!for first layer.
ccc	v=al(2,kps)*(r1/rmoho)**be(2,kps)	!for second layer.
ccc	radius,rmoho;radius of the earth and the Moho discontinuity.
	common /cvel/al(2,2),be(2,2),radius,rmoho,ntype_velmodel
      parameter (trg_lev_land2=2.0) 
      parameter (isec_land_cont=10)
      parameter (isec_after_land=50)
      parameter (isec_pre_land=40)
