write (iout,*) "iint_sent"
do i=1,nat_sent
ii=iat_sent(i)
write (iout,'(20i4)') ii,(j,(iint_sent(k,j,i),k=1,4),&
j=ielstart(ii),ielend(ii))
enddo
write (iout,*) "iint_sent"
do i=1,nat_sent
ii=iat_sent(i)
write (iout,'(20i4)') ii,(j,(iint_sent(k,j,i),k=1,4),&
j=ielstart(ii),ielend(ii))
enddo