#endif
endif
if (mod(itime,ntwx).eq.0) then
+C call check_ecartint
call returnbox
write (tytul,'("time",f8.2)') totT
if(mdpdb) then
d_t(j,0)=d_t_old(j,0)+adt
enddo
do i=nnt,nct-1
+C SPYTAC ADAMA
+C do i=0,nres
do j=1,3
adt=d_a_old(j,i)*d_time
adt2=0.5d0*adt
enddo
enddo
do i=nnt,nct
+C do i=0,nres
if (itype(i).ne.10 .and. itype(i).ne.ntyp1) then
inres=i+nres
do j=1,3