PROGRAM EXA_4 C USE DISLIN for Fortran 90! CHARACTER*60 CTIT,CLAB(3)*5 DATA CLAB/'LOG','FLOAT','ELOG '/ CTIT='Logarithmic Scaling' CALL SETPAG('DA4P') CALL DISINI CALL PAGERA CALL COMPLX CALL AXSLEN(1400,500) CALL NAME('X-axis','X') CALL NAME('Y-axis','Y') CALL AXSSCL('LOG','XY') CALL TITLIN(CTIT,2) DO I=1,3 NYA=2650-(I-1)*800 CALL LABDIG(-1,'XY') IF(I.EQ.2)THEN CALL LABDIG(1,'Y') CALL NAME(' ','X') END IF CALL AXSPOS(500,NYA) CALL MESSAG('Labels: '//CLAB(I),600,NYA-400) CALL LABELS(CLAB(I),'XY') CALL GRAF(0.,3.,0.,1.,-1.,2.,-1.,1.) IF(I.EQ.3) THEN CALL HEIGHT(50) CALL TITLE END IF CALL ENDGRF END DO CALL DISFIN END
Figure B.4: Logarithmic Scaling