3 + ,tbor_u,tine_u,tnuc_u,tpro_u
5 + ,tbor_p,tine_p,tnuc_p,tpro_p
6 + ,vac_u,vertex_u,small_u,redfac_u
7 + ,sig1g_udis,sigrad_udis
8 + ,tbor_udis,tine_udis,tnuc_udis,tpro_udis
9 + ,sig1g_pdis,sigrad_pdis
10 + ,tbor_pdis,tine_pdis,tnuc_pdis,tpro_pdis
11 + ,vac_udis,vertex_udis,small_udis,redfac_udis
12 + ,sig1g_upho,sigrad_upho
13 + ,tbor_upho,tine_upho,tnuc_upho,tpro_upho
14 + ,sig1g_ppho,sigrad_ppho
15 + ,tbor_ppho,tine_ppho,tnuc_ppho,tpro_ppho
16 + ,vac_upho,vertex_upho,small_upho,redfac_upho
17 common/xytab/
x(nt),
y(nt)
18 + ,sig1g_u(nt,nt),sigrad_u(nt,nt),tbor_u(nt,nt)
19 + ,tine_u(nt,nt),tnuc_u(nt,nt),tpro_u(nt,nt)
20 + ,sig1g_p(nt,nt),sigrad_p(nt,nt),tbor_p(nt,nt)
21 + ,tine_p(nt,nt),tnuc_p(nt,nt),tpro_p(nt,nt)
22 + ,vac_u(nt,nt),vertex_u(nt,nt),small_u(nt,nt)
24 + ,sig1g_udis(ntdis,ntdis),sigrad_udis(ntdis,ntdis)
25 + ,tbor_udis(ntdis,ntdis),tine_udis(ntdis,ntdis)
26 + ,tnuc_udis(ntdis,ntdis),tpro_udis(ntdis,ntdis)
27 + ,sig1g_pdis(ntdis,ntdis),sigrad_pdis(ntdis,ntdis)
28 + ,tbor_pdis(ntdis,ntdis),tine_pdis(ntdis,ntdis)
29 + ,tnuc_pdis(ntdis,ntdis),tpro_pdis(ntdis,ntdis)
30 + ,vac_udis(ntdis,ntdis),vertex_udis(ntdis,ntdis)
31 + ,small_udis(ntdis,ntdis),redfac_udis(ntdis,ntdis)
32 + ,sig1g_upho(ntpho,ntpho),sigrad_upho(ntpho,ntpho)
33 + ,tbor_upho(ntpho,ntpho),tine_upho(ntpho,ntpho)
34 + ,tnuc_upho(ntpho,ntpho),tpro_upho(ntpho,ntpho)
35 + ,sig1g_ppho(ntpho,ntpho),sigrad_ppho(ntpho,ntpho)
36 + ,tbor_ppho(ntpho,ntpho),tine_ppho(ntpho,ntpho)
37 + ,tnuc_ppho(ntpho,ntpho),tpro_ppho(ntpho,ntpho)
38 + ,vac_upho(ntpho,ntpho),vertex_upho(ntpho,ntpho)
39 + ,small_upho(ntpho,ntpho),redfac_upho(ntpho,ntpho)