Merge branch 'devel' into AFM

[unres.git] / source / wham / src-NEWSC / include_unres / COMMON.WEIGHTS

diff --git a/source/wham/src-NEWSC/include_unres/COMMON.WEIGHTS b/source/wham/src-NEWSC/include_unres/COMMON.WEIGHTS
new file mode 100755 (executable)
index 0000000..d7e6e23
--- /dev/null
+++ b/source/wham/src-NEWSC/include_unres/COMMON.WEIGHTS
@@ -0,0 +1,22 @@
+      double precision ww,ww0,ww_low,ww_up,ww_orig,x_orig,
+     &  epp_low,epp_up,rpp_low,rpp_up,elpp6_low,elpp6_up,elpp3_low,
+     &  elpp3_up,b_low,b_up,epscp_low,epscp_up,rscp_low,rscp_up,
+     &  x_up,x_low,xm,xm1,xm2,epss_low,epss_up,epsp_low,epsp_up
+      integer imask,mask_elec,mask_fourier,mod_fourier,mask_scp,indz,iw,
+     &  nsingle_sc,npair_sc,ityp_ssc,ityp_psc
+      logical mod_other_params,mod_elec,mod_scp,mod_side
+      common /chujec/ ww(max_ene),ww0(max_ene),ww_low(max_ene),
+     &  ww_up(max_ene),ww_orig(max_ene),x_orig(max_paropt),
+     &  epp_low(2,2),epp_up(2,2),rpp_low(2,2),rpp_up(2,2),
+     &  elpp6_low(2,2),elpp6_up(2,2),elpp3_low(2,2),elpp3_up(2,2),
+     &  b_low(13,3),b_up(13,3),x_up(max_paropt),x_low(max_paropt),
+     &  epscp_low(0:20,2),epscp_up(0:20,2),rscp_low(0:20,2),
+     &  rscp_up(0:20,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
+     &  epsp_up(nntyp),
+     &  xm(max_paropt,0:maxprot),xm1(max_paropt,0:maxprot),
+     &  xm2(max_paropt,0:maxprot),
+     &  imask(max_ene),nsingle_sc,npair_sc,ityp_ssc(ntyp),
+     &  ityp_psc(2,nntyp),mask_elec(2,2,4),
+     &  mask_fourier(13,3),
+     &  mask_scp(0:20,2,2),mod_other_params,mod_fourier(0:3),
+     &  mod_elec,mod_scp,mod_side,indz(maxbatch+1,maxprot),iw(max_ene)