real*4 c_zs
      integer nnt_zs,nct_zs,nint_gr_zs,istart_zs,iend_zs,itype_zs,
     &  itel_zs,ielstart_zs,ielend_zs,nscp_gr_zs,iscpstart_zs,
     &  iscpend_zs,iatsc_s_zs,iatsc_e_zs,iatel_s_zs,iatel_e_zs,
     &  iatscp_s_zs,iatscp_e_zs,nres_zs,ns_zs,nss_zs,nfree_zs,iss_zs,
     &  ihpb_zs,jhpb_zs,nhpb_zs,link_start_zs,link_end_zs,ialph_zs,
     &  nvar_zs,loc_start_zs,loc_end_zs,ithet_start_zs,ithet_end_zs,
     &  iphi_start_zs,iphi_end_zs,ntheta_zs,nphi_zs,nside_zs,
     &  itau_start_zs,itau_end_zs,iturn3_start_zs,iturn3_end_zs,
     &  iturn4_start_zs,iturn4_end_zs
      double precision dhpb_zs,forcon_zs
      common/allprot/c_zs(3,maxres2,maxstr_proc,maxprot),
     &  nres_zs(maxprot)
      common/interact_zs/nnt_zs(maxprot),nct_zs(maxprot),
     & nint_gr_zs(maxres,maxprot),istart_zs(maxres,maxint_gr,maxprot),
     & iend_zs(maxres,maxint_gr,maxprot),itype_zs(maxres,maxprot),
     & itel_zs(maxres,maxprot),ielstart_zs(maxres,maxprot),
     & ielend_zs(maxres,maxprot),nscp_gr_zs(maxres,maxprot),
     & iscpstart_zs(maxres,maxint_gr,maxprot),
     & iscpend_zs(maxres,maxint_gr,maxprot),
     & iatsc_s_zs(maxprot),iatsc_e_zs(maxprot),iatel_s_zs(maxprot),
     & iatel_e_zs(maxprot),iatscp_s_zs(maxprot),iatscp_e_zs(maxprot),
     & iturn3_start_zs(maxprot),iturn3_end_zs(maxprot),
     & iturn4_start_zs(maxprot),iturn4_end_zs(maxprot),
     & ialph_zs(maxres,2,maxprot),nvar_zs(maxprot),ntheta_zs(maxprot),
     & nphi_zs(maxprot),nside_zs(maxprot),
     & loc_start_zs(maxprot),loc_end_zs(maxprot),
     & ithet_start_zs(maxprot),ithet_end_zs(maxprot),
     & iphi_start_zs(maxprot),iphi_end_zs(maxprot),
     & itau_start_zs(maxprot),itau_end_zs(maxprot)
      common /sbridge_zs/ ns_zs(maxprot),nss_zs(maxstr_proc,maxprot),
     &  nfree_zs(maxprot),iss_zs(maxss,maxprot)
      common /links_zs/ dhpb_zs(maxss,maxprot),
     &  forcon_zs(maxss,maxprot),ihpb_zs(maxss,maxstr_proc,maxprot),
     & jhpb_zs(maxss,maxstr_proc,maxprot),nhpb_zs(maxstr_proc,maxprot)
      common /links_split_zs/ link_start_zs(maxprot),
     &  link_end_zs(maxprot)