source/wham/src-HCD/COMMON.ALLPARM

   1       double precision ww_all(max_ene,max_parm),
   2      & vbldp0_all(max_parm),akp_all(max_parm),
   3      & vbldsc0_all(maxbondterm,ntyp,max_parm),
   4      & aksc_all(maxbondterm,ntyp,max_parm),
   5      & abond0_all(maxbondterm,ntyp,max_parm),
   6      & a0thet_all(-ntyp:ntyp,max_parm),
   7      & athet_all(2,-ntyp:ntyp,-1:1,-1:1,max_parm),
   8      & bthet_all(2,-ntyp:ntyp,-1:1,-1:1,max_parm),
   9      & polthet_all(0:3,-ntyp:ntyp,max_parm),
  10      & gthet_all(3,-ntyp:ntyp,max_parm),theta0_all(-ntyp:ntyp,max_parm),
  11      & sig0_all(-ntyp:ntyp,max_parm),sigc0_all(-ntyp:ntyp,max_parm),
  12      & aa0thet_all(-maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
  13      & -maxthetyp1:maxthetyp1,2,max_parm),
  14      & aathet_all(maxtheterm,-maxthetyp1:maxthetyp1,
  15      & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,2,max_parm),
  16      & bbthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
  17      & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,2,max_parm),
  18      & ccthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
  19      &-maxthetyp1:maxthetyp1,
  20      & -maxthetyp1:maxthetyp1,2,max_parm),
  21      & ddthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
  22      & -maxthetyp1:maxthetyp1,
  23      & -maxthetyp1:maxthetyp1,2,max_parm),
  24      & eethet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
  25      & -maxthetyp1:maxthetyp1,
  26      & -maxthetyp1:maxthetyp1,2,max_parm),
  27      & ffthet_all1(maxdouble,maxdouble,maxtheterm3,
  28      & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
  29      &  -maxthetyp1:maxthetyp1,max_parm),
  30      & ggthet_all1(maxdouble,maxdouble,maxtheterm3,
  31      &  -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
  32      &  -maxthetyp1:maxthetyp1,max_parm),
  33      & ffthet_all2(maxdouble,maxdouble,maxtheterm3,
  34      & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
  35      &  -maxthetyp1:maxthetyp1,max_parm),
  36      & ggthet_all2(maxdouble,maxdouble,maxtheterm3,
  37      &  -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
  38      &  -maxthetyp1:maxthetyp1,max_parm),
  39      & dsc_all(ntyp1,max_parm),bsc_all(maxlob,ntyp,max_parm),
  40      & censc_all(3,maxlob,-ntyp:ntyp,max_parm),
  41      & gaussc_all(3,3,maxlob,-ntyp:ntyp,max_parm),
  42      & dsc0_all(ntyp1,max_parm),
  43      & sc_parmin_all(65,ntyp,max_parm),
  44      & v0_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  45      & v1_all(maxterm,-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  46      & v2_all(maxterm,-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  47      & vlor1_all(maxlor,maxtor,maxtor,max_parm),
  48      & vlor2_all(maxlor,maxtor,maxtor,max_parm),
  49      & vlor3_all(maxlor,maxtor,maxtor,max_parm),
  50      & v1c_all(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,
  51      & -maxtor:maxtor,2,max_parm),
  52      & v1s_all(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,
  53      & -maxtor:maxtor,2,max_parm),
  54      & v2c_all(maxtermd_2,maxtermd_2,-maxtor:maxtor,
  55      & -maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  56      & v2s_all(maxtermd_2,maxtermd_2,-maxtor:maxtor,-maxtor:maxtor,
  57      & -maxtor:maxtor,2,max_parm),
  58      & b_all(5,-maxtor:maxtor,max_parm),
  59      & ccold_all(2,2,-maxtor:maxtor,max_parm),
  60      & ddold_all(2,2,-maxtor:maxtor,max_parm),
  61      & eeold_all(2,2,-maxtor:maxtor,max_parm),
  62      & bnew1_all(3,2,-maxtor:maxtor,max_parm),
  63      & bnew2_all(3,2,-maxtor:maxtor,max_parm),
  64      & ccnew_all(3,2,-maxtor:maxtor,max_parm),
  65      & ddnew_all(3,2,-maxtor:maxtor,max_parm),
  66      & eenew_all(2,2,2,-maxtor:maxtor,max_parm),
  67      & e0new_all(2,-maxtor:maxtor,max_parm),
  68      & app_all(2,2,max_parm),bpp_all(2,2,max_parm),
  69      & ael6_all(2,2,max_parm),ael3_all(2,2,max_parm),
  70      & aad_all(ntyp,2,max_parm),bad_all(ntyp,2,max_parm),
  71      & aa_aq_all(ntyp,ntyp,max_parm),bb_aq_all(ntyp,ntyp,max_parm),
  72      & aa_lip_all(ntyp,ntyp,max_parm),bb_lip_all(ntyp,ntyp,max_parm),
  73      & augm_all(ntyp,ntyp,max_parm),eps_all(ntyp,ntyp,max_parm),
  74      & epslip_all(ntyp,ntyp,max_parm),
  75      & sigma_all(ntyp,ntyp,max_parm),r0_all(ntyp,ntyp,max_parm),
  76      & chi_all(ntyp,ntyp,max_parm),chip_all(ntyp,max_parm),
  77      & alp_all(ntyp,max_parm),ebr_all(max_parm),d0cm_all(max_parm),
  78      & akcm_all(max_parm),akth_all(max_parm),akct_all(max_parm),
  79      & v1ss_all(max_parm),v2ss_all(max_parm),v3ss_all(max_parm),
  80      & v1sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm),
  81      & v2sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm)
  82       integer nlob_all(ntyp1,max_parm),
  83      & nlor_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  84      & nterm_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  85      & ntermd1_all(-maxtor:maxtor,-maxtor:maxtor,
  86      & -maxtor:maxtor,2,max_parm),
  87      & ntermd2_all(-maxtor:maxtor,-maxtor:maxtor,
  88      & -maxtor:maxtor,2,max_parm),
  89      & nbondterm_all(ntyp,max_parm),nthetyp_all(max_parm),
  90      & ithetyp_all(-ntyp1:ntyp1,max_parm),ntheterm_all(max_parm),
  91      & ntheterm2_all(max_parm),ntheterm3_all(max_parm),
  92      & nsingle_all(max_parm),ndouble_all(max_parm),
  93      & nntheterm_all(max_parm),
  94      &nterm_sccor_all(-ntyp:ntyp,-ntyp:ntyp,max_parm)
  95       common /allparm/ ww_all,vbldp0_all,akp_all,vbldsc0_all,aksc_all,
  96      & abond0_all,aa0thet_all,aathet_all,bbthet_all,ccthet_all,
  97      & ddthet_all,eethet_all,ffthet_all1,ggthet_all1,
  98      & ffthet_all2,ggthet_all2,
  99      & a0thet_all,athet_all,bthet_all,polthet_all,gthet_all,theta0_all,
 100      & sig0_all,sigc0_all,dsc_all,bsc_all,censc_all,gaussc_all,dsc0_all,
 101      & sc_parmin_all,
 102      & v0_all,v1_all,v2_all,vlor1_all,vlor2_all,vlor3_all,v1c_all,
 103      & v1s_all,v2c_all,v2s_all,b_all,ccold_all,ddold_all,eeold_all,
 104      & bnew1_all,bnew2_all,ccnew_all,ddnew_all,eenew_all,e0new_all,
 105      & app_all,bpp_all,ael6_all,
 106      & ael3_all,aad_all,bad_all,aa_aq_all,bb_aq_all,augm_all,
 107      & aa_lip_all,bb_lip_all,epslip_all,
 108      & eps_all,sigma_all,r0_all,chi_all,chip_all,alp_all,ebr_all,
 109      & d0cm_all,akcm_all,akth_all,akct_all,v1ss_all,v2ss_all,v3ss_all,
 110      & v1sccor_all,v2sccor_all,nbondterm_all,
 111      & nlob_all,nlor_all,nterm_all,ntermd1_all,ntermd2_all,
 112      & nthetyp_all,ithetyp_all,ntheterm_all,ntheterm2_all,ntheterm3_all,
 113      & nsingle_all,ndouble_all,nntheterm_all,nterm_sccor_all