13.7 Examples

            PROGRAM EX13_4
            PARAMETER (N = 32)
            DIMENSION INRAY(N),IPRAY(N),ICRAY(N)

            DO I=1,N
              INRAY(I)=I
              IPRAY(I)=0
              ICRAY(I)=1
            END DO
 
            CALL SETPAG('DA4P')
            CALL DISINI
            CALL PAGERA
            CALL COMPLX

            CALL INTAX
            CALL TICKS(1,'XY')
            CALL FRAME(3)
            CALL AXSLEN(1600,2200)
            CALL AXSPOS(400,2700)

            CALL NAME('Longitude','X')
            CALL NAME('Latitude','Y')
            CALL TITLIN('Conformal Conic Projection',3)

            CALL LABELS('MAP','XY')
            CALL PROJCT('CONF')
            CALL GRAFMP(-10.,30.,-10.,5.,35.,70.,35.,5.)

            CALL GRIDMP(1,1)
            CALL SHDEUR(INRAY,IPRAY,ICRAY,N)

            CALL HEIGHT(50)
            CALL TITLE
            CALL DISFIN
            END

Figure 13.4: Conformal Conic Projection