SUBROUTINE POUT(N,J,K,X1,X2,X3,X4)
C	common/ptime/ptime,time0
C	real ptime,time1,time0,walltime
C	time1 = walltime()
C	print 10, nint(time1-time0),nint(time1-ptime),N,J,K,X1,X2,X3,X4
C	ptime = time1
	COMMON PTIME,TIME0,TIME1
	REAL PTIME,TIME0,TIME1
	TIME1 = TIME(0)
	ETIME = TIME1-TIME0
	TTIME = TIME1-PTIME
	WRITE(4,10)ETIME,TTIME,N,J,K,X1,X2,X3,X4
10	FORMAT (2(F12.2),1X,3I7,4(1PE12.4))
	PTIME = TIME1
	RETURN
	END