SUBROUTINE PLOTT (X,Y,IPEN)
	WRITE(1,10)X,Y,IPEN
10	FORMAT(' PLOTT(X,Y,IPEN)='2E16.8,I4)
	RETURN
	END