PROGRAM RELIEF
	DIMENSION ZV(20,20)
	BYTE FNAME(39)
	CALL DATFIL(3,FNAME,38)
	READ(3,*) M,N,SX,DX,SY,DY,IAX
	DO 10 I=1,N
 10	READ(3,*)(ZV(J,I),J=M,1,-1)
	CALL REDIM(ZV,M,N,ZV,20,20)
	CALL OPENPL(2,5,'RELIEF.PLT',-1)
	CALL PLOT3D(ZV,SX,DX,SY,DY,1,M,1,N,IAX)
	CALL GREND
	STOP
	END