X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fmake_xx_list.F;h=a69ee13927b94055961e0fdfc29b40766f3130bf;hb=5aac27f7c6317fa0975184363614b42716034716;hp=a83740fb8cecbe4417ed5a53c205615fb5855cf5;hpb=fd10e81284102e5a8466e05c87f0202979a2f00b;p=unres.git

diff --git a/source/unres/src-HCD-5D/make_xx_list.F b/source/unres/src-HCD-5D/make_xx_list.F
index a83740f..a69ee13 100644
--- a/source/unres/src-HCD-5D/make_xx_list.F
+++ b/source/unres/src-HCD-5D/make_xx_list.F
@@ -12,7 +12,7 @@
       double precision xi,yi,zi,xj,yj,zj,xj_safe,yj_safe,zj_safe,
      &  xj_temp,yj_temp,zj_temp
       double precision dist_init, dist_temp,r_buff_list
-      integer contlisti(200*maxres),contlistj(200*maxres)
+      integer contlisti(2000*maxres),contlistj(2000*maxres)
 !      integer :: newcontlisti(200*nres),newcontlistj(200*nres) 
       integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
      &  ilist_sc,g_ilist_sc
@@ -164,12 +164,12 @@ c        write(iout,*) "before bcast",g_ilist_sc
       double precision xi,yi,zi,xj,yj,zj,xj_safe,yj_safe,zj_safe,
      &  xj_temp,yj_temp,zj_temp
       double precision dist_init, dist_temp,r_buff_list
-      integer contlistscpi(200*maxres),contlistscpj(200*maxres)
+      integer contlistscpi(2000*maxres),contlistscpj(2000*maxres)
 !      integer :: newcontlistscpi(200*nres),newcontlistscpj(200*nres)
       integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
      &  ilist_scp,g_ilist_scp
       integer displ(0:max_fg_procs),i_ilist_scp(0:max_fg_procs),ierr
-      integer contlistscpi_f(200*maxres),contlistscpj_f(200*maxres)
+      integer contlistscpi_f(2000*maxres),contlistscpj_f(2000*maxres)
       integer ilist_scp_first,ifirstrun,g_ilist_sc
 !            print *,"START make_SC"
 #ifdef DEBUG
@@ -349,7 +349,7 @@ c        write(iout,*) "before bcast",g_ilist_sc
      &  xmedi,ymedi,zmedi
       double precision dx_normi,dy_normi,dz_normi,dxj,dyj,dzj,
      &  dx_normj,dy_normj,dz_normj
-      integer contlistpp_vdwi(200*maxres),contlistpp_vdwj(200*maxres)
+      integer contlistpp_vdwi(2000*maxres),contlistpp_vdwj(2000*maxres)
 !      integer :: newcontlistppi(200*nres),newcontlistppj(200*nres)
       integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
      &  ilist_pp_vdw,g_ilist_pp_vdw
@@ -509,7 +509,7 @@ c        write(iout,*) "before bcast",g_ilist_sc
      &  xmedi,ymedi,zmedi
       double precision dx_normi,dy_normi,dz_normi,dxj,dyj,dzj,
      &  dx_normj,dy_normj,dz_normj
-      integer contlistppi(200*maxres),contlistppj(200*maxres)
+      integer contlistppi(2000*maxres),contlistppj(2000*maxres)
 !      integer :: newcontlistppi(200*nres),newcontlistppj(200*nres)
       integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
      &  ilist_pp,g_ilist_pp