-
Notifications
You must be signed in to change notification settings - Fork 0
/
Pstuff.com
executable file
·76 lines (68 loc) · 3.52 KB
/
Pstuff.com
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
c******************************************************************************
c these common block holds parameters and arrays need in the
c plotting routines; the second common block puts character variables
c in their own separate common statement.
c******************************************************************************
real*8 xxm1, xxb1, xxr1, xxm2, xxb2, xxr2,
. xxm3, xxb3, xxr3,
. deltaep, deltarw, deltawv,
. p(1000), prot(1000), pmac(1000),
. vsini, limbdark, vmac,
. fwhmgauss, fwhmloren,
. oldvsini, oldlimbdark, oldvmac,
. oldfwhmgauss, oldfwhmloren,
. origvsini, origlimbdark, origvmac,
. origfwhmgauss, origfwhmloren,
. half, power, powerrot, powermac,
. average, deviate, oldhalf
real*4 xobs(500000), yobs(500000)
real*4 xlo, xhi, ylo, yhi,
. origxlo, origxhi, origylo, origyhi,
. oldxlo, oldxhi, oldylo, oldyhi,
. xadd, yadd, ymult, veladd, deltavel,
. origxadd, origyadd, origymult, origveladd,
. oldxadd, oldyadd, oldymult, oldveladd,
. bigxtic, bigytic, smlxtic, smlytic,
. xplotpos, yplotpos, addflux, ydelta
integer lount, kount, nsyn, lim1obs, lim2obs,
. iterm, iscale, maxline, histoyes, deviations,
. syncount, kounter, maxshift
character*400 abitle
character*240 isoitle
character*80 smterm, smtotalterm, smt1, smt2
character*80 moditle, obsitle, linitle, smitle, popitle,
. array, chinfo, errmess, plotroutine
character*4 whichwin, origwhichwin, oldwhichwin
character*1 choice, smtype, oldsmtype, origsmtype,
. gaussflag, rotateflag, lorenflag, macroflag
common/pstuff/xxm1, xxb1, xxr1, xxm2, xxb2, xxr2,
. xxm3, xxb3, xxr3,
. deltaep, deltarw, deltawv,
. p, prot, pmac,
. vsini, limbdark, vmac,
. fwhmgauss, fwhmloren,
. oldvsini, oldlimbdark, oldvmac,
. oldfwhmgauss, oldfwhmloren,
. origvsini, origlimbdark, origvmac,
. origfwhmgauss, origfwhmloren,
. half, power, powerrot, powermac,
. average, deviate, oldhalf,
. xobs, yobs,
. xlo, xhi, ylo, yhi,
. origxlo, origxhi, origylo, origyhi,
. oldxlo, oldxhi, oldylo, oldyhi,
. xadd, yadd, ymult, veladd, deltavel,
. origxadd, origyadd, origymult, origveladd,
. oldxadd, oldyadd, oldymult, oldveladd,
. bigxtic, bigytic, smlxtic, smlytic,
. xplotpos, yplotpos, addflux, ydelta,
. lount, kount, nsyn, lim1obs, lim2obs,
. iterm, iscale, maxline, histoyes, deviations,
. syncount, kounter, maxshift
common/cstuff/abitle, isoitle,
. smterm, smtotalterm, smt1, smt2,
. moditle, obsitle, linitle, smitle, popitle,
. array, chinfo, errmess, plotroutine,
. whichwin, origwhichwin, oldwhichwin,
. choice, smtype, oldsmtype, origsmtype,
. gaussflag, rotateflag, lorenflag, macroflag