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
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 :: newcontlisti(200*nres),newcontlistj(200*nres)
integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
& ilist_sc,g_ilist_sc
! integer :: newcontlisti(200*nres),newcontlistj(200*nres)
integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
& ilist_sc,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
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 :: 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 :: 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 ilist_scp_first,ifirstrun,g_ilist_sc
! print *,"START make_SC"
#ifdef DEBUG
integer ilist_scp_first,ifirstrun,g_ilist_sc
! print *,"START make_SC"
#ifdef DEBUG
& xmedi,ymedi,zmedi
double precision dx_normi,dy_normi,dz_normi,dxj,dyj,dzj,
& dx_normj,dy_normj,dz_normj
& xmedi,ymedi,zmedi
double precision dx_normi,dy_normi,dz_normi,dxj,dyj,dzj,
& dx_normj,dy_normj,dz_normj
! integer :: newcontlistppi(200*nres),newcontlistppj(200*nres)
integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
& ilist_pp_vdw,g_ilist_pp_vdw
! integer :: newcontlistppi(200*nres),newcontlistppj(200*nres)
integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
& ilist_pp_vdw,g_ilist_pp_vdw
& xmedi,ymedi,zmedi
double precision dx_normi,dy_normi,dz_normi,dxj,dyj,dzj,
& dx_normj,dy_normj,dz_normj
& xmedi,ymedi,zmedi
double precision dx_normi,dy_normi,dz_normi,dxj,dyj,dzj,
& dx_normj,dy_normj,dz_normj
! integer :: newcontlistppi(200*nres),newcontlistppj(200*nres)
integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
& ilist_pp,g_ilist_pp
! integer :: newcontlistppi(200*nres),newcontlistppj(200*nres)
integer i,j,itypi,itypj,subchap,xshift,yshift,zshift,iint,
& ilist_pp,g_ilist_pp