home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / plplot / plplot_2 / examples / f77 / x07f.f < prev    next >
Encoding:
Text File  |  1994-05-26  |  1.5 KB  |  69 lines
  1. ! $Id: x07f.f,v 1.2 1994/05/26 19:34:21 mjl Exp $
  2. ! $Log: x07f.f,v $
  3. ! Revision 1.2  1994/05/26  19:34:21  mjl
  4. ! Inserted missing CVS Id and Log fields for all Fortran demos.  Comment
  5. ! character changed to "!" everywhere, to work well with font-lock in Lucid
  6. ! emacs (requires a small change to fortran-mode.el).
  7. !
  8. !
  9.       program example07
  10. !     =================
  11. !
  12. ! Displays the plotter symbols for PLSYM
  13.  
  14.       character*4 text
  15.  
  16.       integer base(17)
  17.       data base /   0, 200, 500, 600, 700, 800, 900,
  18.      *           2000,2100,2200,2300,2400,2500,2600,
  19.      *           2700,2800,2900 /
  20.  
  21. ! Full sized page for display
  22.  
  23.       call plinit()
  24.       call plfontld(1)
  25.       do 100 l=1,17
  26.         call pladv(0)
  27.  
  28.         call plcol(2)
  29.  
  30. ! Set up viewport and window
  31.  
  32.         call plvpor(0.1,1.0,0.1,0.9)
  33.         call plwind(0.0,1.0,0.0,1.0)
  34.  
  35. ! Draw the grid using plbox
  36.  
  37.         call plbox('bcgt',0.1,0,'bcgt',0.1,0)
  38.         call plcol(15)
  39.  
  40. ! Write the digits below the frame
  41.  
  42.         do 5 i=0,9
  43.           write (text,'(i1)') i
  44.           call plmtex('b',1.5,0.1*i+0.05,0.5,text)
  45.     5   continue
  46.  
  47.         k=0
  48.         do 1 i=0,9
  49.  
  50. ! Write the digits to the left of the frame
  51.  
  52.           write (text,'(i4)') base(l)+10*i
  53.           call plmtex('lv',1.0,0.95-0.1*i,1.0,text)
  54.           do 2 j=0,9
  55.             x=0.1*j+0.05
  56.             y=0.95-0.1*i
  57.  
  58. ! Display the symbols
  59.  
  60.             call plsym(1,x,y,base(l)+k)
  61.             k=k+1
  62.     2     continue
  63.     1   continue
  64.  
  65.         call plmtex('t',1.5,0.5,0.5,'PLPLOT Example 7 - PLSYM symbols')
  66.   100 continue
  67.       call plend
  68.       end
  69.