source/wham/src/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,max_parm),
  13      & aathet_all(maxtheterm,maxthetyp1,maxthetyp1,maxthetyp1,max_parm),
  14      & bbthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
  15      & maxthetyp1,max_parm),
  16      & ccthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
  17      & maxthetyp1,max_parm),
  18      & ddthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
  19      & maxthetyp1,max_parm),
  20      & eethet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
  21      & maxthetyp1,max_parm),
  22      & ffthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
  23      &  maxthetyp1,max_parm),
  24      & ggthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
  25      &  maxthetyp1,max_parm),
  26      & dsc_all(ntyp1,max_parm),bsc_all(maxlob,ntyp,max_parm),
  27      & censc_all(3,maxlob,-ntyp:ntyp,max_parm),
  28      & gaussc_all(3,3,maxlob,-ntyp:ntyp,max_parm),
  29      & dsc0_all(ntyp1,max_parm),
  30      & sc_parmin_all(65,ntyp,max_parm),
  31      & v0_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  32      & v1_all(maxterm,-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  33      & v2_all(maxterm,-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  34      & vlor1_all(maxlor,maxtor,maxtor,max_parm),
  35      & vlor2_all(maxlor,maxtor,maxtor,max_parm),
  36      & vlor3_all(maxlor,maxtor,maxtor,max_parm),
  37      & v1c_all(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,
  38      & -maxtor:maxtor,2,max_parm),
  39      & v1s_all(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,
  40      & -maxtor:maxtor,2,max_parm),
  41      & v2c_all(maxtermd_2,maxtermd_2,-maxtor:maxtor,
  42      & -maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  43      & v2s_all(maxtermd_2,maxtermd_2,-maxtor:maxtor,-maxtor:maxtor,
  44      & -maxtor:maxtor,2,max_parm),
  45      & b1_all(2,-maxtor:maxtor,max_parm),
  46      & b2_all(2,-maxtor:maxtor,max_parm),
  47      & cc_all(2,2,-maxtor:maxtor,max_parm),
  48      & dd_all(2,2,-maxtor:maxtor,max_parm),
  49      & ee_all(2,2,-maxtor:maxtor,max_parm),
  50      & ctilde_all(2,2,-maxtor:maxtor,max_parm),
  51      & dtilde_all(2,2,-maxtor:maxtor,max_parm),
  52      & b1tilde_all(2,-maxtor:maxtor,max_parm),
  53      & app_all(2,2,max_parm),bpp_all(2,2,max_parm),
  54      & ael6_all(2,2,max_parm),ael3_all(2,2,max_parm),
  55      & aad_all(ntyp,2,max_parm),bad_all(ntyp,2,max_parm),
  56      & aa_all(ntyp,ntyp,max_parm),bb_all(ntyp,ntyp,max_parm),
  57      & augm_all(ntyp,ntyp,max_parm),eps_all(ntyp,ntyp,max_parm),
  58      & sigma_all(ntyp,ntyp,max_parm),r0_all(ntyp,ntyp,max_parm),
  59      & chi_all(ntyp,ntyp,max_parm),chip_all(ntyp,max_parm),
  60      & alp_all(ntyp,max_parm),ebr_all(max_parm),d0cm_all(max_parm),
  61      & akcm_all(max_parm),akth_all(max_parm),akct_all(max_parm),
  62      & v1ss_all(max_parm),v2ss_all(max_parm),v3ss_all(max_parm),
  63      & v1sccor_all(maxterm_sccor,3,ntyp,ntyp,max_parm),
  64      & v2sccor_all(maxterm_sccor,3,ntyp,ntyp,max_parm)
  65       integer nlob_all(ntyp1,max_parm),
  66      & nlor_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  67      & nterm_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  68      & ntermd1_all(-maxtor:maxtor,-maxtor:maxtor,
  69      & -maxtor:maxtor,2,max_parm),
  70      & ntermd2_all(-maxtor:maxtor,-maxtor:maxtor,
  71      & -maxtor:maxtor,2,max_parm),
  72      & nbondterm_all(ntyp,max_parm),nthetyp_all(max_parm),
  73      & ithetyp_all(ntyp1,max_parm),ntheterm_all(max_parm),
  74      & ntheterm2_all(max_parm),ntheterm3_all(max_parm),
  75      & nsingle_all(max_parm),ndouble_all(max_parm),
  76      & nntheterm_all(max_parm),nterm_sccor_all(max_parm,ntyp,ntyp)
  77       common /allparm/ ww_all,vbldp0_all,akp_all,vbldsc0_all,aksc_all,
  78      & abond0_all,aa0thet_all,aathet_all,bbthet_all,ccthet_all,
  79      & ddthet_all,eethet_all,ffthet_all,ggthet_all,
  80      & a0thet_all,athet_all,bthet_all,polthet_all,gthet_all,theta0_all,
  81      & sig0_all,sigc0_all,dsc_all,bsc_all,censc_all,gaussc_all,dsc0_all,
  82      & sc_parmin_all,
  83      & v0_all,v1_all,v2_all,vlor1_all,vlor2_all,vlor3_all,v1c_all,
  84      & v1s_all,v2c_all,v2s_all,b1_all,b2_all,cc_all,dd_all,ee_all,
  85      & ctilde_all,dtilde_all,b1tilde_all,app_all,bpp_all,ael6_all,
  86      & ael3_all,aad_all,bad_all,aa_all,bb_all,augm_all,
  87      & eps_all,sigma_all,r0_all,chi_all,chip_all,alp_all,ebr_all,
  88      & d0cm_all,akcm_all,akth_all,akct_all,v1ss_all,v2ss_all,v3ss_all,
  89      & v1sccor_all,v2sccor_all,nbondterm_all,
  90      & nlob_all,nlor_all,nterm_all,ntermd1_all,ntermd2_all,
  91      & nthetyp_all,ithetyp_all,ntheterm_all,ntheterm2_all,ntheterm3_all,
  92      & nsingle_all,ndouble_all,nntheterm_all,nterm_sccor_all