source/wham/src-M-Pawel/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      & b1_all(2,-maxtor:maxtor,max_parm),
  59      & b2_all(2,-maxtor:maxtor,max_parm),
  60      & cc_all(2,2,-maxtor:maxtor,max_parm),
  61      & dd_all(2,2,-maxtor:maxtor,max_parm),
  62      & ee_all(2,2,-maxtor:maxtor,max_parm),
  63      & ctilde_all(2,2,-maxtor:maxtor,max_parm),
  64      & dtilde_all(2,2,-maxtor:maxtor,max_parm),
  65      & b1tilde_all(2,-maxtor:maxtor,max_parm),
  66      & app_all(2,2,max_parm),bpp_all(2,2,max_parm),
  67      & ael6_all(2,2,max_parm),ael3_all(2,2,max_parm),
  68      & aad_all(ntyp,2,max_parm),bad_all(ntyp,2,max_parm),
  69      & aa_all(ntyp,ntyp,max_parm),bb_all(ntyp,ntyp,max_parm),
  70      & augm_all(ntyp,ntyp,max_parm),eps_all(ntyp,ntyp,max_parm),
  71      & sigma_all(ntyp,ntyp,max_parm),r0_all(ntyp,ntyp,max_parm),
  72      & chi_all(ntyp,ntyp,max_parm),chip_all(ntyp,max_parm),
  73      & alp_all(ntyp,max_parm),ebr_all(max_parm),d0cm_all(max_parm),
  74      & akcm_all(max_parm),akth_all(max_parm),akct_all(max_parm),
  75      & v1ss_all(max_parm),v2ss_all(max_parm),v3ss_all(max_parm),
  76      & v1sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm),
  77      & v2sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm)
  78       integer nlob_all(ntyp1,max_parm),
  79      & nlor_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  80      & nterm_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
  81      & ntermd1_all(-maxtor:maxtor,-maxtor:maxtor,
  82      & -maxtor:maxtor,2,max_parm),
  83      & ntermd2_all(-maxtor:maxtor,-maxtor:maxtor,
  84      & -maxtor:maxtor,2,max_parm),
  85      & nbondterm_all(ntyp,max_parm),nthetyp_all(max_parm),
  86      & ithetyp_all(-ntyp1:ntyp1,max_parm),ntheterm_all(max_parm),
  87      & ntheterm2_all(max_parm),ntheterm3_all(max_parm),
  88      & nsingle_all(max_parm),ndouble_all(max_parm),
  89      & nntheterm_all(max_parm),
  90      &nterm_sccor_all(-ntyp:ntyp,-ntyp:ntyp,max_parm)
  91       common /allparm/ ww_all,vbldp0_all,akp_all,vbldsc0_all,aksc_all,
  92      & abond0_all,aa0thet_all,aathet_all,bbthet_all,ccthet_all,
  93      & ddthet_all,eethet_all,ffthet_all1,ggthet_all1,
  94      & ffthet_all2,ggthet_all2,
  95      & a0thet_all,athet_all,bthet_all,polthet_all,gthet_all,theta0_all,
  96      & sig0_all,sigc0_all,dsc_all,bsc_all,censc_all,gaussc_all,dsc0_all,
  97      & sc_parmin_all,
  98      & v0_all,v1_all,v2_all,vlor1_all,vlor2_all,vlor3_all,v1c_all,
  99      & v1s_all,v2c_all,v2s_all,b1_all,b2_all,cc_all,dd_all,ee_all,
 100      & ctilde_all,dtilde_all,b1tilde_all,app_all,bpp_all,ael6_all,
 101      & ael3_all,aad_all,bad_all,aa_all,bb_all,augm_all,
 102      & eps_all,sigma_all,r0_all,chi_all,chip_all,alp_all,ebr_all,
 103      & d0cm_all,akcm_all,akth_all,akct_all,v1ss_all,v2ss_all,v3ss_all,
 104      & v1sccor_all,v2sccor_all,nbondterm_all,
 105      & nlob_all,nlor_all,nterm_all,ntermd1_all,ntermd2_all,
 106      & nthetyp_all,ithetyp_all,ntheterm_all,ntheterm2_all,ntheterm3_all,
 107      & nsingle_all,ndouble_all,nntheterm_all,nterm_sccor_all