C	[DEMO6]
C	DEMONSTRATION FOR THE PROGRAM PLTEV, WHICH GRAPHS FUNCTIONS
C	DEFINED OVER ELLIPTICAL COORDINATES.
C
	DIMENSION ZE(61,181)
	NX=61
	NE=181
	DE=6.28318/FLOAT(NE-1)
	DX=6.28318/FLOAT(NX-1)
	XI=0.
	DO	20	I=1,NX
	ET=0.
	DO	20	J=1,NE
	S=COS(3.*(XI+ET))
	T=COS(5.*(XI-ET))
	ZE(I,J)=0.5*S*T*EXP(-0.5*XI)
10	ET=ET+DE
20	XI=XI+DX
	CALL PFNAME('DEM06.BLD')
	CALL PLT00
	CALL PLTEV(-1.0,ZE,1.0,NX,NE)
	CALL EXIT
	END