← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to examples/f77/x17f.fm4

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/f77/x17f.fm4
1
 
C      $Id: x17f.fm4,v 1.6 2004/01/21 21:27:03 airwin Exp $
 
1
C      $Id: x17f.fm4,v 1.8 2006/05/27 22:02:53 hbabcock Exp $
2
2
C
3
3
C      Copyright (C) 2004  Alan W. Irwin
4
4
C
16
16
C
17
17
C      You should have received a copy of the GNU Library General Public
18
18
C      License along with PLplot; if not, write to the Free Software
19
 
C      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
19
C      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20
20
 
21
21
 
22
22
C--------------------------------------------------------------------------
25
25
 
26
26
      program x17f
27
27
      implicit none
28
 
      integer id1, id2, n, autoy, acc, nsteps
 
28
      integer id1, n, autoy, acc, nsteps
29
29
      parameter ( nsteps = 1000 )
30
30
      real*8 y1, y2, y3, y4, ymin, ymax, xlab, ylab
31
31
      real*8 t, tmin, tmax, tjump, dt, noise
32
32
      integer colbox, collab, colline(4), styline(4)
33
33
      character*20 legline(4)
34
 
      character*20 toplab
35
34
 
36
35
      real*8 PI
37
36
      parameter ( PI = 3.1415926535897932384d0 )