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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
|
SUBROUTINE CONOUT (IVER)
C
C +-----------------------------------------------------------------+
C | |
C | Copyright (C) 1986 by UCAR |
C | University Corporation for Atmospheric Research |
C | All Rights Reserved |
C | |
C | NCARGRAPHICS Version 1.00 |
C | |
C +-----------------------------------------------------------------+
C
C
C
C + NOAO - This routine is a no-op in IRAF.
C - NOAO
C
C LIST OUT ALL THE CONRAN OPTION VALUES ON THE LINE PRINTER
C
C THE VALUE OF IVER DETERMINES WHICH ENTRY POINT CALLED THIS ROUTINE
C
C 1. CONRAQ
C 2. CONRAN
C 3. CONRAS
C
C
C
COMMON /CONRA1/ CL(30) ,NCL ,OLDZ ,PV(210) ,
1 FINC ,HI ,FLO
COMMON /CONRA2/ REPEAT ,EXTRAP ,PER ,MESS ,
1 ISCALE ,LOOK ,PLDVLS ,GRD ,
2 CINC ,CHILO ,CON ,LABON ,
3 PMIMX ,SCALE ,FRADV ,EXTRI ,
4 BPSIZ ,LISTOP
COMMON /CONRA3/ IREC
COMMON /CONRA4/ NCP ,NCPSZ
COMMON /CONRA5/ NIT ,ITIPV
COMMON /CONRA6/ XST ,YST ,XED ,YED ,
1 STPSZ ,IGRAD ,IG ,XRG ,
2 YRG ,BORD ,PXST ,PYST ,
3 PXED ,PYED ,ITICK
COMMON /CONRA7/ TITLE ,ICNT ,ITLSIZ
COMMON /CONRA8/ IHIGH ,INMAJ ,INLAB ,INDAT ,
1 LEN ,IFMT ,LEND ,
2 IFMTD ,ISIZEP ,INMIN
COMMON /CONRA9/ ICOORD(500),NP ,MXXY ,TR ,
1 BR ,TL ,BL ,CONV ,
2 XN ,YN ,ITLL ,IBLL ,
3 ITRL ,IBRL ,XC ,YC ,
4 ITLOC(210) ,JX ,JY ,ILOC ,
5 ISHFCT ,XO ,YO ,IOC ,NC
COMMON /CONR10/ NT ,NL ,NTNL ,JWIPT ,
1 JWIWL ,JWIWP ,JWIPL ,IPR ,
2 ITPV
COMMON /CONR11/ NREP ,NCRT ,ISIZEL ,
1 MINGAP ,ISIZEM ,
2 TENS
COMMON /CONR12/ IXMAX ,IYMAX ,XMAX ,YMAX
LOGICAL REPEAT ,EXTRAP ,PER ,MESS ,
1 LOOK ,PLDVLS ,GRD ,LABON ,
2 PMIMX ,FRADV ,EXTRI ,CINC ,
3 TITLE ,LISTOP ,CHILO ,CON
COMMON /CONR13/XVS(50),YVS(50),ICOUNT,SPVAL,SHIELD,
1 SLDPLT
LOGICAL SHIELD,SLDPLT
COMMON /CONR14/LINEAR
LOGICAL LINEAR
COMMON /CONR15/ ISTRNG
CHARACTER*64 ISTRNG
COMMON /CONR16/ FORM
CHARACTER*10 FORM
COMMON /CONR17/ NDASH, IDASH, EDASH
CHARACTER*10 NDASH, IDASH, EDASH
C
SAVE
C
C GET THE STANDARD OUTPUT UNIT TO WRITE THE OPTION VALUE LIST
C
IUNIT = I1MACH(2)
C
C PRINT OUT HEADER AND ALL OPTIONS WHICH APPLY TO CALLING VERSION
C
C GO TO ( 100, 110, 120),IVER
C 100 WRITE (IUNIT,1001)
C GO TO 130
C 110 WRITE (IUNIT,1002)
C GO TO 130
C 120 WRITE (IUNIT,1003)
C 130 WRITE (IUNIT,1004)
C
C PERIMETER
C
C WRITE (IUNIT,1005)
C IF (PER) GO TO 140
C WRITE (IUNIT,1006)
C GO TO 150
C 140 WRITE (IUNIT,1007)
C
C GRID
C
C 150 WRITE (IUNIT,1008)
C IF (GRD) GO TO 160
C WRITE (IUNIT,1009)
C GO TO 170
C 160 WRITE (IUNIT,1010)
C
C SCALING OF DATA ON FRAME
C
C 170 WRITE (IUNIT,1011)
C GO TO ( 180, 190, 200),ISCALE+1
C 180 WRITE (IUNIT,1012)
C GO TO 210
C 190 WRITE (IUNIT,1013)
C GO TO 210
C 200 WRITE (IUNIT,1014)
C
C SAME DATA ANOTHER PLOT
C
C 210 WRITE (IUNIT,1015)
C IF (REPEAT) GO TO 220
C WRITE (IUNIT,1016)
C GO TO 230
C 220 WRITE (IUNIT,1017)
C
C SHIELDING
C
C 230 WRITE(IUNIT,2000)
C IF (SHIELD) GO TO 231
C WRITE(IUNIT,2001)
C GO TO 232
C 231 WRITE(IUNIT,2002)
C
C INTERPOLATION
C
C 232 WRITE(IUNIT,2003)
C IF (LINEAR) GO TO 233
C WRITE(IUNIT,2004)
C GO TO 234
C 233 WRITE(IUNIT,2005)
C
C PLOT THE SHIELD
C
C 234 WRITE(IUNIT,2006)
C IF (SLDPLT) GO TO 235
C WRITE(IUNIT,2007)
C GO TO 236
C 235 WRITE(IUNIT,2008)
C
C EXTRAPOLATION
C
C 236 WRITE (IUNIT,1018)
C IF (EXTRAP) GO TO 240
C WRITE (IUNIT,1019)
C GO TO 250
C 240 WRITE (IUNIT,1020)
C
C STEP SIZE OR RESOLUTION OF THE GRID
C
C 250 WRITE (IUNIT,1021) IGRAD
C
C MESSAGE AT BOTTOM OF PLOT
C
C WRITE (IUNIT,1022)
C IF (MESS) GO TO 260
C WRITE (IUNIT,1023)
C GO TO 270
C 260 WRITE (IUNIT,1024)
C
C TITLE AT TOP OF PLOT
C
C 270 WRITE (IUNIT,1025)
C IF (TITLE) GO TO 280
C WRITE (IUNIT,1026)
C GO TO 290
C 280 WRITE (IUNIT,1027)
C
C SIZE OF TITLE
C
C 290 WRITE (IUNIT,1028) ITLSIZ
C
C PRINT TITLE
C
C IF (ICNT.EQ.0 .OR. .NOT.TITLE) GO TO 310
C ICC = 100
C IF (ICC .GT. ICNT) ICC = ICNT
C WRITE (IUNIT,1029) ISTRNG
C
C DATA POINTS USED FOR PARTIAL DERIVATIVE ESTIMATION
C
C 310 WRITE (IUNIT,1030) NCP
C
C LOOK AT TRIANGLES SWITCH
C
C WRITE (IUNIT,1031)
C IF (LOOK) GO TO 320
C WRITE (IUNIT,1032)
C GO TO 330
C 320 WRITE (IUNIT,1033)
C
C ADVANCE FRAME BEFORE PLOTTING TRIANGULATION
C
C 330 WRITE (IUNIT,1034)
C IF (FRADV) GO TO 340
C WRITE (IUNIT,1035)
C GO TO 350
C 340 WRITE (IUNIT,1036)
C
C TRIANGLES ONLY PLOT
C
C 350 WRITE (IUNIT,1037)
C IF (EXTRI) GO TO 360
C WRITE (IUNIT,1038)
C GO TO 370
C 360 WRITE (IUNIT,1039)
C
C PLOT THE INPUT DATA VALUES
C
C 370 WRITE (IUNIT,1040)
C IF (PLDVLS) GO TO 380
C WRITE (IUNIT,1041)
C GO TO 390
C 380 WRITE (IUNIT,1042)
C
C FORMAT OF THE PLOTTED INPUT DATA
C
C 390 WRITE (IUNIT,1043)
C IF (LEN .NE. 0) GO TO 400
C WRITE (IUNIT,1044)
C GO TO 420
C 400 WRITE (IUNIT,1045) FORM
C
C SIZE OF THE PLOTTED DATA VALUES
C
C 420 WRITE (IUNIT,1046) ISIZEP
C
C INTENSITY SETTINGS
C
C WRITE (IUNIT,1047)
C WRITE (IUNIT,1048) INMAJ,INMIN,INLAB,INDAT
C
C DISTLAY CONTOUR SETTING
C
C WRITE (IUNIT,1049)
C IF (CON) GO TO 430
C WRITE (IUNIT,1050)
C GO TO 440
C 430 WRITE (IUNIT,1051) NCL,(CL(I),I=1,NCL)
C
C CONTOUR INCREMENT
C
C 440 WRITE (IUNIT,1052)
C IF (CINC) GO TO 450
C WRITE (IUNIT,1053)
C GO TO 460
C 450 WRITE (IUNIT,1054) FINC
C
C CONTOUR HIGH AND LOW VALUES
C
C 460 WRITE (IUNIT,1055)
C IF (CHILO) GO TO 470
C WRITE (IUNIT,1056)
C GO TO 480
C 470 WRITE (IUNIT,1057) HI,FLO
C
C CALL CONOT2 IF NOT QUICK VERSION
C
C 480 IF (IVER .NE. 1) CALL CONOT2 (IVER,IUNIT)
C
C THE ROUTINE CONOT2 WAS GENERATED TO ELIMINATE COMPILER ERRORS
C RESULTING FROM TOO MANY FORMAT STATEMENTS IN ONE SUBROUTINE
C
C RETURN
C
C
C1001 FORMAT (1X,'CONRAQ')
C1002 FORMAT (1X,'CONRAN')
C1003 FORMAT (1X,'CONRAS')
C1004 FORMAT ('+',6X,'-OPTION VALUE SETTINGS',/
C 1 ,7X,'ALL NON-PWRIT VALUES APPLY TO THE UNSCALED DATA')
C1005 FORMAT (5X,'PERIMETER, PER=')
C1006 FORMAT ('+',19X,'OFF')
C1007 FORMAT ('+',19X,'ON')
C1008 FORMAT (5X,'GRID, GRD=')
C1009 FORMAT ('+',14X,'OFF')
C1010 FORMAT ('+',14X,'ON')
C1011 FORMAT (5X,'SCALING OF PLOT ON FRAME, SCA=')
C1012 FORMAT ('+',34X,'ON')
C1013 FORMAT ('+',34X,'OFF')
C1014 FORMAT ('+',34X,'PRI')
C1015 FORMAT (5X,'SAME DATA FOR ANOTHER PLOT, REP=')
C1016 FORMAT ('+',36X,'OFF')
C1017 FORMAT ('+',36X,'ON')
C1018 FORMAT (5X,'EXTRAPOLATION, EXT=')
C1019 FORMAT ('+',23X,'OFF')
C1020 FORMAT ('+',23X,'ON')
C1021 FORMAT (5X,'RESOLUTION, SSZ=',I4)
C1022 FORMAT (5X,'MESSAGE, MES=')
C1023 FORMAT ('+',17X,'OFF')
C1024 FORMAT ('+',17X,'ON')
C1025 FORMAT (5X,'TITLE, TLE=')
C1026 FORMAT ('+',15X,'OFF')
C1027 FORMAT ('+',15X,'ON')
C1028 FORMAT (5X,'TITLE SIZE IN PWRIT UNITS, STL=',I4)
C1029 FORMAT (5X,'TITLE=',A64)
C1030 FORMAT (5X,'DATA POINTS USED FOR PARTIAL DERIVATIVE',
C 1' ESTIMATION, NCP=',I4)
C1031 FORMAT (5X,'LOOK AT TRIANGLES, TRI=')
C1032 FORMAT ('+',27X,'OFF')
C1033 FORMAT ('+',27X,'ON')
C1034 FORMAT (5X,'ADVANCE FRAME BEFORE PLOTTING TRIANGULATION,',
C 1' TFR=')
C1035 FORMAT ('+',53X,'OFF')
C1036 FORMAT ('+',53X,'ON')
C1037 FORMAT (5X,'TRIANGULATION ONLY PLOT, TOP=')
C1038 FORMAT ('+',33X,'OFF')
C1039 FORMAT ('+',33X,'ON')
C1040 FORMAT (5X,'PLOT THE INPUT DATA VALUES, PDV=')
C1041 FORMAT ('+',36X,'OFF')
C1042 FORMAT ('+',36X,'ON')
C1043 FORMAT (5X,'FORMAT OF THE PLOTTED INPUT DATA, FMT=')
C1044 FORMAT ('+',42X,'(G10.3)')
C1045 FORMAT ('+',42X,A10)
C1046 FORMAT (5X,'SIZE OF THE PLOTTED DATA VALUES IN PWRIT',
C 1' UNITS, SPD=',I4)
C1047 FORMAT (5X,'COLOR (INTENSITY) INDICES FOLLOW.',
C 1' FOR CONRAQ MAJOR CONTOURS ARE ONLY USED')
C1048 FORMAT (10X,'MAJOR CONTOUR LINES, MAJ=',I4,/
C 1 ,10X,'MINOR CONTOUR LINES, MIN=',I4,/
C 2 ,10X,'TITLE AND MESSAGE, LAB=',I4,/
C 3 ,10X,'PLOTTED DATA VALUES, DAT=',I4)
C1049 FORMAT (5X,'CONTOUR LEVELS, CON=')
C1050 FORMAT ('+',25X,'OFF')
C1051 FORMAT ('+',25X,'ON, NCL=',I4,' ARRAY='/(10(2X,F10.3)))
C1052 FORMAT (5X,'CONTOUR INCREMENT, CIL=')
C1053 FORMAT ('+',27X,'OFF')
C 1054 FORMAT ('+',27X,'ON, INCREMENT=',G10.3)
C 1055 FORMAT (5X,'CONTOUR HIGH AND LOW VALUES, CHL=')
C 1056 FORMAT ('+',37X,'OFF')
C 1057 FORMAT ('+',37X,'ON, HI=',G10.3,' FLO=',G10.3)
C 2000 FORMAT (5X,'SHIELDING, SLD=')
C 2001 FORMAT ('+',19X,'OFF')
C 2002 FORMAT ('+',19X,'ON')
C 2003 FORMAT (5X,'INTERPOLATION, ITP=')
C 2004 FORMAT ('+',23X,'C1 SURFACE')
C 2005 FORMAT ('+',23X,'LINEAR')
C 2006 FORMAT (5X,'PLOT THE SHIELD, SPT=')
C 2007 FORMAT ('+',25X,'OFF')
C 2008 FORMAT ('+',25X,'ON')
C
END
|
