write (line1,'(i10,f15.2,7f12.3,i5,$)')
& itime,totT,EK,potE,totE,
& kinetic_T,t_bath,gyrate(),
& potEcomp(23),me
format1="a114"
endif
write (line1,'(i10,f15.2,7f12.3,i5,$)')
& itime,totT,EK,potE,totE,
& kinetic_T,t_bath,gyrate(),
& potEcomp(23),me
format1="a114"
endif