# Appendix B: Examples

## B.4 Logarithmic Scaling

                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

Next | Previous | Contents