C-----------------------------------------------------------------------
C IMSL Name:  PLOTP/DPLOTP (Single/Double precision version)
C
C Purpose:    Print a plot of up to 10 sets of points.
C
C Usage:      CALL PLOTP (NDATA, NFUN, X, A, LDA, INC, RANGE, SYMBOL,
C                         XTITLE, YTITLE, TITLE)
C
C Example 1:
      INTEGER    I, INC, LDA, NDATA, NFUN
      REAL       A(200,2), DELX, PI, RANGE(4), X(200)
      CHARACTER  SYMBOL*2
      INTRINSIC  COS, SIN
      EXTERNAL   CONST, PGOPT, PLOTP
C
      DATA SYMBOL/'SC'/
      DATA RANGE/-3.5, 3.5, -1.2, 1.2/
C
      PI     = 3.14159
      NDATA  = 200
      NFUN   = 2
      LDA    = 200
      INC    = 1
      DELX   = 2.*PI/199.
      DO 10  I= 1, 200
         X(I)   = -PI + FLOAT(I-1) * DELX
         A(I,1) = SIN(X(I))
         A(I,2) = COS(X(I))
   10 CONTINUE
C                                  Set page width and length
      CALL PGOPT (-1, 78)
      CALL PGOPT (-2, 40)
      CALL PLOTP (NDATA, NFUN, X, A, LDA, INC, RANGE, SYMBOL,
     &            'X AXIS', 'Y AXIS', ' C = COS,   S = SIN')
C
      END
C
C
C
C
C                                   C = COS,   S = SIN
C
C
C           1.2 ::::+:::::::::::::::+:::::::::::::::+:::::::::::::::+::::
C               .                           I                           .
C               .                           I                           .
C               .                        CCCCCCC     SSSSSSSS           .
C               .                       CC  I  CC   SS      SS          .
C           0.8 +                      C    I    C SS        SS         +
C               .                     C     I     MS          SS        .
C               .                    C      I    SSC           SS       .
C               .                   CC      I   SS CC           SS      .
C               .                  CC       I   S   CC           S      .
C           0.4 +                  C        I  S     C            S     +
C               .                 C         I SS      C           SS    .
C  Y            .                CC         I S       CC           S    .
C               .                C          IS         C            S   .
C  A            .               C           SS          C           SS  .
C  X        0.0 +--S-----------CC-----------S-----------CC-----------S--+
C  I            .  SS         CC           SS            CC             .
C  S            .   S         C            SI             C             .
C               .    S       CC           S I             CC            .
C               .    SS      C           SS I              C            .
C          -0.4 +     S     C            S  I               C           +
C               .      S   CC           S   I               CC          .
C               .      SS CC           SS   I                CC         .
C               .       SSC           SS    I                 C         .
C               .        MS          SS     I                  C        .
C          -0.8 +       C SS        SS      I                   C       +
C               .     CC   SS      SS       I                    CC     .
C               .  CCCC     SSSSSSSS        I                     CCCC  .
C               .  C                        I                        C  .
C               .                           I                           .
C          -1.2 ::::+:::::::::::::::+:::::::::::::::+:::::::::::::::+::::
C                  -3              -1               1               3
C
C
C                                        X AXIS
C