polplot.f 1.15 KB
Newer Older
1
2
3
4
5
6
7
8
c this is <polplot.f>
c
c plots particle motion
c
c V1.0   09/12/96   Thomas Forbriger
c
c----------------------------------------------------------------------
      character*70 version
thomas.forbriger's avatar
thomas.forbriger committed
9
      parameter(version='POLPLOT   V1.0   particle motion')
10
11
12
13
14
15
16
c datasets
      integer maxsamples, maxtraces
      parameter(maxsamples=2000000, maxtraces=4)
      real fdata(maxsamples)
      integer idata(maxsamples)
      equivalence (fdata,idata)
      integer firstsample(maxtraces)
thomas.forbriger's avatar
thomas.forbriger committed
17
18
      real xmin(maxtraces), xmax(maxtraces)
      real ymin(maxtraces), ymax(maxtraces)
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
c commandline
      integer maxopt, lastarg, iargc
      parameter(maxopt=4)
      character*2 optid(maxopt)
      character*40 optarg(maxopt)
      logical optset(maxopt), opthasarg(maxopt)
c variables related to pgplot
      character*80 device, botlabel
      real timeax(maxsamples)
c here are the keys to our commandline options
      data optid/2h-d,2h-D,2h-g,2h-c/
      data opthasarg/.TRUE.,2*.FALSE.,.TRUE./
      data optarg/3hx11,2*1h-,2hfT/

c----------------------------------------------------------------------
      stop
      end
c----------------------------------------------------------------------