C	[DEMO4]
C	DEMONSTRATION FOR THE PROGRAM PLTPV, SHOWING A PERSPECTIVE
C	VIEW OF FUNCTIONS THAT ARE DEFINED IN POLAR COORDINATES.
C	[04-JUN-75]
C
	DIMENSION ZE(41,75)
	NR=41
	NP=75
	DP=6.28318/FLOAT(NP-1)
	DT=3.9/FLOAT(NR-1)
	R=0.1
	DO	20	I=1,NR
	P=0.5
	DO	10	J=1,NP
	RR=R*R
	RF=RR*EXP(-0.5*RR)
	AF=1.-0.33*COS(P)
C[B]	AF=0.2*COS(P)+COS(3.*P)+0.1*COS(5.*P)
	ZE(I,J)=0.7*RF*AF
C[B]	ZE(I,J)=TANH(0.3*R*R)*SIN(5.*P)
10	P=P+DP
20	R=R+DT
	CALL PLT00('TST4')
	CALL PLTPV(-1.,ZE,1.,NR,NP)
	CALL EXIT
	END