+ integer i,j,k,ii,jj,iint,npept,nele_int_tot,ind_eleint,ind_scint,
+ & my_ele_inds,my_ele_inde,ind_eleint_old,nele_int_tot_vdw,
+ & my_ele_inds_vdw,my_ele_inde_vdw,ind_eleint_vdw,ijunk,
+ & ind_eleint_vdw_old,nscp_int_tot,my_scp_inds,my_scp_inde,
+ & ind_scpint,ind_scpint_old,nsumgrad,nlen,ngrad_start,ngrad_end,
+ & iaux,ind_typ,ncheck_from,ncheck_to,ichunk