source/maxlik/src_MD_T_maxlik-NEWCORR-PMF/COMMON.ALLPROT

   1       real*4 c_zs
   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),
  13      &  nres_zs(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)