common

      dimension id_m(3),ts(3),tl(3),hf(3)

      common /block0/id_conf
      common /block1/d_in,thickness_p,carbon_eq,t0_p
      common /block2/id_f,velocity,pressure,t0_f
      common /block3/id_ele,heat_in,speed,angle_w,area_w,r_cc
      common /block4/d_branch_in,thickness_s,gap,gap2,t0_s,angle_wrtb
      common /block5/t_env,emissivity,h_env
      common /block6/id_m,ts,tl,hf,tcr1,tcr2,tcr3
      common /block7/w_b,w_c,w_cr,w_cu,w_mn,w_mo,     &     w_ni,w_nb,w_n,w_si,w_v
      common /block8/w_b2,w_c2,w_cr2,w_cu2,w_mn2,w_mo2,&     w_ni2,w_nb2,w_n2,w_si2,w_v2
    COMMON /block9/oldmesher,gs01,gs02
    COMMON /MESHING/DLENGTH1, DHAZ, DLENGTH2, DBAND, DMESHSIZE