itask_cont_from(i)=fg_rank
itask_cont_to(i)=fg_rank
enddo
- lprint=.false.
+ lprint=energy_dec
if (lprint)
&write (iout,*) 'INIT_INT_TABLE nres=',nres,' nnt=',nnt,' nct=',nct
n_sc_int_tot=(nct-nnt+1)*(nct-nnt)/2-nss
cd & (ihpb(i),jhpb(i),i=1,nss)
do i=nnt,nct-1
scheck=.false.
+ if (dyn_ss) goto 10
do ii=1,nss
if (ihpb(ii).eq.i+nres) then
scheck=.true.
iatsc_s=nnt
iatsc_e=nct-1
#endif
+ if (iatsc_s.eq.0) iatsc_s=1
#ifdef MPI
if (lprint) write (*,*) 'Processor',fg_rank,' CG Group',kolor,
& ' absolute rank',myrank,' iatsc_s=',iatsc_s,' iatsc_e=',iatsc_e
endif
enddo ! i
#endif
+ if (iatscp_s.eq.0) iatscp_s=1
if (lprint) then
write (iout,'(a)') 'SC-p interaction array:'
do i=iatscp_s,iatscp_e