SUBROUTINE  PLTPV (Z1,ZE,Z2,NR,NP)

C     [POLAR VIEW]
C     PROGRAM TO PRODUCE A PERSPECTIVE DRAWING OF A SINGLE VALUED
C     FUNCTION DEFINED IN POLAR COORDINATES, IN SUCH A WAY AS TO
C     EXHIBIT THE RADIAL AND CIRCUMFERENTIAL ARCS.
C     (Z1,Z2)   RANGE OF FUNCTION VALUES
C     ZE(NR,NP) ARRAY OF FUNCTION VALUES
C     NR        NUMBER OF POINTS ON ONE RADIUS
C     NP        NUMBER (=4*N+1) OF ANGLES
C     [10-NOV-74]

      DIMENSION   ZE(1)
      DATA        Q0,Q1,Q2,Q3,Q4/0.000,1.571,3.142,4.713,6.283/
      DATA        S1,S3/1.570,4.712/

      NQ=1+(NP-1)/4
      NN=NR*(NQ-1)
      R1=0.02
      R2=1.00
      CALL PLTFR
      CALL VISNH
      CALL VISPS (Z1,ZE(3*NN+1),Z2,R1,R2,NR,Q3,Q4,NQ,-1, 1)
      CALL VISPS (Z1,ZE        ,Z2,R1,R2,NR,Q0,S1,NQ, 1, 1)
      CALL VISNH
      CALL VISPS (Z1,ZE(2*NN+1),Z2,R1,R2,NR,Q2,S3,NQ,-1,-1)
      CALL VISPS (Z1,ZE(  NN+1),Z2,R1,R2,NR,Q1,Q2,NQ, 1,-1)
      CALL PLTEJ
      RETURN

      END