source/maxlik/src_MD_T_maxlik-NEWCORR-PMF-5/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,NCHAIN_ZS,NPERMCHAIN_ZS,
  11      &  CHAIN_BORDER_ZS,CHAIN_LENGTH_ZS,TABPERMCHAIN_ZS
  12       double precision dhpb_zs,forcon_zs
  13       common/allprot/c_zs(3,maxres2,maxstr_proc,maxprot),
  14      &  nres_zs(maxprot),NCHAIN_ZS(maxprot),NPERMCHAIN_ZS(maxprot),
  15      &  CHAIN_BORDER_ZS(2,maxres,maxprot),
  16      &  CHAIN_LENGTH_ZS(maxchain,maxprot),
  17      &  TABPERMCHAIN_ZS(maxchain,maxperm,maxprot)
  18       common/interact_zs/nnt_zs(maxprot),nct_zs(maxprot),
  19      & nint_gr_zs(maxres,maxprot),istart_zs(maxres,maxint_gr,maxprot),
  20      & iend_zs(maxres,maxint_gr,maxprot),itype_zs(maxres,maxprot),
  21      & itel_zs(maxres,maxprot),ielstart_zs(maxres,maxprot),
  22      & ielend_zs(maxres,maxprot),nscp_gr_zs(maxres,maxprot),
  23      & iscpstart_zs(maxres,maxint_gr,maxprot),
  24      & iscpend_zs(maxres,maxint_gr,maxprot),
  25      & iatsc_s_zs(maxprot),iatsc_e_zs(maxprot),iatel_s_zs(maxprot),
  26      & iatel_e_zs(maxprot),iatscp_s_zs(maxprot),iatscp_e_zs(maxprot),
  27      & iturn3_start_zs(maxprot),iturn3_end_zs(maxprot),
  28      & iturn4_start_zs(maxprot),iturn4_end_zs(maxprot),
  29      & ialph_zs(maxres,2,maxprot),nvar_zs(maxprot),ntheta_zs(maxprot),
  30      & nphi_zs(maxprot),nside_zs(maxprot),
  31      & loc_start_zs(maxprot),loc_end_zs(maxprot),
  32      & ithet_start_zs(maxprot),ithet_end_zs(maxprot),
  33      & iphi_start_zs(maxprot),iphi_end_zs(maxprot),
  34      & itau_start_zs(maxprot),itau_end_zs(maxprot)
  35       common /sbridge_zs/ ns_zs(maxprot),nss_zs(maxstr_proc,maxprot),
  36      &  nfree_zs(maxprot),iss_zs(maxss,maxprot)
  37       common /links_zs/ dhpb_zs(maxss,maxprot),
  38      &  forcon_zs(maxss,maxprot),ihpb_zs(maxss,maxstr_proc,maxprot),
  39      & jhpb_zs(maxss,maxstr_proc,maxprot),nhpb_zs(maxstr_proc,maxprot)
  40       common /links_split_zs/ link_start_zs(maxprot),
  41      &  link_end_zs(maxprot)