write (iout,'(a6,2i5,0pf7.3,2i5,2e11.3)')
&'evdw1',i,j,evdwij
&,iteli,itelj,aaa,evdw1
write (iout,'(a6,2i5,0pf7.3,2i5,2e11.3)')
&'evdw1',i,j,evdwij
&,iteli,itelj,aaa,evdw1
write (iout,'(a6,2i5,0pf7.3,2f8.3)') 'ees',i,j,eesij,
&fac_shield(i),fac_shield(j)
endif
write (iout,'(a6,2i5,0pf7.3,2f8.3)') 'ees',i,j,eesij,
&fac_shield(i),fac_shield(j)
endif