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