C 	DEM15
C	GRAEBER
	EXTERNAL PLTPO
	DIMENSION EF(181,19),GE(181,19),O(3,3)
C
	DATA O/0.577,0.577,0.577,-0.707,0.0,0.707,0.408,-0.816,0.408/
C
	NT=19
	NP=181
	DT=3.14159/FLOAT(NT-1)
	DP=6.28318/FLOAT(NP)
	T=0.0
C
	DO 20 I=1,NT
	P=0.5
	DO 10 J=1,NP
	TF=0.4*(1.5-COS(2.0*T))
	PF=0.80+0.15*SIN(3.0*P)+0.25*SIN(7.0*P)
	EF(J,I)=TF*PF
	GE(J,I)=0.66
10	P=P+DP
20	T=T+DT
C
	CALL PLT00('GR15')
	CALL PLTFR
	CALL PLTHV(EF,GE,NP,NT,O,PLTPO)
	CALL PLTEJ
	CALL EXIT
	END