write (iout,'(i3,2(2x,2i3))') &
i,(istart(i,iint),iend(i,iint),iint=1,nint_gr(i))
enddo
- endif
+! endif
! lprint=.false.
write (iout,'(a)') 'Interaction array2:'
do i=iatsc_s_nucl,iatsc_e_nucl
write (iout,'(i3,2(2x,2i4))') &
i,(istart_nucl(i,iint),iend_nucl(i,iint),iint=1,nint_gr_nucl(i))
enddo
-
+ endif
ispp=4 !?? wham ispp=2
#ifdef MPI
! Now partition the electrostatic-interaction array