c--------------------------------------------------
c out_conf
c output the coordinates into fort.129
	subroutine out_conf(n,ntime)
	implicit double precision(a-h, o-z)
        parameter(maxa=500,maxn=3*maxa)
	integer n,ntime
       common/matrix/x(maxa,3),bangle(maxa),rz(maxa)
      common/param/temp,bendc,r0,beadr,ss1,interval,dtime,gamma,
     +amass,am(maxn),coef,dtime2
	
	write(129,*) ntime,ntime*dtime2
	do i=1,n
	 write(129,5001) x(i,1),x(i,2),x(i,3)
	enddo

5001	format(g13.6,1x,g13.6,1x,g13.6)
	return
	end