# Appendix B: Examples

## B.9 Vectors

                PROGRAM EXA_9
          C     USE DISLIN         for Fortran 90!
                DIMENSION IVEC(20)
                CHARACTER*60 CTIT,CNUM*4
                DATA IVEC/0,1111,1311,1421,1531,1701,1911,3111,3311,3421,
               *     3531,3703,4221,4302,4413,4522,4701,5312,5502,5703/

                CTIT='Vectors'

                CALL DISINI
                CALL PAGERA
                CALL COMPLX

                CALL HEIGHT(60)
                NL=NLMESS(CTIT)
                NX=(2970-NL)/2
                CALL MESSAG(CTIT,NX,200)

                CALL HEIGHT(50)
                NX=300
                NY=400

                DO I=1,20
                  IF(I.EQ.11) THEN
                    NX=NX+2970/2
                    NY=400
                  END IF

                  WRITE(CNUM,'(I4)') IVEC(I)
                  NL=NLMESS(CNUM)
                  CALL MESSAG(CNUM,NX-NL,NY-25 )

                  CALL VECTOR(NX+100,NY,NX+1000,NY,IVEC(I))
                  NY=NY+160
                END DO

                CALL DISFIN
                END

Figure B.9: Vectors

Next | Previous | Contents