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
114
115
116
117
118
119
120
|
program moog
c******************************************************************************
c This is the main driver for MOOG. It reads the parameter
c file and sends MOOG to various controlling subroutines.
c This is the normal interactive version of the code; for batch
c processing without user decisions, run MOOGSILENT instead.
c******************************************************************************
include 'Atmos.com'
include 'Pstuff.com'
character yesno*1
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 necessity
write (moogpath,1001)
call get_environment_variable("MOOG_DATA", moogpath)
if (moogpath == "") then
moogpath = "@MOOGPATH_DEFAULT@"
endif
c*****What kind of machine are you using? Possible ones are:
c OBSOLETE
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 = ""
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 normal 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 = 'n'
c*****invoke the overall starting routine
1 control = ' '
call begin
c*****use one of the standard driver routines
if (control == 'synplot') then
call plotit
elseif (control == 'synth ') then
call synth
elseif (control == 'cogsyn ') then
call cogsyn
elseif (control == 'blends ') then
call blends
elseif (control == 'abfind ') then
call abfind
elseif (control == 'ewfind ') then
call ewfind
elseif (control == 'cog ') then
call cog
elseif (control == 'calmod ') then
call calmod
elseif (control == 'doflux ') then
call doflux
elseif (control == 'weedout') then
call weedout
elseif (control == 'gridsyn') then
call gridsyn
elseif (control == 'gridplo') then
call gridplo
elseif (control == 'binary ') then
call binary
elseif (control == 'abpop ') then
call abpop
elseif (control == 'synpop ') then
call synpop
c*****or, put in your own drivers in the form below....
elseif (control == 'mine ') then
call mydriver
c*****or else you are out of luck!
else
array = 'THIS IS NOT ONE OF THE DRIVERS. TRY AGAIN (y/n)?'
istat = ivwrite (4,3,array,49)
istat = ivmove (3,1)
read (*,*) yesno
if (yesno == 'y') then
go to 1
else
call finish (0)
endif
endif
c*****format statements
1001 format (60(' '))
1003 format (22x,'MOOG IS CONTROLLED BY DRIVER ',a7)
1017 format ('x11 -bg black -title MOOGplot -geom 700x800+650+000')
1018 format ('x11 -bg black -title MOOGplot -geom 1200x350+20+450')
end
|
