CTITLESPQULR -- COLOR DISLAY C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** C CA AUTHOR P. COOPER CA DESIGNER P. COOPER CA LANGUAGE VSFORTRAN CA WRITTEN 01-26-81 / 07-20-81 C REVISED 10-15-81 CMP - SET DEFAULTS ON IAL CARD C DF 12 - 15 C REVISED 10-26-81 PKC - SET MAX. HORIZONTAL DISTANCE TO 31.5. C REVISED 11-06-81 PKC - EXPANDED EXPLANATION OF DF8 ON CARD(1). C ALSO CORRECTED ERROR MESSAGE 9060 AND CHANGED C TO SET NO. OF DPS/PANEL IF USER ENTERS TOO HIGH C A NUMBER. C REVISED 11-18-81 PKC - ADDED CHECK FOR REQUIRED SEQUENCE NUMBER. C REVISED 12-15-81 DJP - CHANGED THE PLOT/NO PLOT SPECIFICATION. C REVISED 09-12-84 CMP - ADDED ONCOL OPTION. C REVISED 10-23-84 PKC - MODIFIED FOR VS FORTRAN. C REVISED 11-30-84 RKG - MODIFIED FOR ALLOW TRACE DEFLECTION TO BE C ENTERED IN 10 COLUMN FIELD ( NEW CARD ADP) C REVISED 02-27-85 RKG - CORRECTED ERROR THAT CAUSED OMT OPTION C TO WORK ONLY IF FIELD WAS LEFT JUSTIFIED. C REVISED 03-07-85 TRA - DOCUMENTATION CHANGE TO NOT MAX PLOTS. C REVISED 04-03-85 PKC - CORRECTED SETTING OF KPRTF ON ERROR. C REVISED 05-23-85 RKG - INCORPORATED QULX AND QULC PROGRAMS. C ADDED TIMING LINE OPTION C REVISED 12-06-85 RKG - ALLOW USER TO SUPPLY TRUE NEGATIVE VALUE C FOR CLIPPING ON 'TYP' CARD. C REVISED 02-20-86 CMP - FIX BUG IN 'ESC' MIN/MAX CLIP. C REVISED 06/30/86 JMP - ADD 'RAM' PLOT TYPE. C REVISED 09/24/86 CMP - SET DEFAULT # COLORS FOR PHZ TO 8 UNDER C ESC OPTION ALSO C REVISED 03/09/87 JMP - DISABLE APPARENT POLARITY. USER NOTES C CHANGED. ADD NEW PLOT TYPE: OVR. C USER NOTES HAVE BEEN CHANGED. C REVISED 04/02/87 JMP - ADD MNEMONIC FOR LITH 'COR' AUX TRACE C REVISED 06/06/87 PKC - MAKE 'COL' AND 'OFCOL' DEFAULT TO TAPE C VERSATEC FORMAT INSTEAD OF APPLICON. C REVISED 06/25/87 DPH - ADD META FILE PLOT OPTION. C REVISED 07/20/87 LWC - CHECK PLOT SIZE. C REVISED 08/02/88 LWC - ALLOW FOR TRACE TYPE 51 FROM LITH C REVISED 10/20/88 RBN - FIXED DOCUMENTATION. C REVISED 1/29/91 CLJ - ADD TRACE OVERLAY DECIMATION FACTOR ON C THE 'ADP' CARD CA CA CA PROGRAM SPQULR CA CA THIS PREPARATION ROUTINE SCRUTINIZES USER INPUT DATA CA CARDS FOR POSSIBLE ERRORS. IF NO ERRORS ARE FOUND THE CA PARAMETERS LISTED ON THE INPUT CARDS ARE USED TO CA DEVELOP PROCESSING PARAMETERS FOR USE BY THIS ROUTINE'S CA CORRESPONDING PROCESSOR. THESE PARAMETERS ARE STORED IN CA THE SEISPARM FILE FOR ACCESS AT PROCESSING TIME. CAEND CU PROCESS QULR -- COLOR DISPLAYS CU CU DATA CARD (1 ) -- DEFINES D RANGE TO BE DISPLAYED CU CU NO. OF CARDS: REQUIRED = 1 ALLOWED = 1 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 PROCESSING MODE |D | CU 'D' = DEPTH POINT MODE | | CU 5 8 -10 FOR PROGRAMMING USE | | CU 6 11-15 STARTING DEPTH POINT TO PLOT |REQ | CU 7 16-20 ENDING DEPTH POINT TO PLOT |REQ | CU 8 21-25 NUMBER OF DEPTH POINTS PER PANEL |NOTE DF8 | CU 9 26-35 TEN COLUMNS, FIELDS 9 AND 10 |NEXT NO. | CU 10 - DATA SET IDENTIFICATION | | CU NORMALLY BLANK--SYSTEM ASSIGNS NEXT NUMBER | | CU 11 36-40 DATA SET TYPE |REQ | CU 'T' = TAPE WITH IBM STANDARD LABEL | | CU 'M' = MASS STORAGE | | CU 12 41-45 NOT USED | | CU 13 46-50 SPACING BETWEEN INPUT DEPTH POINTS |1 | CU 14 51-55 ONLINE PLOTTED CODE. SEE OPERATIONS FOR CODE. | | CU 15 56-60 NUMBER OF PLOTS TO BE GENERATED |REQ | CU 16 61-75 NOT USED | | CU 19 76-80 'COL' = NO PLOT VERSATEC FORMAT |COL | CU 'ONCOL' = ONLINE VERSATEC | | CU 'META ' = METAFILE | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 6 THE RANGE OF ALL DEPTH POINTS THAT YOU WISH TO PLOT SHOULD BE CU INCLUDED HERE. THE PROCESS WILL AUTOMATICALLY SPLIT THE LINE CU UP INTO PANELS USING DF8 AS A GUIDE AS TO HOW TO BREAK THE LINE CU CU 7 SAME AS DF6 CU CU 8 THE DEFAULT IS THE NUMBER OF DEPTH POINTS THAT WILL FIT IN THE CU PLOT AREA (USING TRACES PER INCH FROM CARD(3) AND A PLOT AREA O CU 38.0 X 98.0 INCHES AND TAKING DEPTH POINT SPACING INTO CU CONSIDERATION). CU CU 13 THIS IS USED WHEN THERE IS A PERIODIC NUMBER OF DEPTH POINTS CU MISSING BETWEEN INPUT DEPTH POINTS. (I.E. 4 WOULD MEAN THAT CU ONLY EVERY 4TH DEPTH POINT IS INPUT.) CU EJECT CU CU 15 THIS NUMBER IS FIGURED AS: CU (NUMBER OF PANELS PER LINE) X (NUMBER OF PLOT TYPES) CU WHERE EACH PLOT CREATED IS A PANEL. CU EJECT CU CU DATA CARD (2 ) -- INPUT AND LABEL PARAMETERS CU CU NO. OF CARDS: REQUIRED = 1 ALLOWED = 1 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'IAL' |REQ | CU 6 11-15 TYPE OF INPUT |TWT | CU 'TWT' - TWO SETS OF TRACES PRIOR TO ATTRIBUTES | | CU 'ONT' - ONE SET OF TRACES PRIOR TO ATTRIBUTES | | CU 'NOT' - NO TRACES PRIOR TO ATTRIBUTES | | CU 7 16-20 SAMPLE RATE RATIO (PLOTTING/INPUT) |1 | CU 8 21-25 # OF ATTRIBUTE SETS TO SKIP BEFORE 1ST INPUT |0 | CU 9 26-30 # OF ATTRIBUTE SETS TO SKIP BEFORE 2ND INPUT |0 | CU 10 31-35 # OF ATTRIBUTE SETS TO SKIP BEFORE 3RD INPUT |0 | CU 11 36-40 # OF ATTRIBUTE SETS TO SKIP BEFORE 4TH INPUT |0 | CU 12 41-45 DEPTH POINT CORRESPONDING TO FIRST LABEL |NOTE DF12| CU 13 46-50 VALUE OF FIRST LABEL |DF12 | CU 14 51-55 DEPTH POINT CORRESPONDING TO LAST LABEL |NOTE DF14| CU 15 56-60 VALUE OF LAST LABEL |DF14 | CU 16 61-65 LABEL VALUE INCREMENT |10 | CU 17 66-70 'VRT' - DRAW A VERTICAL LINE BELOW EACH LABEL |OPT | CU 18 71-80 NOT USED | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 7 'TWT' WILL USUALLY BE QUAD INPUT. CU 'ONT' WILL USUALLY BE COVE INPUT. CU CU 8 THESE FIELDS ALONG WITH THE SEQUENCE NUMBER (DF13, CARD(5)) CU ARE USED TO DETERMINE THE ATTRIBUTE VALUES TO USE FOR THE PLOTS CU USUALLY THESE FIELDS ARE DEFAULTED AND THE SEQUENCE NUMBER IS CU USED TO INDEX THE ATTRIBUTE VALUES. AN EXCEPTION WOULD BE IF CU THERE WERE MORE THAN FOUR ATTRIBUTE SETS IN THE INPUT. A PLOT O CU A SET PAST THE FOURTH SET IS DONE BY SKIPPING OVER THE 1ST SETS CU CU 12 DEFAULT IS NO LABELS. MAY BE A DECIMAL NUMBER. CU (CONTINUED) CU EJECT CU CU 14 DEFAULT IS NO LABELS. MAY BE A DECIMAL NUMBER. CU ** RESTRICTIONS ON DF12 - DF16 ** CU FIRST DEPTH POINT TO LABEL >= STARTING DEPTH POINT (DF6,CARD(1 CU LAST DEPTH POINT TO LABEL <= ENDING DEPTH POINT (DF7, CARD(1)) CU VALUE OF LAST LABEL NOT EQUAL TO VALUE OF FIRST LABEL. CU LABEL VALUE INCREMENT NOT EQUAL TO ZERO. CU (DF15 - DF13) / DF16 = INTEGER (POS. OR NEG.) CU (DF14 - DF12) / (DF15 - DF13) = INTEGER (POS. OR NEG.) CU ** IF ANY OF THE ABOVE CONDITIONS ARE NOT MET, NO LABELS CU ** WILL BE GENERATED. CU EJECT CU CU DATA CARD (3 ) -- DISPLAY PARAMETERS CU CU NO. OF CARDS: REQUIRED = 1 ALLOWED = 1 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'DSP' |REQ | CU 6 11-15 START TIME OF PLOT (MS) |0 | CU 7 16-20 END TIME OF PLOT (MS) |LINE CARD| CU 8 21-25 HORIZONTAL PLOT SCALE (TRACES/INCH) |12.0 | CU 9 26-30 VERTICAL PLOT SCALE (INCHES/SECOND) |5.0 | CU 10 31-35 TRACE PLOT DEFLECTION FACTOR |3 | CU 11 36-40 LENGTH OF AGC WINDOW (MS) |0 | CU 12 41-45 PLOT DIRECTION |RL | CU 'RL' - RIGHT TO LEFT | | CU 'LR' - LEFT TO RIGHT | | CU 13 46-55 COLOR CODE FOR VARIABLE AREA FILL |161616 | CU 15 56-60 LINE THICKNESS FACTOR FOR WIGGLE TRACE PLOT |1 | CU 16 61-65 OVERRIDE FOR NUMBER OF TRACES TO OVERLAP PLOTS |NOTE DF16| CU 17 66-70 SCALE DIRECTION |DEC | CU 'ASC' - ASCENDING NUMBERS IN SCALE | | CU 'DEC' - DESCENDING NUMBERS IN SCALE | | CU 18 71-75 SCALE TYPE |LIN | CU 'LIN' - LINEAR | | CU 'LOG' - LOGRITHMIC | | CU 19 76-80 PLOT PAGE AXIS |XAX | CU 'XAX' - X-AXIS LONG | | CU 'YAX' - Y-AXIS LONG | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 7 MAXIMUM SAMPLES FOR PLOTTING IS 2048 (APPLICON) OR 4096(VERSATE CU AFTER THE SAMPLE RATIO HAS BEEN CONSIDERED. CU CU 8 IF THIS FIELD IS NEGATIVE IT WILL BE MULTIPLIED BY .01 BEFORE CU IT IS USED. CU CU 9 SAME AS DF8 CU (CONTINUED) CU EJECT CU CU 10 IF DF10 > 0 THEN MAXIMUM TRACE AMPLITUDE WILL BE : CU DF10 * TRACES PER INCH/2 CU IF DF10 < 0 THEN THE TRACES WILL BE PLOTTED AT A SCALE OF : CU (ABSOLUTE VALUE OF DF10) UNITS PER INCH DEFLECTION. CU CU 11 IF DF11 IS EQUAL TO ZERO, THEN NO AGC IS APPLIED TO THE TRACES. CU IF DF11 IS LESS THAN ZERO, THEN THE DATA SET THAT CONTAINS THE CU TRACE OVERLAY IS CALCULATED BY TAKING THE ABSOLUTE VALUE OF CU DF11 AND USING THIS NUMBER AS AN INDEX INTO THE ATTRIBUTE SETS. CU CU 13 161616 IS BLACK. CU CU 16 THE DEFAULT FOR THIS FIELD WILL BE CALCULATED SUCH THAT THERE CU IS AT LEAST ONE LABEL THAT IS ON BOTH PLOTS. CU CU 17 'DEC' PLOTS HIGHER VALUES AT THE TOP OF THE COLOR SCALE. CU 'ASC' PLOTS LOWER VALUES AT THE TOP OF THE COLOR SCALE. CU CU 18 'LIN' A LINEAR SCALE WILL BE USED TO PLOT THE COLORS. CU 'LOG' A LOGRITHMIC SCALE WILL BE USED TO PLOT THE COLORS. CU CU 19 'XAX' THE X-AXIS (TRACES OR HORIZONTAL) WILL BE THE LONGER AXIS CU 'YAX' THE Y-AXIS (TIME OR VERTICAL) WILL BE THE LONGER AXIS. CU EJECT CU CU DATA CARD (4 ) -- DISPLAY PARAMTERS - ADDITIONAL OPTIONS CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = 1 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'ADP' | | CU 6 11-20 TRACE PLOT DEFLECTION FACTOR |NOTE DF6 | CU 7 21-25 TIMING LINE SPACING (EITHER 10, 50 OR 100 MSEC)|10 | CU 8 26-35 TRACE PLOT OFFSET BIAS. (DECIMAL IS ALLOWED) |0.0 | CU 9 36-40 SCALING OPTION |NOTE DF9 | CU 10 41-50 TRUE MEAN VALUE FOR USCAL |NOTE DF10| CU 11 51-55 TRACE OVERLAY DECIMATION FACTOR | 1 | CU 12 56-80 NOT USED. | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 6 IF THIS CARD IS PRESENT, AND DF6 IS NON-ZERO, THEN DF6 CU WILL OVERRIDE THE TRACE PLOT DEFLECTION FACTOR FROM CU FROM CARD 3 (DSP, DF10). THIS FIELD MAY BE ENTERED AS CU A DECIMAL OR WITH EXPONENT ( EXAMPLE 3.5E03 = 3500.) CU CU 9 IF THIS FIELD IS CODED 'RSCAL', THE MEAN OF ABSOLUTE CU VALUES OF ALL TRACE AMPLITUDES IS USED AS THE TRACE CU DEFLECTION FACTOR, OVERRIDING ANY OTHER VALUES. IF THE CU PLOT TYPE IS 'OVR', THIS MEAN IS CALCULATED FROM THE CU AMPLITUDES OF THE SECONDARY DATA. IF 'USCAL' IS CODED, CU THE VALUE IN DF10 IS USED TO CALCULATE THE TRACE DEFLECTION. CU DEFAULT IS BLANK. CU CU 10 TRUE MEAN VALUE TO ASSUME FOR TRACE SCALING. THIS FIELD CU IS IGNORED UNLESS DF9 IS CODED 'USCAL'. CU CU 11 THIS OPTION ALLOWS SEISMIC TRACES TO BE DECIMATED FROM THE CU PLOT WITHOUT AFFECTING THE COLOR PORTION. CU DEFAULT IS 1 FOR EVERY TRACE. CU 2 IMPLIES EVERY OTHER TRACE WILL BE PLOTTED. CU 3 IMPLIES EVERY THIRD TRACE WILL BE PLOTTED. CU EJECT CU CU DATA CARD (5 ) -- DEFINES TYPE OF PLOT AND SPECIFIC PARAMETERS CU CU NO. OF CARDS: REQUIRED = 1 ALLOWED = 5 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'TYP' |REQ | CU 6 11-15 TYPE OF PLOT |REQ | CU 'TRO' - TRACES ONLY | | CU 'AMP' - AMPLITUDE ENVELOPE | | CU 'PHZ' - INSTANTANEOUS PHASE | | CU 'FRQ' - INSTANTANEOUS FREQUENCY | | CU 'WFQ' - WEIGHTED FREQUENCY | | CU 'IVL' - INTERVAL VELOCITY | | CU 'RMS' - RMS VELOCITY | | CU 'IMP' - IMPEDANCE | | CU 'TTM' - TRANSIT TIME | | CU 'UNS' - UNSPECIFIED | | CU 'RAM' - RELATIVE TRACE AMPLITUDE | | CU 'OVR' - OVERLAY ONE ATTRIBUTE ON ANOTHER. | | CU 7 16-20 MINIMUM ATTRIBUTE VALUE TO PLOT IN COLOR |NOTE DF7 | CU 8 21-25 MAXIMUM ATTRIBUTE VALUE TO PLOT IN COLOR |NOTE DF8 | CU 9 26-30 UPPER CLIPPING LEVEL (AMPLITUDE ONLY) |OPT | CU OR USE NEGATIVE PERCENT OF MAXIMUM | | CU 10 31-35 NUMBER OF COLORS TO USE |NOTE DF10| CU 11 36-40 LOWER CLIPPING LEVEL |NOTE DF11| CU OR USE NEGATIVE PERCENT OF MINIMUM | | CU 12 41-45 UPPER CLIPPING LEVEL |NOTE DF12| CU OR USE NEGATIVE PERCENT OF MAXIMUM | | CU 13 46-50 SEQUENCE NUMBER OF INPUT TO USE |REQ | CU 14 51-55 'INV' - INVERT ATTRIBUTE VALUES |OPT | CU 15 56-60 OVERLAY FLAGS |OPT | CU 'OTL' - OMIT TIMING LINES | | CU 'OMT' - OMIT TRACE OVERLAY | | CU 'REV' - REVERSE POLARITY OF TRACE OVERLAY | | CU 16 61-65 COLOR CODE ID (DF6, CARD(8)) |OPT | CU 17 66-70 LOWER LEVEL OF VARIABLE AREA FILL |0 | CU (% OF MAX. DEFLECTION) | | CU 19 76-80 SCALING CODE ID (DF 6, CARD 6,ESC ) |OPT | CU ---------- CU CU DF NOTES CU -- ----- CU EJECT CU CU 6 'UNS' PUTS NO COMMENT IN THE TITLE BLOCK. THE COLORS WILL BE CU ASSIGNED IN A MANNER SIMILAR TO THE FREQUENCY OR VELOCITY PLOTS CU CU 7 DEFAULT IS MINIMUM ATTRIBUTE VALUE OF LINE. CU RANGE OF POSSIBLE VALUES FOR VARIOUS TYPES: CU ANY TYPE OF AMPLITUDE IS IN PERCENT - FROM 0 TO 100. CU ANY TYPE OF PHASE RANGES FROM -180 TO 180. CU ANY TYPE OF FREQUENCY RANGES FROM 0 TO THE ALIASING FREQUENCY. CU FOR ALL OTHERS THE ACTUAL VALUES ARE USED. (UNLESS DF14 IS CODE CU IF SO, THEN THE INVERTED VALUES SHOULD BE SPECIFIED.) CU CU 8 DEFAULT IS MAXIMUM ATTRIBUTE VALUE OF LINE. CU SEE PREVIOUS NOTE FOR POSSIBLE VALUE RANGES. CU CU 9 IF ZERO, THEN THE ACTUAL MAXIMUM OF AMPLITUDE ATTRIBUTE DATA CU SET IS USED. IF LESS THAN ZERO, THEN THE (ABSOLUTE VALUE OF CU DF9) PERCENT OF THE ACTUAL MAXIMUM VALUE IS USED. CU CU 10 DEFAULT IS 7 (8 FOR PHASE). MAXIMUM OF 80. CU RANGE OF EACH COLOR IS (DF8 - DF7) / DF10. CU CU 11 DO NOT ENTER FOR TYPE 'AMP'. CU DEFAULT FOR DF11 IS DF7+1. CU ALL ATTRIBUTE VALUES OUTSIDE OF RANGE WILL RECEIVE THE SAME CU COLOR AS DF11 OR DF12. IF THIS NUMBER IS LESS THAN ZERO THEN CU THE ABSOLUTE VALUE OF THE FIELD IS USED AS A PERCENTAGE. CU THIS PERCENT OF THE ACTUAL MINIMUM/MAXIMUM OF THE CDP RANGE IS CU USED AS THE CLIPPING VALUE. CU 'PHZ' WILL USE NEGATIVE PERCENT FOR LOWER CLIPPING IF < 0. CU 'RMS' AND 'IVL' SUGGESTED LOWER CLIPPING OF 0. CU THIS FIELD SHOULD NOT BE USED WHEN DF14 IS CODED. CU --- CU IF THE VALUE IS PRECEDED BY 'N', THIS WILL SIGNIFY THAT THE CU NEGATED VALUE WILL BE USED INSTEAD OF THE PERCENT OF THE CU MAXIMUM CU CU 12 SAME AS DF11 CU DEFAULT FOR DF12 IS DF8-1. CU CU 13 THIS IS THE SEQUENCE NUMBER OF THE ATTRIBUTE DATA SET TO USE CU TAKEN FROM THE ORDER OF INPUT. CU (CONTINUED) CU CU 14 THE SAMPLE VALUES ARE DIVIDED INTO 1000000 TO CONVERT FROM CU TIME (EXPRESSED IN MICROSECONDS) TO VELOCITY (IN FEET PER CU SECOND). CU CU 17 0% IS VARIABLE AREA FILL FROM TRACE VALUES OF 0 TO MAXIMUM. CU 100% IS NO VARIABLE AREA FILL (WIGGLE TRACE ONLY). CU EJECT CU CU DATA CARD (6 ) -- DEFINES ADDITIONAL SCALING PARAMETERS CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = 5 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'ESC' |REQ | CU 6 11-15 SCALING CODE ID (CARD(5), DF19)|REQ | CU 7 16-20 ATTRIBUTE PLOTTING TYPE |NOTE DF7 | CU '0' - EACH SAMPLE IS PLOTTED AS AN EQUALLY | | CU SIZED RECTANGLE. | | CU '1' - THE SAMPLE VALUES ARE CONTOURED ON THE | | CU TIME-SPACE PLANE. | | CU '2' - TRACE HISTOGRAM PLOT. | | CU HISTOGRAM IS ILLEGAL FOR 'RAM' AND 'OVR' | | CU PLOTS. | | CU 8 21-30 MINIMUM ATTRIBUTE VALUE TO PLOT IN COLOR |NOTE DF8 | CU 9 31-40 MAXIMUM ATTRIBUTE VALUE TO PLOT IN COLOR |NOTE DF8 | CU 10 41-50 UPPER CLIPPING LEVEL (AMPLITUDE ONLY) |NOTE DF8 | CU OR USE NEGATIVE PERCENT OF MAXIMUM | | CU 11 51-60 LOWER CLIPPING LEVEL |NOTE DF8 | CU OR USE NEGATIVE PERCENT OF MINIMUM | | CU 12 61-70 UPPER CLIPPING LEVEL |NOTE DF8 | CU OR USE NEGATIVE PERCENT OF MAXIMUM | | CU 13 71-75 HISTOGRAM PLOT CODE ID (CARD(7), DF6) | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 7 THE DEFAULT IS THE EQUAL AREA PLOT. CU DUE TO SOFTWARE RESTRICTIONS, ONLY ONE CONTOUR PLOT CAN BE CU PRODUCED IN A RUN. CU CU 8 THIS CARD IS OPTIONAL. IF THE CARD IS PRESENT AND A FIELD IS CU NON-BLANK, THEN THE VALUE ENTERED WILL OVERRIDE THE CU CORRESPONDING VALUE FROM CARD (5), 'TYP', CU THIS FIELD MAY BE ENTERED AS A DECIMAL OR WITH AN CU EXPONENT ( EXAMPLE 3.5E03 = 3500.) CU EJECT CU CU DATA CARD (7 ) -- DEFINES HISTOGRAM PLOT PARAMETERS CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = 5 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'HST' |REQ | CU 6 11-15 HISTOGRAM PLOT ID (CARD(6), DF13)|REQ | CU 7 16-20 HISTOGRAM TRACE PLOT BIAS. |NOTE DF7 | CU (DECIMAL MAY BE ENTERED) | | CU 8 21-25 PERCENT OF TRACE SPACING USED FOR HISTOGRAM |100. | CU (DECIMAL MAY BE ENTERED) | | CU 9 26-30 NUMBER OF POINTS IN SMOOTHING FILTER |0 | CU (IF SUPPLIED, MUST BE ODD) | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 7 THIS VALUE WILL DEFAULT TO THE MINIMUM ATTRIBUTE VALUE TO PLOT CU IN COLOR (CARD (5) 'TYP' , DF7 OR CARD (6), 'ESC', DF8). CU EJECT CU CU DATA CARD (8 ) -- DEFINES COLOR CODES CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = 16 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'CLR' - COLOR CODE CARD |REQ | CU 6 11-15 COLOR CODE ID (MUST MATCH CARD (5), DF16) |REQ | CU 7 16-20 NOT USED | | CU 8 21-30 COLOR CODE ---: |NOTE DF8 | CU 10 31-40 COLOR CODE : | | CU 12 41-50 COLOR CODE :--- SIX-DIGIT COLOR CODE | | CU 14 51-60 COLOR CODE : FOR PLOTTING COLORS | | CU 15 61-70 COLOR CODE ---: | | CU 16 71-80 NOT USED | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 6 IF ANY 'CLR' CARDS ARE USED IT IS SUGGESTED THAT THE NUMBER OF CU COLOR CODES MATCH THE NUMBER SPECIFIED IN DF10 OF THE 'TYP' CU CARD. IF NO 'CLR' CARDS ARE USED THEN THE SYSTEM WILL PICK UP CU TO SEVEN (EIGHT FOR PHASE) COLORS. CU CU 8 *** WARNING *** YOU MUST RIGHT JUSTIFY THESE FIELDS OR THEY CU WILL BE READ WRONG. CU MAXIMUM OF 80 COLORS. CU COLOR CODE VALUES IN THE FORM; YYMMCC CU WHERE YY = YELLOW INTENSITY, 00 TO 16 CU MM = MAGENTA INTENSITY, (RED) 00 TO 16 CU CC = CYAN INTENSITY, (BLUE) 00 TO 16 CU EXAMPLE: 160800 = ORANGE COLOR CU COLOR CODE FIELDS WILL BE USED IN THE SEQUENCE GIVEN. CU LEADING BLANKS ARE INTERPRETED AS ZEROES. CU A BLANK FIELD IS INTERPRETED AS A COLOR CODE OF 000000 (WHITE). CU DEFAULT VALUES ARE: CU 16 160016 160008 160000 160800 161600 1600 1616 CU DARK LIGHT LIGHT DARK CU CYAN GREEN GREEN YELLOW ORANGE ORANGE MAGENTA PURPLE CU EJECT CU CU DATA CARD (9 ) -- DEFINES PLOT LABELS CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = 2 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'LBL' |REQ | CU 6 11-80 PLOT LABEL |REQ | CU ---------- CU CU DF NOTES CU -- ----- CU CU 6 THIS LABEL WILL BE PLOTTED AT THE TOP OF THE COLOR PLOT. CU NOTE : ONLY ONE LABEL CARD IS ALLOWED IF THE PLOT PAGE AXIS CU IS 'YAX' - Y-AXIS LONG (DF19, CARD(3)). CU EJECT CU CU DATA CARD (10 ) -- PLOTTING COMMENTS CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = NO LIMIT CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -9 NOT USED | | CU 'C' - COMMENT | | CU 6 11-15 NOT USED | | CU 7 16-20 NOT USED | | CU 8 21-80 PLOTTING INSTRUCTIONS, COMMENTS, ETC. | | CU ---------- CU CU DF NOTES CU -- ----- CU CU 8 THESE COMMENTS MAY CONTAIN SPECIAL INSTRUCTIONS ABOUT PLOTTING CU SUCH AS TWO COPIES, ETC. CU EJECT CU CU DATA CARD (11 ) -- DEFINES PARAMETERS FOR 'OVR' PLOT TYPE CU CU NO. OF CARDS: REQUIRED = 0 ALLOWED = 1 CU CU CU REQ OR OPT CU DF COLS DEFINITION OR DEFAULT CU -- ---- ---------- ---------- CU 1 1 -4 'QULR' |REQ | CU 2 5 -5 PROCESS NUMBER |0 | CU 3 6 -6 NOT USED | | CU 4 7 -7 NOT USED | | CU 5 8 -10 'OVR' |DF1 | CU 6 11-15 SEQUENCE NUMBER OR TRACE ID CODE MNEMONIC |DF6 | CU FOR PRIMARY ATTRIBUTE | | CU 7 16-20 SEQUENCE NUMBER OR TRACE ID CODE MNEMONIC |DF7 | CU FOR SECONDARY ATTRIBUTE. | | CU 8 21-25 MULTIPLEX FLAG |DF8 | CU 9 26-35 LABEL OF UNITS FOR PLOT SCALE |DF9 | CU 11 36-45 SCALE FACTOR FOR PRIMARY ATTRIBUTE. |1. | CU 13 46-55 CLIP FOR PRIMARY ATTRIBUTE. |999999. | CU 15 56-65 SCALE FACTOR FOR SECONDARY ATTRIBUTE. |1. | CU 17 66-75 CLIP FOR PRIMARY ATTRIBUTE. |999999. | CU ---------- CU CU DF NOTES CU -- ----- CU CU 1 THIS CARD IS REQUIRED IF A 'TYP' CARD IS CODED WITH 'OVR'. CU CU 6 THIS FIELD IS CODED AS EITHER A SEQUENCE NUMBER OR A CU RECOGNIZED TRACE CODE ID MNEMONIC. THE RECOGNIZED MNEM- CU ONICS (AS OF 08/02/88) ARE: CU XIS : LITH 'XIS' TRACE, TRACE ID = 42 CU XI : LITH 'XI' TRACE, TRACE ID = 43 CU S : LITH 'S' TRACE, TRACE ID = 44 CU Y : LITH 'Y' TRACE, TRACE ID = 45 CU XISA : LITH 'XISADD' TRACE, TRACE ID = 46 CU COR : LITH 'COR' TRACE, TRACE ID = 47 CU SXSI : LITH 'SXSIGN' TRACE, TRACE ID = 51 CU THESE TRACES WILL BE PLOTTED IN COLOR. CU CU 7 THIS FIELD IS CODED THE SAME WAY AS DF6. THE DIFFERENCE IS CU THAT THE TRACES FOR THE SECONDARY ATTRIBUTE ARE PLOTTED AS CU WIGGLES. CU EJECT CU CU 8 IF THIS VARIABLE IS > 1, THE DATA IS MULTIPLEXED IN GROUPS CU OF DF8 TRACES. FOR EXAMPLE, IF DF8 = 5, QULR WILL ACCEPT CU A NEW CDP FOR BOTH THE PRIMARY AND SECONDARY ATTRIBUTES CU FOR EVERY 5 TRACES THAT ARE READ IN. DEFAULT IS 1 (NO CU MULTIPLEXING. CU CU 9 THIS FIELD IS OPTIONAL. THE CONTENTS OF CC 26-35 IS USED CU AS A LABEL FOR THE PLOT SCALE. CUEND C********************************************************************** C********************************************************************** C 'RSA' - RESIDUAL AMPLITUDE RATIO | | C 'RSP' - RESIDUAL PHASE | | C 'RSF' - RESIDUAL FREQUENCY | | C 'SMA' - SMOOTHED AMPLITUDE | | C 'SMP' - SMOOTHED PHASE | | C 'PCN' - PHASE CONTINUITY | | C 'PCH' - PHASE COHERENCY | | C 'RMD' - RMS VELOCITY DEVIATION | | C 'ADC' - AMPLITUDE EXPONENTIAL DECAY RATE | | C 'ADR' - AMPLITUDE DERIVATIVE | | C 'ASD' - AMPLITUDE SECOND DERIVATIVE | | C 'FDR' - FREQUENCY DERIVATIVE | | C********************************************************************** C C********************************************************************** C C********************************************************************** C EJECT C====================================================================== C FORMAT OF OUTPUT PARAMETER RECORDS C C *** FIRST RECORDS *** PROCESSING RANGES *** CONSTANT PARAMETERS ** C C WORD 1 WORD 2 WORD 3 WORD 4 WORD 5 WORD 6 WORD 7 WORD 8 C |_______|________|_______|_______|_______|_______|_|_|_____|_______| C | 'QULR'| INVOC. | 'PRM '| START | END | # OF |N|D| NOT |DISPLAY| C |_______|_NUMBER_|_______|___DP__|__DP___|_PARMS_|_|_|_USED|__TYPE_| C C WORD 9 WORD 10 WORD 11 WORD 12 WORD 13 WORD 14 WORD 15 WORD 16 C |_______|________|_______|_______|________|_______|_______|_______| C | DP/ | DP | NO. |NO. TRC| SAMPLE | DATA | DATA | DATA | C |_PANEL_|_SPACING|_PLOT__|_FLAG__|__RATIO_|_SKIP1_|_SKIP2_|_SKIP3_| C C WORD 17 WORD 18 WORD 19 WORD 20 WORD 21 WORD 22 WORD 23 WORD 24 C |_______|________|_______|_______|________|_______|_______|_______| C | DATA |FIRST DP| LABEL |LAST DP| LABEL | LABEL | VERTFL| START | C |_SKIP4_|_TO_LBL_|_VALUE_|_TO_LBL|_VALUE__|__INC._|_LINE__|_TIME__| C C WORD 25 WORD 26 WORD 27 WORD 28 WORD 29 WORD 30 WORD 31 WORD 32 C |_______|________|_______|_______|________|_______|_______|_______| C | END | TRACES/|INCHES/| DEFLEC| LENGTH | DIR. | VA | WT | C |_TIME__|_INCH___|_SEC.__|_FACTOR|_OF_AGC_|_FLAG__|_COLOR_|_THICK.| C C WORD 33 WORD 34 WORD 35 WORD 36 WORD 37 WORD 38 C |_______|________|_______|_______|________|_______| C | NO. | OVER | SCALE | SCALE | PLOT |TIME LN| C |_PANEL_|__LAP___|_DIR.__|_TYPE__|__AXIS__|OPTION_| C C WORD 39 WORD 40 WORD 104 C |_______|_______| . . . |_______| C | TRACE | SCALE | . . . | NOT | C |_OFFSET|__OPT._| . . . |_USED__| C C EJECT C C ****** LBL RECORD ************* PLOT LABELS **************** C C WORD 1 WORD 2 WORD 3 WORD 4 WORD 5 WORD 6 WORD 7 WORD 8 C |_______|________|_______|_______|_______|_______|_|_|_____|_______| C | 'QULR'| INVOC. | 'LBL' | START | END | # OF |N|P| NOT | NOT | C |_______|_NUMBER_|_______|__DP___|__DP___|_PARMS_|_|M|_USED|_USED__| C C WORD 9 WORD 26 C |_______| . . . |_______| C | LABEL1| . . . | LABEL1| C |_TEXT__| . . . |_TEXT__| C C WORD 27 WORD 44 WORD 45 WORD 104 C |_______| . . . |_______|_______| . . . |________| C | LABEL2| . . . | LABEL2| NOT | . . . | NOT | C |_TEXT__| . . . |_TEXT__|_USED__| . . . |__USED__| C C EJECT C C ****** TYP RECORD ************* PROCESSING PARAMETERS ****** C C WORD 1 WORD 2 WORD 3 WORD 4 WORD 5 WORD 6 WORD 7 WORD 8 C |_______|________|_______|_______|_______|_______|_|_|_____|_______| C | 'QULR'| INVOC. | 'TYP' | START | END | # OF |N|P| NOT | NCLIP | C |_______|_NUMBER_|_______|__DP___|__DP___|_PARMS_|_|M|_USED|_FLAG__| C C WORD 9 WORD 10 WORD 11 WORD 12 WORD 13 WORD 14 WORD 15 WORD 16 C |_______|________|_______|_______|_______|_______|_________|_______| C | PLOT | PLOT | PLOT | AMP | NO. OF| LOWER | UPPER | SEQ. | C |_TYPE__|__MIN.__|_MAX.__|CLP_MAX|_COLORS|_CLIP__|__CLIP___|__NO.__| C C WORD 17 WORD 18 WORD 19 WORD 20 WORD 21 WORD 22 WORD 101 C |_______|________|_______|_______|_______|_______| . . . |_______| C | INVERT| OVERLAY| VA | PHASE | NO. OF| COLOR | . . . | COLOR | C |_FLAG__|_FLAG___|_FILL__|_SHIFT_|_COLORS|_CODE__| . . . |_CODE__| C C WORD 102 WORD 103 WORD 104 C |_______|________|_______| C | HIST | HIST | NSMTH | C |_BIAS__|_PERCENT|_______| C C EJECT C C ****** OVR RECORD ************* ATTRIBUTE OVERLAY PLOT ***** C C WORD 1 WORD 2 WORD 3 WORD 4 WORD 5 WORD 6 WORD 7 WORD 8 C |_______|________|_______|_______|_______|_______|_|_|_____|_______| C | 'QULR'| INVOC. | 'OVR' | START | END | # OF |N|P| NOT | NOT | C |_______|_NUMBER_|_______|__DP___|__DP___|_PARMS_|_|M|_USED|_USED__| C C WORD 9 WORD 10 WORD 11 WORD 12 WORD 13 WORD 14 WORD 15 WORD 16 C |_______|________|_______|_______|_______|_______|_________|_______| C |PRIMARY|SECOND- | MULT. | UNITS | UNITS | UNITS | PRIM. | PRIM. | C |_SEQ.__|ARY SEQ.|_FLAG__|_LABEL_|_LABEL_|_LABEL_|__SCALE__|_CLIP__| C C WORD 17 WORD 18 WORD 19 WORD 20 WORD 21 WORD 22 WORD 104 C |_______|________|_______|_______|_______|_______| . . . |_______| C | SEC. | SEC. | NOT | NOT | NOT | NOT | . . . | NOT | C |_SCALE_|_CLIP___|_USED__|_USED__|_USED__|_USED__| . . . |_USED__| C C ==================================================================== C EJECT C LOCAL OR INTERNAL ARRAYS C C ARGUMENT TYPE LENGTH DESCRIPTION C CARD I4 20 DATA CARD INPUT C DATTR I4 96 DATA ATTRIBUTES STORAGE C DENTRY I4 104 PARAMETER STORAGE C DEPTHP I4 2 CHARACTER STRING 'DEPTH PT' C SHOTPT I4 2 CHARACTER STRING 'SHOT PT ' C TYPPNT I4 2 CHARACTER STRING ' ' TO BEGIN WITH C XDATTR R4 96 REAL DATA ATTRIBUTES STORAGE C PLCODE C5 24 LEGAL VALUES OF ALL PLOT CODES. C C LOCAL OR INTERNAL VARIABLES AND CONSTANTS C C ARGUMENT TYPE DESCRIPTION C DA I4 DISK ADDRESS FOR DUMPING PARAMETER RECORDS C LR I4 CHARACTER STRING ' LR ' C NC I4 NUMBER OF COLORS REQUESTED -- INPUT C NO I4 CHARACTER STRING ' NO ' C RL A4 CHARACTER STRING ' RL ' C ASC A4 CHARACTER STRING 'ASC ' C DA1 I4 INDEX USED FOR READING CARDS C DA2 I4 INDEX USED FOR WRITING PARAMETER RECORDS C DA3 I4 INDEX USED FOR READING COLOR CARDS C DEC A4 CHARACTER STRING 'DEC ' C EDP I4 ENDING DEPTH POINT OF PROCESSING C LBL A4 CHARACTER STRING 'LBL ' C LIN A4 CHARACTER STRING 'LIN ' C LOG A4 CHARACTER STRING 'LOG ' C NOC I4 NUMBER OF CARDS READ C PRM I4 CHARACTER STRING 'PRM ' C SDP I4 STARTING DEPTH POINT NUMBER C TYP A4 CHARACTER STRING 'TYP ' C XAX A4 CHARACTER STRING 'XAX ' C YAX A4 CHARACTER STRING 'YAX ' C YES A4 CHARACTER STRING 'YES ' C ECLR I4 ENDING COLOR FOR PRINT OUT C NTYP I4 NUMBER OF TYPES OF PLOTS TO GENERATE C TEMP R4 TEMPORARY VARIABLE C COUNT I4 COUNT OF NUMBER OF COLORS INPUT C DCTYP I4 DATA CARD TYPE C NOPAR I4 NUMBER OF PARAMETERS ON RECORD C NOREC I4 NUMBER OF RECORDS WRITTEN C NOTRF I4 NUMBER OF TRACES TO INPUT BEFORE ATTRIBUTES FLAG C NPLTS I4 NUMBER OF PLOTS TO GENERATE (CALCULATED) C PMODE I4 PROCESSING MODE C BLANKC A4 CHARACTER STRING ' ' C BLANKI I4 INTEGER STRING Z40404040 C CLRCD2 I4 COLOR CODE ID FROM CLR CARDS C CLRCOD I4 COLOR CODE ID FROM DSP CARDS C DIRFLG I4 PLOT DIRECTION FLAG C INVFLG I4 INVERT ATTRIBUTES FLAG C NDPPLT I4 NUMBER OF DEPTH POINTS TO PLOT PER LINE C NDPPNL I4 NUMBER OF DEPTH POINTS TO PLOT PER PANEL C NOPANL I4 NUMBER OF PANELS C NOPLOT I4 NUMBER OF PLOTS TO GENERATE (INPUT) C NUMTRC I4 NUMBER OF TRACES THAT WILL FIT IN A PANEL C OVERLP I4 NUMBER OF TRACES TO OVERLAP WHEN A LINE IS SPLIT C OVRFLG I4 OVERLAY FLAG C PLTPAG I4 PLOT PAGE AXIS FLAG C PLTYPE I4 PLOT TYPE C SCLDIR I4 SCALE DIRECTION FLAG C SCLTYP I4 SCALE TYPE FLAG (LINEAR OR LOGRITHMIC) C VRTFLG I4 VERTICAL LINE FLAG C IPLTYP I4 PLOT TYPE (0=EQUAL AREA,1=CONTOUR,2=HISTOGRAM) C HISTBS R4 HISTOGRAM PLOT BIAS C HISTPC R4 HISTOGRAM PLOT TRACE EXCURSION PERCENTAGE C NSMTH R4 HISTOGRAM - NUMBER OF SAMPLES IN SMOOTHING FILTER C ITLOPT I4 TIMING LINE OPTION C C EJECT C SUBROUTINE SPQULR C IMPLICIT INTEGER (A-Z) C CX ********** COMMON DATA FROM THE LINE HEADER C C COMMON /P/ STATEMENTS GENERATED BY UTCGI4 C 4/28/78 C COMMON /P/ STATEMENTS GENERATED BY UTCGI4 11/30/83 COMMON /P/ STARTP REAL *8 STARTP COMMON /P/ LCNAME COMMON /P/ LC5 COMMON /P/ LCINT COMMON /P/ LCTYP , M00020 COMMON /P/ LCBGSP COMMON /P/ LCENSP , M00032( 2) COMMON /P/ LCNSP COMMON /P/ LCTPSP COMMON /P/ LCRL COMMON /P/ LCSI COMMON /P/ LCPI COMMON /P/ LCGRPI COMMON /P/ LCMXFD , M00068( 2) COMMON /P/ LCDRYF , M00080( 3) COMMON /P/ ACNAME COMMON /P/ AC0506 COMMON /P/ AC64BC COMMON /P/ ACOPCD COMMON /P/ ACQCF COMMON /P/ ACDIST COMMON /P/ ACPROJ COMMON /P/ ACLNAM ( 5) COMMON /P/ ACCOM ( 8) , M00144 COMMON /P/ ACTYPE COMMON /P/ ACNSP COMMON /P/ ACUSER ( 5) , M00188( 12) COMMON /P/ LHJBNO COMMON /P/ LHLNO COMMON /P/ LHRLNO COMMON /P/ LHTPSP COMMON /P/ LHATSP COMMON /P/ LHSI COMMON /P/ LHORSI COMMON /P/ LHST COMMON /P/ LHORST COMMON /P/ LHDFCD COMMON /P/ LHEXFD COMMON /P/ LHTSCD COMMON /P/ LHVSCD COMMON /P/ LHSWFS COMMON /P/ LHSWFE COMMON /P/ LHSWL COMMON /P/ LHSWCD COMMON /P/ LHTSNO COMMON /P/ LHSWTS COMMON /P/ LHSWTE COMMON /P/ LHSWTT COMMON /P/ LHTCF COMMON /P/ LHBGRF COMMON /P/ LHARCD COMMON /P/ LHMS COMMON /P/ LHSGPL COMMON /P/ LHVPCD COMMON /P/ LHNSP COMMON /P/ LHNDP COMMON /P/ LHNSL COMMON /P/ LHMTPR , M00376( 9) COMMON /P/ KPNA COMMON /P/ KPRNO , M00420 COMMON /P/ KPA COMMON /P/ KPDBGS COMMON /P/ KPDBGA COMMON /P/ KPDBGN COMMON /P/ KPWRKS COMMON /P/ KPWRKD , M00448( 4) COMMON /P/ KPFCF COMMON /P/ KPIRSM COMMON /P/ KPNRSM COMMON /P/ KPIUSM COMMON /P/ KPNUSM COMMON /P/ KPTIME COMMON /P/ KPRTF COMMON /P/ KPDRTF COMMON /P/ KPMOTF COMMON /P/ KPNBR COMMON /P/ KPIBN COMMON /P/ KPITSV COMMON /P/ KPTAMF COMMON /P/ KPLOTF COMMON /P/ KPMITF COMMON /P/ KPPRNT COMMON /P/ KPPLOT COMMON /P/ KPPLTA COMMON /P/ KPBUGF , M00540( 226) COMMON /P/ ENDP C C=================================================================== C C INTEGER ARRAYS AND CONSTANTS -- LOCAL C INTEGER CARD (20) INTEGER DENTRY (104) INTEGER DATTR (96) INTEGER IDCODS (7) INTEGER BLANKI /Z40404040/ INTEGER OVRCLR (11) INTEGER RAMCLR (17) CHARACTER*5 PLCODE(25) C C CHARACTER CONSTANTS -- LOCAL C CF CHARACTER*8 SHOTPT /'SHOT PT '/ CHARACTER*8 DEPTHP /'DEPTH PT'/ CHARACTER*8 TYPPNT /' '/ CHARACTER*4 BLANKC /' '/ CHARACTER*5 CODE CHARACTER*4 PRM /'PRM '/ CHARACTER*4 TYP /'TYP '/ CHARACTER*4 LBL /'LBL '/ CHARACTER*4 YES /'YES '/ CHARACTER*4 ASC /'ASC '/ CHARACTER*4 DEC /'DEC '/ CHARACTER*4 LIN /'LIN '/ CHARACTER*4 LOG /'LOG '/ CHARACTER*4 XAX /'XAX '/ CHARACTER*4 YAX /'YAX '/ CHARACTER*4 NO /' NO '/ CHARACTER*4 LR /' LR '/ CHARACTER*4 RL /' RL '/ CHARACTER*4 DCTYP CHARACTER*4 NOTRF CHARACTER*4 DIRFLG CHARACTER*4 INVFLG CHARACTER*4 OVRFLG CHARACTER*4 PLTPAG CHARACTER*4 PLTYPE CHARACTER*12 SCALAB CHARACTER*4 SCLDIR CHARACTER*4 SCLTYP CHARACTER*4 VRTFLG CHARACTER*80 CARD2 CHARACTER*80 CARD1 CHARACTER*10 C1 CHARACTER*10 C2 CHARACTER*10 C3 CHARACTER*10 C4 CHARACTER*10 C5 CHARACTER*10 BLNK /' ' / CHARACTER*5 SCTYP(3) CHARACTER*5 SEQDES(7) CHARACTER*5 PRIDES CHARACTER*5 SECDES C LOGICAL OVRPLT C EQUIVALENCE (DCTYP ,DENTRY (03)) EQUIVALENCE (SDP ,DENTRY (04)) EQUIVALENCE (EDP ,DENTRY (05)) EQUIVALENCE (NOPAR ,DENTRY (06)) EQUIVALENCE (PMODE ,DENTRY (07)) C EQUIVALENCE ( ,DENTRY (08)) EQUIVALENCE (DATTR(1) ,DENTRY (09)) C EQUIVALENCE (CARD ,CARD1 ) C C REAL ARRAYS AND VARIABLES -- LOCAL C REAL XDATTR(96) EQUIVALENCE (DATTR(1) , XDATTR(1)) REAL PRISCF REAL PRICLP REAL SECSCF REAL SECCLP REAL TEMP REAL TRDEF REAL RMINV REAL RMAXV REAL RACLP REAL RLCLP REAL RUCLP REAL R1 REAL R2 REAL R3 REAL R4 REAL R5 REAL HISTBS REAL HISTPC REAL USCALE REAL VLCOP C C LWC C REAL PTMMS REAL INPMS REAL TINCH REAL YTLMM REAL YLENMX C C LWC C DATA PLCODE / 'TRO', 'AMP', 'PHZ', 'FRQ', 'WFQ', 'POL', * 'RSA', 'RSP', 'RSF', 'SMA', 'SMP', 'PCN', * 'PCH', 'IVL', 'RMS', 'RMD', 'IMP', 'TTM', * 'UNS', 'ADC', 'ADR', 'ASD', 'FDR', 'RAM', * 'OVR' / DATA NPLCOD / 25 / C C DEFAULT COLOR CODES FOR 'RAM' TYPE PLOTS. C DATA RAMCLR / 161200, 160800, 160400, 160000, 160008, * 160012, 080008, 000000, 000000, 000000, * 000008, 000012, 000416, 001216, 001612, * 001608, 001600 / DATA NRAMC / 17 / C C DEFAULT COLORS FOR OVR LITH OPTION. C DATA OVRCLR / 000416, 000016, 000012, 000008, 000004, * 000000, 040400, 080800, 121200, 161200, * 161600 / DATA NCOVR / 11 / C DATA SCTYP / ' ', 'RSCAL', 'USCAL' / C C SEQUENCE FIELD DESCRIPTIONS FOR OVR CARD FIELDS C DATA NSEQS / 7 / DATA SEQDES / 'XIS ','XI ','S ','Y ','XISA','COR ','SXSI'/ DATA IDCODS / 42, 43, 44, 45, 46, 47, 51/ C C INTIALIZATION AREA C DA1 = 1 DA2 = 1 C C ============= C PRINT HEADING C ============= C CALL USPHD (1,ACLNAM,KPNA,KPRNO,0,0,KPPRNT) DENTRY(1) = KPNA DENTRY(2) = KPRNO C DCTYP = PRM C NOREC = 0 NOC = 0 C C ========= C SET PMODE C ========= C C DEFAULT THE PROCESSING MODE TO 'D' C CALL FORC (KPNA,KPRNO,DA1,CARD1, *410 ) IF (CARD1(7:7) .EQ. ' ' .OR. * CARD1(7:7) .EQ. 'D') GO TO 10 C WRITE (KPPRNT, 9000 ) CARD KPRTF = -1 C 10 CARD1(7:7) = 'D' C C SET THE INTERPOLATION TYPE TO 'N' C CARD1(6:6) = 'N' CALL S1MVCH (CARD1,6,PMODE,1,2) TYPPNT = DEPTHP C 20 CALL ARSET(DATTR, 96, 0) C DA1 = 1 C C ========================== C RETRIEVE PROCESSING RANGES C ========================== C 40 CALL FORC (KPNA,KPRNO,DA1,CARD1, *50 ) IF (CARD1(8:10) .NE. ' ') GO TO 40 NOC = NOC + 1 C SDP = S1CVBN (CARD,11,5) IF (SDP .EQ. 0) GO TO 370 C EDP = S1CVBN (CARD,16,5) IF (EDP .EQ. 0) GO TO 370 NDPPLT = EDP - SDP + 1 C WRITE(KPPRNT, 9010 ) TYPPNT, SDP, * TYPPNT, EDP C 50 IF (NOC.GT.1) GO TO 380 IF (NOC .EQ. 0) GO TO 390 C C CHECK THE DISPLAY OPTION C OTYPE = -1 IF (CARD1(76:80) .EQ. ' ' .OR. * CARD1(76:80) .EQ. ' COL') OTYPE = 1 COUT IF (CARD1(76:80) .EQ. 'OFCOL') OTYPE = 2 IF (CARD1(76:80) .EQ. 'ONCOL') OTYPE = 3 IF (CARD1(76:80) .EQ. ' META') OTYPE = 4 C IF (OTYPE .EQ. -1) GO TO 395 DENTRY (08) = OTYPE C 65 NOC = 0 C C GET # DPS/PANEL, DP SPACING, TOTAL # OF PLOTS C DATTR(1) = S1CVBN(CARD, 21, 5) C DATTR(2) = S1CVBN(CARD, 46, 5) IF (DATTR(2) .EQ. 0) DATTR(2) = 1 C DATTR(3) = S1CVBN(CARD, 56, 5) IF (DATTR(3) .NE. 0) GO TO 70 WRITE (KPPRNT, 9030 ) KPRTF = -1 C C ================== C PREPARE PARAMETERS C ================== C 70 DA1 = 1 C 80 CALL FORC (KPNA, KPRNO, DA1, CARD1, *350 ) IF (CARD1(8:10) .NE. 'IAL') GO TO 80 C C FIND OUT HOW MANY TRACES PRIOR TO ATTRIBUTES C NOTRF = ' ' IF (CARD1(11:15) .EQ. ' ') DATTR(4) = 1 C DO 85 I = 11, 13 IF (CARD1(I:I+2) .EQ. 'TWT') DATTR(4) = 1 IF (CARD1(I:I+2) .EQ. 'ONT') DATTR(4) = 2 IF (CARD1(I:I+2) .EQ. 'NOT') DATTR(4) = 3 IF (DATTR(4) .NE. 0) THEN NOTRF = CARD1(I:I+2) GO TO 90 ENDIF 85 CONTINUE C WRITE (KPPRNT, 9040 ) CARD KPRTF = -1 C C SAMPLING RATIO C 90 DATTR(5) = S1CVBN(CARD,16,5) IF (DATTR(5) .EQ. 0) DATTR(5) = 1 C C NUMBER OF ATTRIBUTE SETS TO SKIP C DATTR(6) = S1CVBN(CARD,21,5) DATTR(7) = S1CVBN(CARD,26,5) DATTR(8) = S1CVBN(CARD,31,5) DATTR(9) = S1CVBN(CARD,36,5) C C PICK OFF LABEL PARAMETERS C CALL USCHFT(CARD,41,5,XDATTR(10)) DATTR(11) = S1CVBN(CARD,46,5) CALL USCHFT(CARD,51,5,XDATTR(12)) DATTR(13) = S1CVBN(CARD,56,5) DATTR(14) = S1CVBN(CARD,61,5) IF (DATTR(14) .EQ. 0) DATTR(14) = 10 OVERLP=DATTR(14) C C VERTICAL LINE FLAG C VRTFLG = NO C DO 95 I = 66, 68 95 IF (CARD1(I:I+2) .EQ. 'VRT') DATTR(15) = 1 C IF (DATTR(15) .EQ. 1) VRTFLG = YES C C READ DISPLAY CARD C 100 DA1 = 1 C 110 CALL FORC (KPNA, KPRNO, DA1, CARD1, *360 ) IF (CARD1(8:10) .NE. 'DSP') GO TO 110 C C GET START - END TIME OF PLOT (MS) C DATTR(16) = S1CVBN(CARD,11,5) DATTR(17) = S1CVBN(CARD,16,5) IF (DATTR(17) .EQ. 0) DATTR(17) = LCRL C C GET HORIZONTAL AND VERTICAL PLOT SCALES C CALL USCHFT(CARD,21,5, XDATTR(18)) IF (XDATTR(18) .EQ. 0.0) XDATTR(18) = 12.0 IF (XDATTR(18) .GT. 125.0) XDATTR(18) = 125.0 IF (XDATTR(18) .LT. 0.0) XDATTR(18) = -XDATTR(18) * 0.01 CALL USCHFT(CARD,26,5,XDATTR(19)) IF (XDATTR(19) .EQ. 0.0) XDATTR(19) = 5.0 IF (XDATTR(19) .LT. 0.0) XDATTR(19) = -XDATTR(19) * 0.01 C C TRACE PLOT DEFLECTION FACTOR C READ(CARD1,9291) TRDEF IF (TRDEF .EQ. 0.0) TRDEF = 3.0 CALL ARMVE (TRDEF, DATTR(20), 1) C C C======================================================================= C C CHECK TO SEE IF ADP CARD IS PRESENT C DA1 = 1 ITLOPT = 10 VLCOP = 0.0 ITRDEC = 0 C 112 CALL FORC (KPNA, KPRNO, DA1, CARD2, *113 ) IF (CARD2(8:10) .NE.'ADP') GO TO 112 C C READ(CARD2,9290) TRDEF, ITLOPT, VLCOP C IF (ITLOPT.NE.50 .AND. ITLOPT.NE.100) ITLOPT = 10 C IF (TRDEF .NE. 0.0) *CALL ARMVE (TRDEF, DATTR(20), 1) C IF (CARD2(36:40) .EQ. 'RSCAL') THEN DATTR(32) = 1 ELSE IF (CARD2(36:40) .EQ. 'USCAL') THEN DATTR(32) = 2 C C DECODE USCAL SCALE FACTOR C IF (CARD2(41:50) .EQ. ' ') THEN WRITE (KPPRNT, 9390) KPRTF = -1 USCALE = 0 ELSE READ (CARD2(41:50), 9370) USCALE ENDIF C ELSE DATTR(32) = 0 ENDIF C ENDIF RSCALE = DATTR(32) CALL S1MVCH(USCALE, 1, DATTR(33), 1, 4) C C GET TRACE OVERLAY DECIMATION FACTOR C ITRDEC = S1CVBN(CARD2,51,5) C 113 CONTINUE C C LOAD TRACE OVERLAY DECIMATION FACTOR IF (ITRDEC .EQ. 0) ITRDEC = 1 DATTR(34) = ITRDEC C C C======================================================================= C DATTR(30) = ITLOPT CALL ARMVE (VLCOP, DATTR(31), 1) C C LENGTH OF AGC WINDOW C DATTR(21) = S1CVBN(CARD,36,5) C C PLOT DIRECTION FLAG C DATTR(22) = -1 IF (S1CPCH(CARD,41,' ',1,5) .EQ. 0) THEN DATTR(22) = 0 DIRFLG = RL GO TO 120 ENDIF C DO 115 I = 41, 44 IF (S1CPCH(CARD,I,'RL',1,2) .EQ. 0) THEN DATTR(22) = 0 DIRFLG = RL GO TO 120 ENDIF C IF (S1CPCH(CARD,I,'LR',1,2) .EQ. 0) THEN DATTR(22) = 1 DIRFLG = LR GO TO 120 ENDIF 115 CONTINUE C C INVALID PLOT DIRECTION C WRITE (KPPRNT, 9050 ) CARD KPRTF = -1 C C C GET COLOR CODE FOR VA FILL C 120 CONTINUE DATTR(23) = S1CVBN(CARD,46,10) IF (S1CPCH(CARD,46,' ',1,10) .EQ. 0) DATTR(23) = 161616 C C GET WT THICKNESS C DATTR(24) = S1CVBN(CARD,56,5) IF (DATTR(24) .EQ. 0) DATTR(24) = 1 C C GET OVERRIDE FOR NUMBER OF TRACES TO OVERLAP C DATTR(26) = S1CVBN(CARD,61,5) C C SCALE DIRECTION C SCLDIR = DEC DATTR(27) = 2 C DO 125 I = 66, 68 IF (S1CPCH(CARD,I,ASC,1,3) .EQ. 0) DATTR(27) = 1 125 IF (S1CPCH(CARD,I,DEC,1,3) .EQ. 0) DATTR(27) = 2 C IF (DATTR(27) .EQ. 1) SCLDIR = ASC C C SCALE TYPE C SCLTYP = LIN C DO 126 I = 71, 73 IF (S1CPCH(CARD,I,LIN,1,3) .EQ. 0) DATTR(28) = 0 126 IF (S1CPCH(CARD,I,LOG,1,3) .EQ. 0) DATTR(28) = 1 C IF (DATTR(28) .EQ. 1) SCLTYP = LOG C C PLOT PAGE AXIS C DATTR(29) = 2 PLTPAG = XAX C DO 127 I = 76, 78 IF (S1CPCH(CARD,I,XAX,1,3) .EQ. 0) DATTR(29) = 2 127 IF (S1CPCH(CARD,I,YAX,1,3) .EQ. 0) DATTR(29) = 3 C IF (DATTR(29) .EQ. 3) PLTPAG = YAX C C LWC CHECK FOR TOO LARGE OF PLOT WIDTH C YLENMX = 38.0 * 25.4 IF (DATTR(29) .EQ. 3) YLENMX = 98.0 * 25.4 PTMMS = DATTR(17) - DATTR(16) INPMS = XDATTR(19) / 1000.0 TINCH = INPMS * PTMMS YTLMM = TINCH * 25.4 C C IF (YTLMM .GT. YLENMX) THEN WRITE (KPPRNT, 9510) TINCH KPRTF = -1 ENDIF C C LWC C C CORRECT NO. OF DPS/PANEL C C C IF (OTYPE.EQ.3) THEN NUMTRC = XDATTR(18) * 98.0 * DATTR(2) ELSE NUMTRC = XDATTR(18) * 31.5 * DATTR(2) ENDIF C IF (DATTR(1) .EQ. 0) DATTR(1) = NUMTRC IF (DATTR(1) .LE. NUMTRC) GO TO 130 WRITE (KPPRNT, 9060 ) DATTR(1), NUMTRC, NUMTRC DATTR(1) = NUMTRC C C CALCULATE OVERLAP AND NUMBER OF PANELS C 130 TEMP = XDATTR(12) - XDATTR(10) IF (XDATTR(12) .EQ. 0.0) TEMP = 0.0 IF (XDATTR(10) .EQ. 0.0) TEMP = 0.0 IF (DATTR(11) .EQ. 0) DATTR(11) = INT(XDATTR(10)) IF (DATTR(13) .EQ. 0) DATTR(13) = INT(XDATTR(12)) IF (TEMP .EQ. 0.0) GO TO 135 IF (DATTR(11) .EQ. DATTR(13)) GO TO 135 TEMP = TEMP / (DATTR(13) - DATTR(11)) OVERLP = DATTR(14) * ABS(TEMP) 135 IF (S1CPCH(CARD,61,' ',1,5) .NE. 0) OVERLP = DATTR(26) NDPPNL = DATTR(1) - OVERLP NOPANL = (NDPPLT - DATTR(1)) / NDPPNL IF(NOPANL * NDPPNL .NE. NDPPLT - DATTR(1)) NOPANL = NOPANL + 1 NOPANL = NOPANL + 1 IF (NDPPLT .LE. DATTR(1)) NOPANL = 1 NOPLOT = DATTR(3) DATTR(25) = NOPANL DATTR(26) = OVERLP C IF (KPRTF .EQ. -1) GO TO 140 C C PRINT PARAMETERS USED C WRITE (KPPRNT, 9070 ) DATTR(1),DATTR(2),DATTR(3),NOTRF, * (DATTR(L),L=5,9) IF (TEMP.NE.0.0) *WRITE (KPPRNT, 9080 ) (DATTR(L),L=10,14),VRTFLG WRITE (KPPRNT, 9090 ) (DATTR(K),K=16,19),TRDEF,DATTR(21), DIRFLG, * DATTR(23), DATTR(24),SCLDIR,SCLTYP,PLTPAG C C WRITE(KPPRNT,9300) TRDEF, ITLOPT, VLCOP, SCTYP(RSCALE+1), USCALE, * ITRDEC C C C WRITE OUT PARAMETER RECORD C NOPAR = 34 CALL FOWP (KPNA, KPRNO, DA2, 104, DENTRY, *340 ) CKG********************************************************************* C WRITE(6,43254) DA2, DENTRY C43254 FORMAT('0DENTRY - DA2',I5,/, (1X,12Z9)) CKG********************************************************************* NOREC = NOREC + 1 C 140 DO 150 L = 1, 96 150 DATTR(L) = 0 C C GET LABELS C DA1 = 1 DCTYP = LBL NOC = 0 CALL ARSET (DATTR(1), 36, BLANKI) K = 1 C C READ IN LABEL CARD C 160 CALL FORC (KPNA, KPRNO, DA1, CARD, *170 ) IF (S1CPCH(CARD, 8, 'LBL', 1,3) .NE. 0) GO TO 160 NOC = NOC + 1 CALL S1MVCH (CARD, 11, DATTR(K),1,70) IF (PLTPAG .EQ. YAX) GO TO 170 IF (NOC .EQ. 2) GO TO 170 K = 19 GO TO 160 C C WRITE RECORD C 170 IF (NOC .EQ. 0) GO TO 200 IF (NOC .EQ. 1) NOPAR = 18 IF (NOC .EQ. 2) NOPAR = 36 CALL FOWP (KPNA,KPRNO,DA2,104, DENTRY, *340 ) CKG********************************************************************* C WRITE(6,43254) DA2, DENTRY CKG********************************************************************* NOREC = NOREC + 1 C IF (KPRTF .EQ. -1) GO TO 180 C C WRITE OUT LABEL USED C WRITE (KPPRNT, 9100 ) (DATTR(L),L=1,NOPAR) C C ZERO OUT OUTPUT C 180 DO 190 L = 1, 96 190 DATTR(L) = 0 C C READ TYPE OF DISPLAY CARD C 200 DA1 = 1 DCTYP = TYP NOC = 0 C 210 CALL FORC(KPNA, KPRNO, DA1, CARD, *320 ) IF (S1CPCH(CARD,8,'TYP',1,3) .NE. 0) GO TO 210 NOC = NOC + 1 C C GET OUTPUT TYPE C DATTR(1) = -1 PLTYPE = BLANKC CALL S1MVCH(CARD, 11, CODE, 1, 5) CALL USLJST(CODE) OVRPLT = .FALSE. C DO 215 I = 1, NPLCOD IF (CODE .EQ. 'OVR') OVRPLT = .TRUE. IF (CODE .EQ. PLCODE(I)) THEN DATTR(1) = I - 1 GO TO 216 ENDIF 215 CONTINUE C 216 CONTINUE C C DO NOT ALLOW APPARENT POLARITY PLOTS. C IF (CODE(1:3) .EQ. 'POL') THEN WRITE (KPPRNT, 9320) KPRTF = -1 ENDIF C IF (DATTR(1) .NE. -1) THEN PLTYPE(2:4) = CODE(1:3) IF (S1CPCH(CARD, 11, ' ', 1, 5) .NE. 0) GO TO 220 ENDIF C WRITE (KPPRNT, 9110 ) CARD KPRTF = -1 C 220 CONTINUE C C C C MINIMUM AND MAXIMUM ATTRIBUTE VALUES TO PLOT C RMINV = S1CVBN (CARD, 16, 5) RMAXV = S1CVBN (CARD, 21, 5) CALL ARMVE ( RMINV, DATTR(2), 1 ) CALL ARMVE ( RMAXV, DATTR(3), 1 ) IF (S1CPCH(CARD,16,' ',1,5) .EQ. 0) DATTR(2) = BLANKI IF (S1CPCH(CARD,21,' ',1,5) .EQ. 0) DATTR(3) = BLANKI C C UPPER CLIPPING LEVEL FOR AMPLITUDE C OR PERCENT OF MAXIMUM TO USE C RACLP = S1CVBN(CARD,26,5) CALL ARMVE ( RACLP, DATTR(4), 1 ) C C NUMBER OF COLORS C DATTR(5) = S1CVBN(CARD, 31, 5) C IF (DATTR(5) .EQ. 0) THEN IF (DATTR(1) .NE. 2) DATTR(5) = 7 IF (DATTR(1) .EQ. 2) DATTR(5) = 8 IF (DATTR(1) .EQ. 23 ) DATTR(5) = 17 IF (DATTR(1) .EQ. 24 ) DATTR(5) = 11 ENDIF C IF (DATTR(5) .LE. 80) GO TO 230 C WRITE (KPPRNT, 9120 ) DATTR(5) = 80 C 230 NC = DATTR(5) IF (DATTR(1) .EQ. 1) GO TO 240 C C LOWER CLIPPING LEVEL C OR NEGATIVE PERCENT OF MINIMUM TO USE C NFLG = 0 DO 231 N = 36,40 IF (CARD1(N:N) .EQ. 'N' ) THEN CARD1(N:N) = '-' NFLG = 1 ENDIF 231 CONTINUE C DO 232 N = 41,45 IF (CARD1(N:N) .EQ. 'N' ) THEN CARD1(N:N) = '-' NFLG = 10 + NFLG ENDIF 232 CONTINUE C C RLCLP = S1CVBN(CARD, 36, 5) CALL ARMVE ( RLCLP, DATTR(6), 1 ) IF (S1CPCH(CARD,36,' ',1,5) .EQ. 0) DATTR(6) = BLANKI IF (S1CPCH(CARD,36,' ',1,5) .EQ. 0 .AND. * S1CPCH(CARD,16,' ',1,5) .NE. 0) THEN XDATTR(6) = XDATTR(2) + 1. IF (XDATTR(6) .LT. 0) NFLG = NFLG + 1 ENDIF C C UPPER CLIPPING LEVEL C OR NEGATIVE PERCENT OF MAXIMUM TO USE C RUCLP = S1CVBN(CARD, 41, 5) CALL ARMVE ( RUCLP, DATTR(7), 1 ) IF (S1CPCH(CARD,41,' ',1,5) .EQ. 0) DATTR(7) = BLANKI IF (S1CPCH(CARD,41,' ',1,5) .EQ. 0 .AND. * S1CPCH(CARD,21,' ',1,5) .NE. 0) THEN XDATTR(7) = XDATTR(3) - 1. IF (XDATTR(7) .LT. 0) NFLG = NFLG + 10 ENDIF C DENTRY(8) = NFLG C C C SEQUENCE NUMBER OF INPUT TO USE C 240 DATTR(8) = S1CVBN(CARD, 46, 5) IF (DATTR(8) .GE. 1 .AND. DATTR(8) .LE. 4) GO TO 241 WRITE (KPPRNT, 9125) KPRTF = -1 C C 241 CONTINUE C C INVERT ATTRIBUTE VALUES FLAG C DO 242 I = 51, 53 242 IF (S1CPCH(CARD, I,'INV',1,3) .EQ. 0) DATTR(9) = 1 C INVFLG = BLANKC IF (DATTR(9) .EQ. 1) CALL S1MVCH('INV',1,INVFLG,1,3) C C OVERLAY DATA -- TRACE AND TIMING LINES C DATTR(10) = 0 C DO 244 I = 56, 58 IF (S1CPCH(CARD,I,'OMT',1,3) .EQ. 0) DATTR(10) = 1 IF (S1CPCH(CARD,I,'REV',1,3) .EQ. 0) DATTR(10) = 2 IF (S1CPCH(CARD,I,'OTL',1,3) .EQ. 0) DATTR(10) = 3 244 IF (DATTR(10) .NE. 0) GO TO 246 C 246 OVRFLG = BLANKC IF (DATTR(10) .NE. 0) CALL S1MVCH(CARD,I,OVRFLG,1,3) C C GET COLOR CODE ID C CLRCOD = S1CVBN(CARD,61,5) C C GET LOWER LEVEL OF VA FILL C DATTR(11) = S1CVBN(CARD, 66, 5) C C GET PHASE SHIFT C DATTR(12) = S1CVBN(CARD, 71, 5) C C======================================================================= C HISTBS = RMINV HISTPC = 100.0 NSMTH = 0 C C C C CHECK TO SEE IF ESC CARD IS PRESENT C ESCCOD = S1CVBN(CARD, 76, 5) C IF (ESCCOD .EQ. 0) GO TO 259 C C C DA4 = 1 C 251 CALL FORC (KPNA, KPRNO, DA4, CARD2, *259 ) IF (S1CPCH(CARD2,8,'ESC',1,3) .NE. 0) GO TO 251 C C NFLG = 0 IFLG = DENTRY(8) C IF (CARD2(51:60) .EQ. ' ') GO TO 253 C DO 252 N = 51,60 IF (CARD2(N:N) .EQ. 'N' ) THEN CARD2(N:N) = '-' NFLG = 1 ENDIF 252 CONTINUE C IF (MOD(IFLG,10) .EQ. 1) IFLG = IFLG - 1 IFLG = IFLG + NFLG C IF (CARD2(61:70) .EQ. ' ') GO TO 255 C NFLG = 0 253 DO 254 N = 61,70 IF (CARD2(N:N) .EQ. 'N' ) THEN CARD2(N:N) = '-' NFLG = 10 ENDIF 254 CONTINUE C IF (IFLG .GE. 10) IFLG = IFLG - 10 IFLG = IFLG + NFLG C 255 DENTRY(8) = IFLG C C READ(CARD2,9310) ESCRD, IPLTYP, R1, R2, R3, R4, R5, IHISCD, * C1, C2, C3, C4, C5 IF ( ESCRD .NE. ESCCOD) GO TO 251 C C IF (C1 .NE. BLNK) RMINV = R1 IF (C2 .NE. BLNK) RMAXV = R2 IF (C3 .NE. BLNK) RACLP = R3 IF (C4 .NE. BLNK) RLCLP = R4 IF (C5 .NE. BLNK) RUCLP = R5 C IF (C1 .NE. BLNK) CALL ARMVE (RMINV, DATTR( 2), 1) IF (C2 .NE. BLNK) CALL ARMVE (RMAXV, DATTR( 3), 1) IF (C3 .NE. BLNK) CALL ARMVE (RACLP, DATTR( 4), 1) IF (C4 .NE. BLNK) CALL ARMVE (RLCLP, DATTR( 6), 1) IF (C5 .NE. BLNK) CALL ARMVE (RUCLP, DATTR( 7), 1) C C MAKE SURE RMINV <= RMAXV C IF (RMINV .GT. RMAXV) THEN WRITE(KPPRNT, 9490) KPRTF = -1 ENDIF C C DO NOT ALLOW HISTOGRAM PLOTS FOR TYPES 'RAM' AND 'OVR' C IF (IPLTYP .EQ. 2) THEN IF (CODE(1:3) .EQ. 'RAM' .OR. CODE(1:3) .EQ. 'OVR') THEN WRITE (KPPRNT, 9480) KPRTF = -1 ENDIF ENDIF C C C WRITE(KPPRNT,9320) ESCRD, RMINV,RMAXV,RACLP,RLCLP,RUCLP,DENTRY(8) C9320 FORMAT(10X,'ESCRD R1 R2 R3 R4 R5 NFLG',6F9.2,I5) CKG IF (IHISCD.NE.0) THEN DA4 = 1 2251 CALL FORC (KPNA, KPRNO, DA4, CARD2, *259 ) IF (CARD2(8:10) .NE. 'HST') GO TO 2251 C READ(CARD2,9311) ESCRD, HISTBS, HISTPC, NSMTH IF (ESCRD.NE.IHISCD) GO TO 2251 IF (HISTBS.EQ.0.0) HISTBS = RMINV IF (HISTPC.EQ.0.0) HISTPC = 100.0 ENDIF C C C USE DATTR(1) TO ALSO PASS THE PLOT CODE TO PROC RUN C IF DATTR(1) .GT. 100 = CONTOUR PLOT , .LT. 100 = EQUAL AREA PLOT C DATTR(1) = DATTR(1) + IPLTYP * 100 C C 259 CONTINUE C C======================================================================= C C C C C READ COLOR CARD C K = 14 DA3 = 1 COUNT = 0 C 250 CALL FORC (KPNA, KPRNO, DA3, CARD, *270 ) IF (S1CPCH(CARD,8,'CLR',1,3) .NE. 0) GO TO 250 CLRCD2 = S1CVBN(CARD,11,5) IF (CLRCOD .NE. CLRCD2) GO TO 250 C DO 260 N = 21, 70, 10 DATTR(K) = S1CVBN(CARD, N, 10) COUNT = COUNT + 1 IF (COUNT .EQ. NC) GO TO 270 IF (COUNT .EQ. 80) GO TO 270 K = K + 1 C 260 CONTINUE C GO TO 250 C C DEFAULT COLORS IF NO CARDS INPUT C 270 CONTINUE IF (COUNT .NE. 0) GO TO 290 C C 'RAM' & 'OVR' PLOTS USE A DIFFERENT SET OF DEFAULT COLORS. C MOD IS NECESSARY BECAUSE PLOT TYPE HAS BEEN ADDED IN C AT THIS POINT IN THE PROGRAM. C ICODE = MOD(DATTR(1), 100) IF (ICODE .EQ. 23) THEN COUNT = NRAMC C DO 275 I = 1, COUNT DATTR(13 + I) = RAMCLR(I) 275 CONTINUE C C MAKE SURE THAT 'ONT' IS USED WITH RAM. C IF (NOTRF .NE. 'NOT') THEN WRITE (KPPRNT, 9470) NOTRF KPRTF = -1 ENDIF C GO TO 290 C ELSE IF (ICODE .EQ. 24) THEN COUNT = NCOVR C DO 276 I = 1, COUNT DATTR(13 + I) = OVRCLR(I) 276 CONTINUE GO TO 290 ELSE C DATTR(14) = 16 DATTR(15) = 160016 DATTR(16) = 160008 DATTR(17) = 160000 DATTR(18) = 160800 DATTR(19) = 161600 DATTR(20) = 1600 C IF (MOD(DATTR(1),100) .EQ. 2) THEN DATTR(21) = 1616 COUNT = 8 ELSE COUNT = 7 ENDIF C ENDIF C ENDIF C C CHECK IF TOO MANY DEFAULT COLORS C K = 13 + COUNT 280 IF (NC .GE. COUNT) GO TO 290 DATTR(K) = 0 K = K - 1 COUNT = COUNT - 1 GO TO 280 C C SET NUMBER OF COLORS PASSED C 290 DATTR(13) = COUNT C C SET HISTOGRAM TRACE PLOT BIAS AND TRACE EXCURSION C CALL ARMVE (HISTBS, DATTR(93), 1) CALL ARMVE (HISTPC, DATTR(94), 1) CALL ARMVE (NSMTH , DATTR(95), 1) C C WRITE OUT PARAMETER RECORD C NOPAR = 102 CALL FOWP (KPNA, KPRNO, DA2, 104, DENTRY, *340 ) NOREC = NOREC + 1 C C WRITE OUT PARAMETERS C IF (KPRTF .EQ. -1) GO TO 300 WRITE (KPPRNT, 9130 ) PLTYPE, RMINV, RMAXV, RACLP, * (XDATTR(I),I=5,8), INVFLG, OVRFLG, DATTR(11), DATTR(12) C IF (IPLTYP.EQ.0) WRITE(KPPRNT, 9131) IF (IPLTYP.EQ.1) WRITE(KPPRNT, 9132) IF (IPLTYP.EQ.2) WRITE(KPPRNT, 9133) HISTBS, HISTPC, NSMTH C C WRITE OUT COLOR CODES USED C ECLR = COUNT + 13 WRITE (KPPRNT, 9140 ) (DATTR(I), I = 14,ECLR) C C CHECK IF CORRECT NUMBER OF COLORS C 300 IF (COUNT .NE. NC) WRITE (KPPRNT, 9150 ) C C********************************************************************** C C CREATE PARAMETER RECORD FOR 'OVR' RECORDS. C C********************************************************************** C IF (.NOT. OVRPLT) GO TO 600 DAO = 1 500 CONTINUE CALL FORC(KPNA, KPRNO, DAO, CARD1, *510) IF (CARD1(8:10) .EQ. 'OVR') GO TO 520 GO TO 500 C 510 CONTINUE C C ERROR: NO 'OVR' CARD, PLOT TYPE IS 'OVR'. C WRITE (KPPRNT, 9330) KPRTF = -1 GO TO 600 C 520 CONTINUE C C SET DEFAULTS FOR PARAMETER RECORD. C CALL ARSET(DATTR, 96, 0) MXFLAG = 1 SCALAB = ' ' PRISCF = 1. PRICLP = 999999. SECSCF = 1. SECCLP = 999999. C C BUILD PARAMETER RECORD. C C C PRIMARY SEQUENCE NUMBER. C IF (CARD1(11:15) .EQ. ' ') THEN WRITE (KPPRNT, 9340) KPRTF = -1 ELSE ALPHA1 = 0 DO 530 I = 11, 15 IF (CARD1(I:I) .EQ. ' ') GO TO 530 IF (USNUM(CARD1, I) .EQ. 0) ALPHA1 = ALPHA1 + 1 530 CONTINUE C IF (ALPHA1 .EQ. 0) THEN READ (CARD1(11:15), 9350) PRISEQ ELSE PRIDES = CARD1(11:15) CALL USLJST(PRIDES) C C CHECK SEQUENCE FIELD AGAINST VALID CODES C DO 540 I = 1, NSEQS IF (PRIDES .NE. SEQDES(I)) GO TO 540 PRISEQ = -IDCODS(I) GO TO 550 540 CONTINUE C C INVALID CODE C WRITE (KPPRNT, 9400) CARD1(12:15) KPRTF = -1 C 550 CONTINUE ENDIF C ENDIF DATTR(1) = PRISEQ C C C SECONDARY SEQUENCE NUMBER. C IF (CARD1(16:20) .EQ. ' ') THEN WRITE (KPPRNT, 9360) KPRTF = -1 ELSE ALPHA2 = 0 DO 560 I = 16, 20 IF (CARD1(I:I) .EQ. ' ') GO TO 560 IF (USNUM(CARD1, I) .EQ. 0) ALPHA2 = ALPHA2 + 1 560 CONTINUE C IF (ALPHA2 .EQ. 0) THEN READ (CARD1(16:20), 9350) SECSEQ ELSE SECDES = CARD1(16:20) CALL USLJST(SECDES) C C CHECK SEQUENCE FIELD AGAINST VALID CODES C DO 570 I = 1, NSEQS IF (SECDES .NE. SEQDES(I)) GO TO 570 SECSEQ = -IDCODS(I) GO TO 580 570 CONTINUE C C INVALID CODE C WRITE (KPPRNT, 9410) CARD1(17:20) KPRTF = -1 C 580 CONTINUE ENDIF C ENDIF DATTR(2) = SECSEQ C C MULTIPLEX FLAG C IF (CARD1(21:25) .NE. ' ') READ (CARD1(21:25), 9350) MXFLAG DATTR(3) = MXFLAG C C UNITS LABEL FOR PLOT SCALE. C SCALAB = CARD1(26:35) CALL S1MVCH(SCALAB, 1, DATTR(4), 1, 12) C C PRIMARY SCALE FACTOR. C IF (CARD1(36:45) .NE. ' ') READ (CARD1(36:45), 9370) PRISCF XDATTR(7) = PRISCF C C PRIMARY CLIP. C IF (CARD1(46:55) .NE. ' ') READ (CARD1(46:55), 9370) PRICLP XDATTR(8) = PRICLP C C SECONDARY SCALE FACTOR. C IF (CARD1(56:65) .NE. ' ') READ (CARD1(56:65), 9370) SECSCF XDATTR(9) = SECSCF C C SECONDARY CLIP. C IF (CARD1(66:75) .NE. ' ') READ (CARD1(66:75), 9370) SECCLP XDATTR(10) = SECCLP CALL S1MVCH('OVR ', 1, DENTRY(3), 1, 4) NOPAR = 10 CALL FOWP(KPNA, KPRNO, DA2, 104, DENTRY, *340) C WRITE (KPPRNT, 9460) C IF (ALPHA1 .EQ. 0) THEN WRITE (KPPRNT, 9420) PRISEQ ELSE WRITE (KPPRNT, 9430) PRIDES ENDIF C IF (ALPHA2 .EQ. 0) THEN WRITE (KPPRNT, 9440) SECSEQ ELSE WRITE (KPPRNT, 9450) SECDES ENDIF C WRITE (KPPRNT, 9380) MXFLAG,SCALAB,PRISCF,PRICLP,SECSCF,SECCLP C 600 CONTINUE C C ZERO OUT OUTPUT C DO 310 L = 1, 96 310 DATTR(L) = 0 C C READ NEXT CARD C GO TO 210 C C CHECK FOR TOO MANY PLOTS C 320 CONTINUE C C CHECK FOR NO 'TYP' CARDS. C IF (NOC .EQ. 0) THEN WRITE (KPPRNT, 9500) KPRTF = -1 ENDIF C IF (NOC .GT. 5) GO TO 420 NPLTS = NOPANL * NOC IF (NPLTS .GT. NOPLOT) GO TO 400 NTYP = NOC C C WRITE OUT PLOT INFO. C 330 IF (KPRTF .EQ. -1) GO TO 440 WRITE (KPPRNT, 9160 ) NTYP, NOPANL, OVERLP C C PRINT THE TOTAL NUMBER OF RECORDS WRITTEN. C WRITE (KPPRNT, 9170 ) KPNA,KPRNO,NOREC GO TO 440 C 340 WRITE (KPPRNT , 9180 ) GO TO 430 C 350 WRITE (KPPRNT, 9190 ) KPRTF = -1 GO TO 100 C 360 WRITE (KPPRNT, 9200 ) KPRTF = -1 GO TO 200 C 370 WRITE (KPPRNT, 9210 ) CARD KPRTF = -1 GO TO 50 C 380 WRITE (KPPRNT, 9220 ) KPRTF = -1 GO TO 65 C 390 WRITE (KPPRNT, 9230 ) KPRTF = -1 GO TO 65 C 395 WRITE (KPPRNT, 9235) CARD KPRTF = -1 GO TO 65 C 400 WRITE (KPPRNT, 9240 ) NPLTS, NOPLOT GO TO 430 C 410 WRITE (KPPRNT, 9250 ) KPRTF = -1 GO TO 440 C 420 WRITE (KPPRNT, 9260 ) GO TO 430 C 430 KPRTF = -1 C 440 CONTINUE IF(KPBUGF .LT. 2) GO TO 460 C C =================================== C DUMP THE PARAMETER ENTRIES IF DEBUG C =================================== C DA = 1 C 450 CALL FORP (KPNA,KPRNO,DA,104,DENTRY, *460 ) IF (DCTYP .NE. LBL) WRITE (KPPRNT, 9270 ) DENTRY IF (DCTYP .EQ. LBL) WRITE (KPPRNT, 9280 ) (DENTRY(L),L=1,44) GO TO 450 C 460 RETURN C 9000 FORMAT (/' *** ONLY D PROCESSING MODE ALLOWED *** ', 20A4) C 9010 FORMAT(/5X,'FROM ',A8,1X,I6, * /5X,'TO ',A8,1X,I6/) C 9030 FORMAT (/' *** NUMBER OF PLOTS IS REQUIRED *** ', 20A4) C 9040 FORMAT (/' *** ILLEGAL TYPE OF INPUT *** ', 20A4) C 9050 FORMAT (/' *** DIRECTION MUST BE RL OR LR *** ',20A4) C 9060 FORMAT (/' *** WARNING ',I5,' DEPTH POINTS PER PANEL REQUESTED,', * ' ONLY ',I5,' WILL FIT IN THE PLOT AREA AT THE REQUESTED ', * 'SCALE ***',/' *** THE NUMBER OF DEPTH POINTS PER PANEL ', * 'HAS BEEN CHANGED TO ',I5,' *** ') C 9070 FORMAT(//5X,'THE FOLLOWING PARAMETERS WILL BE USED:', * //3X,' NO. OF DP NO. OF TYPE OF SAMPLE ', * ' NO. OF ATTRIBUTE SETS TO SKIP PRIOR TO: ', * /3X,'DPS/PANEL SPACING PLOTS INPUT RATIO ', * ' 1ST INPUT 2ND INPUT 3RD INPUT 4TH INPUT ', * /4X,I5,7X,I5,3X,I4,6X,A4,7X,I5,8X,I5,7X,I5,7X,I5, * 7X,I5,7X) C 9080 FORMAT(//3X,'FIRST DP LABEL LAST DP LABEL LABEL ', * ' VERTICAL', * /3X,'TO LABEL VALUE TO LABEL VALUE INCREMENT', * ' LINE', * /3X,F7.1,5X,I5,4X,F7.1,5X,I5,6X,I5,7X,A4) C 9090 FORMAT(//3X,'START END TRACES/ INCHES/ DEFLEC. ', * ' LENGTH PLOT VA FILL WT SCALE ', * ' SCALE PLOT', * /3X,'TIME TIME INCH SECOND FACTOR ', * ' OF AGC DIR. COLOR THICKNESS DIR. ', * ' TYPE PAGE', * /2X,I5,4X,I5,4X,F6.1,4X,F6.1,3X,G11.2,3X,I5,5X,A4, * 4X,I6,5X,I3,9X,A4,5X,A4,5X,A4) C C 9100 FORMAT(//3X,'1ST LABEL : ',18A4,/3X,'2ND LABEL : ',18A4) C 9110 FORMAT (/' *** ILLEGAL TYPE OF PLOT *** ',20A4) C 9120 FORMAT (/' *** MORE THAN 80 COLORS REQUESTED ONLY 80 USED *** ') C 9125 FORMAT (/' *** SEQUENCE NUMBER BETWEEN 1 AND 4 IS REQUIRED *** ') C 9130 FORMAT(///5X,'OUTPUT VALUES TO PLOT CLIPPING NO. OF ', * ' LOWER UPPER SEQ. INVERT OVERLAY ', * ' VA PHASE SHIFT', * /5X,' TYPE MIN. MAX. (AMP) COLORS ', * 'CLIPPING CLIPPING NO. ATTRIB. DATA ', * ' FILL (POL)', * /6X,A4,3G11.2,I6,5X,2G11.2,I4, * 6X,A4,6X,A4,5X,I5,5X,I5) C 99130 FORMAT(///5X,'OUTPUT VALUES TO PLOT CLIPPING NO. OF ', * ' LOWER UPPER SEQ. INVERT OVERLAY ', * ' VA PHASE SHIFT', * /5X,' TYPE MIN. MAX. (AMP) COLORS ', * 'CLIPPING CLIPPING NO. ATTRIB. DATA ', * ' FILL (POL)', * /6X,6Z9,/,6X,6Z9 ) C C 9131 FORMAT(///5X,' THE EQUAL AREA PLOTTING OPTION HAS BEEN REQUESTED') 9132 FORMAT(///5X,' THE CONTOUR PLOTTING OPTION HAS BEEN REQUESTED ') 9133 FORMAT(///5X,' THE HISTOGRAM PLOT OPTION HAS BEEN REQUESTED ',/, * 5X,' THE TRACE BIAS FOR THE PLOT IS',F16.2,/, * 5X,' THE PERCENT OF TRACE SPACING IS',F16.2,/, * 5X,' NO. OF POINTS IN SMOOTHING FILTER IS ',I5) C 9140 FORMAT(/5X,'THE COLOR CODES THAT WILL BE USED ARE:', * 4(/5X,10I10)/) C 9150 FORMAT(/' *** WARNING *** NUMBER OF COLORS INPUT DOES NOT', * ' MATCH NUMBER OF COLORS TO BE USED ***') C 9160 FORMAT(////5X,'NO. OF NO. OF NO. OF DPS', * /5X,'TYPES PANELS/RANGE TO OVERLAP', * /4X,I5,8X,I5,10X,I5) C 9170 FORMAT(/' *** ',A4,I1,' COMPLETED -- NO ERRORS,', * /' *** TOTAL NUMBER OF PARAMETER RECORDS = ',I5) C 9180 FORMAT (/' *** FOWP HAD WRITE ERROR *** ') C 9190 FORMAT (/' *** "IAL" CARD REQUIRED ***') C 9200 FORMAT (/' *** "DSP" CARD REQUIRED ***') C 9210 FORMAT (/' *** QULR REQUIRES STARTING AND ENDING DEPTH POINT ', * 'NUMBERS *** ',/1X,20A4) C 9220 FORMAT (/' *** ONLY ONE CARD(1) ALLOWED ***') C 9230 FORMAT (/' *** NO CARD(1) FOUND ***') C 9235 FORMAT (/' *** INVALID DISPLAY OPTION (DF19) ***',20A4) C 9240 FORMAT (/' *** ',I5,' PLOTS NEED TO BE OUTPUT TO COVER THE ', * 'INPUT RANGE, ONLY ',I5,' HAVE BEEN PRE-ALLOCATED ***', * /' *** INCREASE THE NUMBER OF PLOTS TO GENERATE ON CARD(1) ***') C 9250 FORMAT (/' *** NO QULR CARDS FOUND *** ') C 9260 FORMAT (/' *** TOO MANY TYPES OF PLOTS - LIMIT 5 *** ', 20A4) C 9270 FORMAT (1X,A4,I1,5X,A4,3I5,1X,A4,1X,A4,8(/1X,12Z9)) C 9280 FORMAT (1X,A4,I1,5X,A4,3I5,1X,A4,1X,A4,2(/1X,18A4)) C 9290 FORMAT(10X,G10.0 ,I5, G10.0) C 9291 FORMAT(30X,G5.0 ) C 9300 FORMAT('0 TRACE PLOT DEFLECTION FACTOR = ' , G13.2, * /,1X, ' TIMING LINE SPACING = ' , I8, ' MSEC', */,1X, ' TRACE PLOT OFFSET BIAS = ' , G13.2 , */,1X, ' SCALE OPTION = ' , A5, */,1X, ' USCALE FACTOR = ' , E14.8, */,1X, ' TRACE OVERLAY DECIMATION FACTOR = ' , I5) C 9310 FORMAT(10X, I5, I5, 5G10.0, I5 , T1, 20X, 5A10) C 9311 FORMAT(10X, I5, 2F5.0, I5) C 9320 FORMAT(/,' *** APPARENT POLARITY PLOTS ARE NO LONGER ALLOWED ', * '***') C 9330 FORMAT (/, ' *** ERROR: PLOT TYPE IS "OVR", BUT NO "OVR" CARD ', * 'WAS SPECIFIED. ***') C 9340 FORMAT(/,' *** ERROR: PRIMARY SEQUENCE NUMBER ON OVR CARD WAS ', * 'NOT SPECIFIED. ***') C 9350 FORMAT(I5) C 9360 FORMAT(/,' *** ERROR: SECONDARY SEQUENCE NUMBER ON OVR CARD ', * 'WAS NOT SPECIFIED. ***') C 9370 FORMAT(G10.0) C 9380 FORMAT( T20,'MULTIPLEX FLAG....................',I6,/, * T20,'UNITS FOR PLOT SCALE LABEL........',A12,/, * T20,'PRIMARY SCALE FACTOR..............',E14.8,/, * T20,'PRIMARY CLIP......................',E14.8,/, * T20,'SECONDARY SCALE FACTOR............',E14.8,/, * T20,'SECONDARY CLIP....................',E14.8) C 9390 FORMAT(/,' *** ERROR *** ADP CARD: USCAL SPECIFIED WITH NO ', * 'SCALE FACTOR IN COLS. 41-50 *** ') C 9400 FORMAT(/,' *** ERROR *** OVR CARD: INVALID PRIMARY SEQUENCE ', * 'CODE ***') C 9410 FORMAT(/,' *** ERROR *** OVR CARD: INVALID SECONDARY SEQUENCE ', * 'CODE ***') C 9420 FORMAT( T20,'PRIMARY SEQUENCE NUMBER...........',I6) C 9430 FORMAT( T20,'PRIMARY SEQUENCE DESCRIPTION......',A5) C 9440 FORMAT( T20,'SECONDARY SEQUENCE NUMBER.........',I6) C 9450 FORMAT( T20,'SECONDARY SEQUENCE DESCRIPTION....',A5) C 9460 FORMAT(///,T30,'*** PARAMETERS FROM OVR CARD ***') C 9470 FORMAT(/, ' *** ERROR *** RAM PLOT: INPUT TYPE SHOULD BE NOT, ', * ' IS ',A4,' INSTEAD ***') C 9480 FORMAT(/,' *** ERROR *** RAM OR OVR PLOTS CANNOT BE PLOTTED AS ', * 'HISTOGRAMS ***') C 9490 FORMAT(/,' *** ERROR *** MIN PLOT VALUE GREATER THAN MAX PLOT ', * 'VALUE ***') C 9500 FORMAT(' *** ERROR *** NO TYP CARD SPECIFIED BY USER. ***') C 9510 FORMAT(/' *** COMPUTED PLOT WIDTH OF',F8.2, * ' INCHES EXCEEDS MAXIMUM PLOTTER WIDTH (38 INCHES). ***') C END