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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
program moogsilent
c******************************************************************************
c This is the main driver for the non-interactive version of MOOG.
c It reads the parameter file and sends MOOG to various controlling
c subroutines. In this version of MOOG the parameter file must
c be named "batch.par" (because the code cannot stop to ask the
c user to name the parameter file)
c******************************************************************************
include 'Atmos.com'
include 'Pstuff.com'
c$$$$$$$$$$$$$$$$$$$$$$$$ USER SETUP AREA $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
c in compiling MOOG, here the various machine-specific things are
c declared. First, define the directory where MOOG lives, in order to
c be able to pull in auxiliary data files; executing 'make' will
c generate a reminder of this
write (moogpath,1001)
moogpath =
. '/Users/chris/CODES/moognov2019/'
c*****What kind of machine are you using? Possible ones are:
c "mac" = Intel-based Apple Mac
c "pcl" = a PC or desktop running some standard linux like Redhat
c "uni" = a machine running Unix, specifically Sun Solaris
machine = "mac"
c*****for x11 terminal types, define the parameters of plotting windows;
c set up an x11 screen geometry and placement that is good for spectrum
c syntheses (long, but not tall); the user should play with the format
c statements for particular machines.
write (smt1,1018)
c now do the same for line abundance trend plots (short but tall).
write (smt2,1017)
c$$$$$$$$$$$$$$$$$$$$$$$ END OF USER SETUP $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
c*****declare this to be the non-interactive version; variable "silent"
c will be queried on all occasions that might call for user input;
c DON'T CHANGE THIS VARIABLE;
c if silent = 'n', the normal interactive MOOG is run;
c if silent = 'y', the non-interactive MOOG is run
silent = 'y'
c*****invoke the overall starting routine
control = ' '
call begin
c*****use one of the standard driver routines ("isotop" is obsolete):
if (control .eq. 'synplot') then
call plotit
elseif (control .eq. 'isoplot') then
call plotit
elseif (control .eq. 'synth ') then
call synth
elseif (control .eq. 'cogsyn ') then
call cogsyn
elseif (control .eq. 'blends ') then
call blends
elseif (control .eq. 'abfind ') then
call abfind
elseif (control .eq. 'ewfind ') then
call ewfind
elseif (control .eq. 'cog ') then
call cog
elseif (control .eq. 'calmod ') then
call calmod
elseif (control .eq. 'isotop ') then
control = 'synth '
call synth
elseif (control .eq. 'doflux ') then
call doflux
elseif (control .eq. 'weedout') then
call weedout
elseif (control .eq. 'gridsyn') then
call gridsyn
elseif (control .eq. 'gridplo') then
call gridplo
elseif (control .eq. 'binary ') then
call binary
elseif (control .eq. 'abpop ') then
call abpop
elseif (control .eq. 'synpop ') then
call synpop
c*****or, put in your own drivers in the form below....
elseif (control .eq. 'mine ') then
call mydriver
c*****or else you are out of luck!
else
array = 'THIS IS NOT ONE OF THE DRIVERS. I QUIT!'
istat = ivwrite (4,3,array,49)
stop
endif
c*****format statements
1001 format (60(' '))
1017 format ('x11 -bg black -title MOOGplot -geom 700x800+650+000')
1018 format ('x11 -bg black -title MOOGplot -geom 1200x400+20+450')
end
|
