## 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