2 integer nnt_zs,nct_zs,nint_gr_zs,istart_zs,iend_zs,itype_zs,
3 & itel_zs,ielstart_zs,ielend_zs,nscp_gr_zs,iscpstart_zs,
4 & iscpend_zs,iatsc_s_zs,iatsc_e_zs,iatel_s_zs,iatel_e_zs,
5 & iatscp_s_zs,iatscp_e_zs,nres_zs,ns_zs,nss_zs,nfree_zs,iss_zs,
6 & ihpb_zs,jhpb_zs,nhpb_zs,link_start_zs,link_end_zs,ialph_zs,
7 & nvar_zs,loc_start_zs,loc_end_zs,ithet_start_zs,ithet_end_zs,
8 & iphi_start_zs,iphi_end_zs,ntheta_zs,nphi_zs,nside_zs,
9 & itau_start_zs,itau_end_zs,iturn3_start_zs,iturn3_end_zs,
10 & iturn4_start_zs,iturn4_end_zs
11 double precision dhpb_zs,forcon_zs
12 common/allprot/c_zs(3,maxres2,maxstr_proc,maxprot),
14 common/interact_zs/nnt_zs(maxprot),nct_zs(maxprot),
15 & nint_gr_zs(maxres,maxprot),istart_zs(maxres,maxint_gr,maxprot),
16 & iend_zs(maxres,maxint_gr,maxprot),itype_zs(maxres,maxprot),
17 & itel_zs(maxres,maxprot),ielstart_zs(maxres,maxprot),
18 & ielend_zs(maxres,maxprot),nscp_gr_zs(maxres,maxprot),
19 & iscpstart_zs(maxres,maxint_gr,maxprot),
20 & iscpend_zs(maxres,maxint_gr,maxprot),
21 & iatsc_s_zs(maxprot),iatsc_e_zs(maxprot),iatel_s_zs(maxprot),
22 & iatel_e_zs(maxprot),iatscp_s_zs(maxprot),iatscp_e_zs(maxprot),
23 & iturn3_start_zs(maxprot),iturn3_end_zs(maxprot),
24 & iturn4_start_zs(maxprot),iturn4_end_zs(maxprot),
25 & ialph_zs(maxres,2,maxprot),nvar_zs(maxprot),ntheta_zs(maxprot),
26 & nphi_zs(maxprot),nside_zs(maxprot),
27 & loc_start_zs(maxprot),loc_end_zs(maxprot),
28 & ithet_start_zs(maxprot),ithet_end_zs(maxprot),
29 & iphi_start_zs(maxprot),iphi_end_zs(maxprot),
30 & itau_start_zs(maxprot),itau_end_zs(maxprot)
31 common /sbridge_zs/ ns_zs(maxprot),nss_zs(maxstr_proc,maxprot),
32 & nfree_zs(maxprot),iss_zs(maxss,maxprot)
33 common /links_zs/ dhpb_zs(maxss,maxprot),
34 & forcon_zs(maxss,maxprot),ihpb_zs(maxss,maxstr_proc,maxprot),
35 & jhpb_zs(maxss,maxstr_proc,maxprot),nhpb_zs(maxstr_proc,maxprot)
36 common /links_split_zs/ link_start_zs(maxprot),
37 & link_end_zs(maxprot)