# Appendix B: Examples

## B.13 Map Plot

                PROGRAM EXA_13
          C     USE DISLIN         for Fortran 90!
                DIMENSION XC(9),YC(9)
                CHARACTER*12 CSTR(9)

                DATA XC/-22.,18.,37.5,0.,2.5,12.5,23.5,-3.75,14.25/
               *     YC/64.,59.6,56.,51.5,48.5,42.,38.,40.3,50.1/
               *   CSTR/'Reykjavik','Stockholm','Moskau','London','Paris',
               *        'Rom','Athen','Madrid','Prag'/

                CALL METAFL('POST')
                CALL DISINI
                CALL PAGERA
                CALL HWFONT

                CALL AXSPOS(500,1850)
                CALL AXSLEN(2200,1400)

                CALL LABDIG(-1,'xy')
                CALL TICKS(1,'xy')
                CALL NAME('Longitude','x')
                CALL NAME('Latitude','y')

                CALL TITLIN('Map Plot',3)
                CALL INCMRK(-1)

                CALL LABELS('MAP','xy')
                CALL PROJCT('LAMBERT')
                CALL FRAME(3)
                CALL GRAFMP(-40.,60.,-40.,20.,35.,70.,40.,10.)

                CALL WORLD
                CALL CURVMP(XC,YC,9)

                DO I=1,9
                  CALL POS2PT(XC(I),YC(I),XP,YP)
                  NXP=XP+30
                  NYP=YP
                  CALL MESSAG(CSTR(I),NXP,NYP)
                END DO

                CALL GRIDMP(1,1)

                CALL HEIGHT(50)
                CALL TITLE
                CALL DISFIN
                END

Figure B.13: Map Plot

Next | Previous | Contents