& rms,frac,frac_nn,kinetic_T,t_bath,gyrate(),
& potEcomp(23),me
format1="a133"
else
C print *,'A CHUJ',potEcomp(23)
write (line1,'(i10,f15.2,7f12.3,i5,$)')
& rms,frac,frac_nn,kinetic_T,t_bath,gyrate(),
& potEcomp(23),me
format1="a133"
else
C print *,'A CHUJ',potEcomp(23)
write (line1,'(i10,f15.2,7f12.3,i5,$)')