home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / plplot / plplot_2 / examples / f77 / x06f.f < prev    next >
Encoding:
Text File  |  1994-05-26  |  1.3 KB  |  61 lines
  1. ! $Id: x06f.f,v 1.2 1994/05/26 19:34:19 mjl Exp $
  2. ! $Log: x06f.f,v $
  3. ! Revision 1.2  1994/05/26  19:34:19  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 example06
  10. !     =================
  11. !
  12. ! Displays the plotter symbols for PLPOIN
  13.  
  14.       character*3 text
  15.  
  16. ! Full sized page for display
  17.  
  18.       call plinit()
  19.       call pladv(0)
  20.  
  21.       call plcol(2)
  22.  
  23. ! Set up viewport and window
  24.  
  25.       call plvpor(0.1,1.0,0.1,0.9)
  26.       call plwind(0.0,1.0,0.0,1.3)
  27.  
  28. ! Draw the grid using plbox
  29.  
  30.       call plbox('bcgt',0.1,0,'bcgt',0.1,0)
  31.       call plcol(15)
  32.  
  33. ! Write the digits below the frame
  34.  
  35.       do 5 i=0,9
  36.         write (text,'(i1)') i
  37.         call plmtex('b',1.5,0.1*i+0.05,0.5,text)
  38.     5 continue
  39.  
  40.       k=0
  41.       do 1 i=0,12
  42.  
  43. ! Write the digits to the left of the frame
  44.  
  45.         write (text,'(i3)') 10*i
  46.         call plmtex('lv',1.0,1.0-(2*i+1)/26.0,1.0,text)
  47.         do 2 j=0,9
  48.           x=0.1*j+0.05
  49.           y=1.25-0.1*i
  50.  
  51. ! Display the symbols
  52.  
  53.           if (k.lt.128) call plpoin(1,x,y,k)
  54.           k=k+1
  55.     2   continue
  56.     1 continue
  57.  
  58.       call plmtex('t',1.5,0.5,0.5,'PLPLOT Example 6 - PLPOIN symbols')
  59.       call plend
  60.       end
  61.