CAINDXCOMMON AREAS C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CTITLECOMMON /P/ DEFINITIONS CA CA8080 ITEM COLUMNS VALUES DEFAULT VARIABLE TYPE 3 I, R, L I VARIABLE LENGTH 4 1, 2, 4, 8 4 VARIABLE NAME 6-11 FORTRAN NAME COMMENT FIRST DIMENSION 12 0 TO 9 0 SECOND DIMENSION 13 0 TO 9 0 THIRD DIMENSION 14-15 0 TO 99 1 STARTP 2 NAME OF THE COMMON. CONTAINS 'COMMON P'. **********DATA FROM LINE CARD (PREFIX LC). LCNAME CARD CODE FROM LINE CARD, EBCDIC 'LINE'. 1 1--4 LC5 RESERVED COLUMN ON LINE CARD. 2 5 LCINT INTERPOLATION-TYPE DEFAULT FOR TRANSITION 3 6 ZONES SPECIFIED IN THE PARAMETER POOL. 'L ' = LINEAR INTERPOLATION, 'S ' = STEP FUNCTION. LCTYP PROCESSING MODE. 4 7 'S ' = SHOTPOINT NUMBERS, 'D ' = COMMON DEPTH POINT NUMBERS, 'F ' = FILE NUMBERS. LC10 DEBUG FLAG FOR CONTROL PROGRAM CSEXEC. 5 10 LCBGSP BEGINNING SHOTPOINT. 6 11-15 LCENSP ENDING SHOTPOINT. 7 16-20 LC2130 2 RESERVED FIELDS. UNUSED. 8-9 21-30 LCNSP NUMBER OF SHOTPOINTS ON LINE. 10 31-35 LCTPSP NUMBER OF DATA TRACES PER SHOTPOINT. 11 36-40 LCRL RECORD LENGTH FROM THE LINE CARD (MS). 12 41-45 LCSI SAMPLE INTERVAL OF THE INPUT DATA (MS). 13 46-50 LCPI PROCESSING SAMPLE INTERVAL (MS). 14 51-55 R4 LCGRPI GROUP INTERVAL (SPACING BETWEEN GEOPHONE GROUPS).56-60 LCMXFD MAX CDP FOLD = MAX NO. OF TRACES PER DEPTH POINT 61-65 LCANSP NUMBER OF EQUIVALENT SHOTPOINTS. 17 66-70 LCMXLN MAXIMUM NUMBER OF 3-D LINES. 18 71-75 LCDRYF PREPARATION OR PROCESS INDICATOR. 19 76-80 'PREP' = PREPARATION RUN. 'PROC' = PROCESSOR RUN. LCWD20 3 RESERVED WORDS. UNUSED. 20-22 CA EJECT ********* DATA FROM ACCOUNT CARD (PREFIX AC). ACNAME CARD CODE FROM ACCOUNT CARD, EBCDIC 'ACCT'. 1 1--4 AC0506 UNUSED COLUMNS ON THE ACCOUNT CARD. 2 5--6 AC64BC ACCOUNT CODE (INTEGER) 3 7-11 ACOPCD COMPUTER CODE (I=IBM, C=CRAY). 4 12 ACQCF QUALITY CONTROL FLAG. ' ' = NO, '* ' = YES. 13 ACDIST DISTRICT NUMBER (OR USER CODE). 6 14-15 ACPROJ PROJECT NUMBER. LAST FOUR DIGITS ARE USED 7 16-20 AS SECOND PART OF FIRST POSITION OF ACCOUNT CODE ON JOB CARD. ACLNAM 5 LINE NAME IN EBCDIC CODE. 8-12 21-38 ACCOM 8 AREA NAME. 13-20 39-70 AC7274 CPU TIME ESTIMATED BY USER. 21 72-74 ACTYPE TYPE OF RUN CODE. LP, VA, ETC. ALPHANUMERIC.22 75-76 ACNSP NUMBER OF BILLABLE SHOTPOINTS. 23 77-80 ACUSER 5 SUBMITTER'S NAME. ALPHANUMERIC. OBTAINED 24-28 FROM JOB CARD. R4 ACNMIP NO. OF MILES OF 3D LINES PROCESSED. 29 ACNTRP NO. OF TRACES READ AND PROCESSED. 30 ACNTRW NO. OF OUTPUT TRACES WRITTEN. 31 ACNCDP NO. OF DEPTH-POINTS READ AND PROCESSED. 32 ACMIGR NO. OF TRACES MIGRATED. 33 ACQUAD NO. OF TRACES PROCESSED FOR COLOR PLOTS. 34 ACSLOG NO. OF SEISMIC LOGS. 35 ACVELA NO. OF VELOCITY ANALYSES. 36 ACDDEC NO. OF TRACES PROCESSED BY DIRECT DECONVOLUTION. 37 ACWD38 3 RESERVED WORDS. UNUSED. 38-40. CA EJECT **********DATA FROM LINE HEADER. LHJBNO JOB IDENTIFICATION NO. (PROJECT NO.) 1 LHLNO LINE NO. (NOT USED) 2 LHRLNO EXTERNAL REEL NO. 3 LHTPSP NUMBER OF DATA TRACES PER SHOT (SEISMIC RECORD) 4 LHATSP NUMBER OF AUXILIARY TRACES PER SHOT 5 LHSI SAMPLE INTERVAL FOR THIS REEL (MS OR MHZ) 6 LHORSI ORIGINAL RECORDED SAMPLE INTERVAL (MS) 7 LHST NUMBER OF SAMPLES PER TRACE 8 LHORST ORIGINAL RECORDED SAMPLES PER TRACE 9 LHDFCD DATA SAMPLE FORMAT CODE (1 = FLOATING PT R4 10 2 = FIXED PT I4 3 = FIXED PT I2 4 = FIXED PT W/GAIN CODE (4 BYTES)) LHEXFD CDP FOLD (EXPECTED NUMBER OF DATA TRACES PER 11 CDP ENSEMBLE). LHTSCD TRACE SORTING CODE (1 = AS RECORDED (NO SORTING), 12 2 = CDP ENSEMBLE, 3 = SINGLE FOLD CONTINUOUS PROFILE, 4 = HORIZONTALLY STACKED. LHVSCD VERTICAL SUM CODE (1 = NO SUM, 2 = 2-SUM,...) 13 LHSWFS SWEEP FREQUENCY AT START (HZ) 14 LHSWFE SWEEP FREQUENCY AT END (HZ) 15 LHSWL SWEEP LENGTH (MS) 16 LHSWCD SWEEP CODE (1 = LINEAR, 2 = PARABOLIC, 17 3 = EXPONENTIAL, 4 = OTHER) LHTSNO TRACE NUMBER OF SWEEP CHANNEL 18 LHSWTS SWEEP TRACE TAPER LENGTH (MS) AT START OF TRACE 19 LHSWTE SWEEP TRACE TAPER LENGTH (MS) AT END OF TRACE 20 LHSWTT SWEEP TAPER TYPE (1 = LINEAR, 2 = (COS)**2, 21 3 = OTHER) LHTCF CORRELATED TRACE FLAG (1 = NO, 2 = YES) 22 LHBGRF BINARY GAIN RECOVERY FLAG (1 = YES, 2 = NO) 23 LHARCD AMPLITUDE RECOVERY METHOD (1 = NONE, 24 2 = SPHERICAL DIVERGENCE, 3 = AGC, 4 = OTHER.) LHMS MEASUREMENT SYSTEM (1 = METERS, 2 = FEET) 25 LHSGPL IMPULSE SIGNAL POLARITY (1 = NEG., 2 = POS.) 26 LHVPCD VIBRATORY POLARITY CODE 27 SEISMIC SIGNAL LAGS PILOT SIGNAL BY: 1 = 0 TO 45 DEGREES, 2 = 45 TO 90 DEGREES, 3 = 90 TO 135 DEGREES, 4 = 135 TO 180 DEGREES, 5 = 180 TO 225 DEGREES, 6 = 225 TO 270 DEGREES, 7 = 270 TO 315 DEGREES, 8 = 315 TO 360 DEGREES. **********END OF SEG-Y LINE HEADER. SPARC ADDITIONS FOLLOW. LHNSP NUMBER OF SHOT POINTS ON THIS LINE 28 LHNDP NUMBER OF COMMON DEPTH POINTS ON THIS LINE 29 LHNSL NUMBER OF SURFACE LOCATIONS ON THIS LINE 30 LHMTPR MAXIMUM NUMBER OF TRACES PER COMMON RECEIVER GROUP 31 LHWD32 9 RESERVED WORDS. UNUSED. 32-40 CA EJECT ********* CURRENT PROCESS AREA (PARAMETERS FROM PROTAB, MOVED KP-AREA HERE BY CONTROL PROGRAM BEFORE PROCESS IS CALLED, AND MOVED BACK TO PROTAB BY CONTROL PROGRAM AFTER PROCESS HAS FINISHED EXECUTION). KPNA PROCESS NAME IN EBCDIC. 1 KPRNO PROCESS NUMBER. 2 KPOCUR PROCESS OCCURRENCE NUMBER. 3 KPA ADDRESS OF PROCESSING MODULE. 4 KPDBGS ADDRESS OF DATA CONTROL BLOCK FOR TRACE INPUT OR OUTPUT. KPDBGA ADDRESS OF FIRST FILE ATTRIBUTE TABLE. 6 KPDBGN NUMBER OF FILE ATTRIBUTE TABLES (= NUMBER 7 OF DATA CARDS FOR THIS I/O PROCESS). KPWRKS ADDRESS OF BSAM DATA CONTROL BLOCK FOR WORK FILE #1. 8 KPWRKD ADDRESS OF BDAM DATA CONTROL BLOCK FOR WORK FILE #1. 9 KPWKS2 ADDRESS OF BSAM DATA CONTROL BLOCK FOR WORK FILE #2.10 KPWKD2 ADDRESS OF BDAM DATA CONTROL BLOCK FOR WORK FILE #2.11 KPWKS3 ADDRESS OF BSAM DATA CONTROL BLOCK FOR WORK FILE #3.12 KPWKD3 ADDRESS OF BDAM DATA CONTROL BLOCK FOR WORK FILE #3.13 KPFCF FIRST CALL FLAG. 14 1 MEANS THIS MODULE HAS NOT BEEN CALLED BEFORE. 0 MEANS THIS MODULE HAS BEEN CALLED BEFORE KPIRSM FIRST RESERVED SCRATCH MEMORY FORTRAN INDEX. INDEX 15 IS RELATIVE TO THE START OF BLANK COMMON. KPNRSM NUMBER OF WORDS OF RESERVED SCRATCH MEMORY. 16 VALUES OF KPIRSM AND KPNRSM ARE STORED HERE BY SUBROUTINE UPRESM. KPIUSM FORTRAN INDEX OF FIRST WORD OF UNRESERVED SCRATCH 17 MAIN STORAGE IN BLANK COMMON. KPNUSM NUMBER OF WORDS OF UNRESERVED SCRATCH MAIN STORAGE 18 IN BLANK COMMON. KPTIME PROCESS TIME ACCUMULATOR. CENTISEC. 19 KPRTF PROCESS EXIT STATUS. 20 2 NO OPERATION PERFORMED. MOVE INPUT TRACE TO OUTPUT TRACE ARRAY, THEN CONTINUE WITH NEXT PROCESS. 1 TRACE RETURNED, CONTINUE WITH NEXT PROCESS. 0 NO TRACE RETURNED, SKIP TO NEXT BRANCH. -1 DO NOT EXECUTE THIS PROCESS AGAIN (IN THIS BRANCH). -100 FORCED TO ABANDON BY A FOLLOWING ABANDONED PROCESS. CODES -2 TO -5 RETURNED BY MAIN CONTROL PROGRAM. -2 FORC GAVE ERROR RETURN TO CSEXEC--ACCT CARD MISSING. -3 FORC GAVE ERROR RETURN TO CSEXEC--LINE CARD MISSING. -4 TOO MANY MULTIPLE-OUTPUT PROCESSES (PROCESSES WHICH MUST REGAIN CONTROL FOR MORE OUTPUT BEFORE ACCEPTING ANYMORE INPUT). THAT IS, MCNMOT IS GREATER THAN MCMMOT, AND THE ARRAY MCMOTF IS FULL. CA EJECT (KPRTF CONTINUED) TWO PROGRAM CHANGES ARE REQUIRED FOR THIS JOB. (1) IN THE BLOCK DATA SUBROUTINE, INCREASE MCMMOT. (2) IN THE MASTER LIST FOR COMMON /P/, SET THE DIMENSION OF MCMOTF EQUAL TO MCMMOT. -5 NOT ENOUGH VIRTUAL STORAGE FOR BLANK COMMON. -6 PARM CARD MISSING. -7 PROCESS BEFORE AN INPUT PROCESS IS NOT A PREP ONLY OR AN OUTPUT PROCESS. CODES -10 TO -17 RETURNED BY TRACE ARRAY MANAGER. -10 NOT ENOUGH CORE FROM GETMAIN. -11 NUMBER OF OUTPUT TRACE ARRAYS .NE. 1. -12 NUMBER OF INPUT TRACE ARRAYS .GT. 1. -13 INPUT TRACE TO A NODE IS NOT STATUS (1,2). -14 NOT USED. -15 DID NOT FIND TRACE IN HOLD STATUS. -16 TOO MANY TRACE ARRAYS REQUESTED. TO GET MORE TRACE ARRAYS, INCREASE THE DIMENSION OF MCTACS, MCTANS, AND MCTADD, AND SET MCNTAM EQUAL TO THIS DIMENSION (IN BLOCK DATA). RECOMPILE ALL PROGRAMS THAT USE COMMON /P/. -17 NUMBER OF OUTPUT TRACE ARRAYS .GT. 1. CODES -20 TO -23 RETURNED BY CSNODE, CSPMAP & FSPMAP -20 BRANCH DOES NOT FOLLOW NODE. -21 BRANCH HAS NO PROCESSES. -22 NO INPUT PROCESS. -23 INCORRECT NODES AND BRANS. CODES -33 TO -52 RETURNED BY SDREAD. -1 PROCESSING MODE NOT IDENTIFIED. -1 FORMAT NOT AVAILABLE OR NOT IDENTIFIED. -1 MORE THAN 24 READ ERRORS. -1 NOT ENOUGH BLANK COMMON FOR TRACE HEADER DIRECTORY. -1 NO GEOM TRACE HEADERS PRESENT AND FORMAT NOT ARCY. -1 OPERATION CODE (DF8) ON READ CARD NOT RECOGNIZED. -1 NO TRACES PROCESSED BY READ PROGRAM. -33 DATA SET NOT OPENED BY FOIRTR. -34 DATA SET CLOSED ON ATTEMPTED READ BY FORTR. -35 UNKNOWN STATUS CODE RETURNED BY FORTR. -36 INPUT AND GEOM TRACE HEADERS DO NOT MATCH. -37 READ JFCB FAILED. DD-CARD PROBABLY MISSING. -39 PASSED END OF TRACE HEADER DATA SET (SEISPARM). -40 UNKNOWN STATUS CODE RETURNED BY FOIRTR. -42 CONCATENATION OCCURRED WHILE SEEKING BEGINNING DEPTH POINT, FILE, OR SHOTPOINT. -43 BLOCK COUNT ERROR AT END-OF-VOLUME ON TAPE. -45 READ STATUS CODE 4 TO 9 RETURNED WHILE READING LINE HEADER. -46 NO .END OR .MRK CARDS IN HISTORY RECORDS. -47 DYNAMIC ALLOCATION FAILED. MESSAGE PRINTED. -48 DYNAMIC UNALLOCATION FAILED. MESSAGE PRINTED. CA EJECT (KPRTF CONTINUED) -49 ? -50 ? -51 SEARCH FOR SPOOL MEMBER FAILED -52 READING A SPOOLED DATA SET BUT NOT IN SPOOLED MODE. CODES -61 TO -66 RETURNED BY SDWRIT. -61 OPEN FAILED ON OUTPUT TRACE DATASET (PROGRAM FOIWTR) -62 OUTPUT TRACE DATA SET NOT OPEN (PROGRAM FOWTR). -63 UNKNOWN CODE RETURNED BY WRITE SUBROUTINE FOWTR. -64 NOT ENOUGH BLANK COMMON FOR DLOCAL VARIABLES. -65 NO .MRK OR .END CARD FOUND IN LAST HISTORY RECORD. -66 NOT ENOUGH BLANK COMMON FOR LIST OF PROCESSES. KPDRTF NORMAL VALUE FOR KPRTF. DEFAULT = 1. 21 0 NO TRACE RETURNED, SKIP TO NEXT BRANCH OR NODE. 1 TRACE RETURNED, CONTINUE WITH NEXT PROCESS. KPMOTF MULTIPLE OUTPUT FLAG. INITIALLY ZERO. SET TO 1 22 BY PROCESSING PROGRAM IF PROCESS HAS MORE OUTPUT BEFORE RECEIVING ANY MORE INPUT. CONTROL PROGRAM WILL CALL THE PROCESSING PROGRAM AGAIN BEFORE GOING TO THE BEGINNING OF THE PROCESSING LIST. PROCESSING PROGRAM RESETS FLAG TO ZERO WHEN EXTRA OUTPUT IS FINISHED. KPNBR FOR A NODE, KPNBR = NUMBER OF BRANCHES. 23 FOR A BRANCH, KPNBR IS NOT USED. FOR A PROCESS, KPNBR IS NOT USED. KPIBN BRANCH-NODE INDEX. 24 FOR A NODE, KPIBN = 0. FOR A BRANCH, KPIBN = INDEX OF NODE AT WHICH THE BRANCH STARTS. FOR A PROCESS, KPIBN = INDEX OF BRAN MODULE AT START OF BRANCH. FOR A PROCESS WHICH PRECEDES THE FIRST NODE, KPIBN = 170 = HEX AA. KPITSV FOR A NODE, KPITSV = FORTRAN INDEX OF TRACE ARRAY 25 IN WHICH TRACE IS SAVED AT THE NODE. INDEX IS FOR VARIABLES MCTACS, MCTANS, AND MCTADD. FOR OTHER PROCESSES, KPITSV = 187 = HEX BB. KPTAMF FLAG WHICH INDICATES TO THE TRACE ARRAY MANAGER 26 WHAT ACTION TO TAKE BEFORE THIS PROCESS. KPLOTF FLUSH FLAG -- OUTPUT WITHOUT INPUT. 27 1 = INITIAL VALUE, MEANS CALL THIS PROCESS AGAIN, EVEN THOUGH THERE IS NO MORE INPUT. 0 = VALUE SET BY PROCESSING PROGRAM WHEN THE PROGRAM DOES NOT WISH TO BE CALLED AGAIN. KPMITF MORE INPUT FLAG. INITIAL VALUE = 1. SET TO ZERO 28 BY THE CONTROL PROGRAM WHEN THERE IS NO MORE INPUT. KPPRNT PRINTER OUTPUT NUMBER (XY IN FTXYF001). 29 CA EJECT KPPLOT LASER PLOTTER OUTPUT NUMBER. (NO LONGER USED). 30 KPPLTA ADDRESS OF PLOT FILE ATTRIBUTE TABLE (NO LONGER 31 USED). KPBUGF DEBUG FLAG. SET BY JOBGEN ACCORDING TO COL 10 OF 32 KPNA PROCESS CARD. COL 10 KPBUGF * 1 $ 2 # 3 BLANK 0 KPWARN WARNING FLAG. 33 0 NORMAL VALUE. < 0 PROGRAM HAS ISSUED A WARNING/ERROR MESSAGE. KPTRIO COUNT OF TRACES READ OR WRITTEN. 34 KPWKIO COUNT OF WORK FILE I/O OPERATIONS. 35 KPVOLS INDEX TO LIST OF VOLUMES FOR OUTPUT PROCESS. 36 KPWTSF USED BY WRIT TO INDICATE TYPE OF OUTPUT DATA. 37 0 = NON-STACKED (HORIZONTAL FOLD FLAG = 0 FOR ALL TRACES) 1 = STACKED (HORIZONTAL FOLD FLAG IS NONZERO FOR AT LEAST ONE TRACE) KPETIM ELAPSED (WALL-CLOCK) TIME USED BY THE PROCESS. 38 KPDSNS INDEX TO LIST OF DATA SET NUMBERS FOR OUTPUT 39 PROCESSES. KPWD40 RESERVED WORD IN KP-AREA. 40 KPWD41 RESERVED WORD IN KP-AREA. 41 KPWD42 RESERVED WORD IN KP-AREA. 42 KPWD43 RESERVED WORD IN KP-AREA. 43 KPWD44 RESERVED WORD IN KP-AREA. 44 KPWD45 RESERVED WORD IN KP-AREA. 45 KPWD46 RESERVED WORD IN KP-AREA. 46 KPWD47 RESERVED WORD IN KP-AREA. 47 KPWD48 RESERVED WORD IN KP-AREA. 48 KPWD49 RESERVED WORD IN KP-AREA. 49 KPWD50 RESERVED WORD IN KP-AREA. 50 KPWD51 RESERVED WORD IN KP-AREA. 51 KPWD52 RESERVED WORD IN KP-AREA. 52 KPWD43 RESERVED WORD IN KP-AREA. 53 KPWD54 RESERVED WORD IN KP-AREA. 54 KPWD55 RESERVED WORD IN KP-AREA. 55 KPWD56 RESERVED WORD IN KP-AREA. 56 CA EJECT ********* SYSTEM DATA. USED MAINLY FOR CONTROL. MCJOB 2 JOB NAME. 1-2 MCSTEP 2 STEP NAME. 3-4 MCCPRO CPU TIME FOR ONE CALL TO A PROCESS, CS. 5 MCCTOT TOTAL CPU TIME FOR JOB, CS. 6 MCDELT TIME BETWEEN CLOCK CALLS, CS. 7 MCBTIM BEGINNING TIME FOR JOB, CS. 8 MCETIM ENDING TIME FOR JOB, CS. 9 MCBTEM 2 BEGINNING TIME FOR JOB, HR:MN:SC. 10-11 MCETEM 2 ENDING TIME FOR JOB, HR:MN:SC. 12-13 MCBDAT 2 BEGINNING DATE FOR JOB, MO-DA-YR. 14-15 MCEDAT 2 ENDING DATE FOR JOB, MO-DA-YR. 16-17 MCNODE NUMBER OF NODES. 18 MCNOBR NUMBER OF BRANCHES. 19 MCNABR NUMBER OF ACTIVE BRANCHES. 20 MCBRNF BRANCH FLAG. 21 NORMALLY -86 (HEX FFFFFFAA). INITIALIZED TO THIS VALUE, AND RESET ON EACH CALL TO THE END PROCESS SPPEND. SET TO THE NODE NUMBER (KPIBN) EACH TIME A MULTIPLE- OUTPUT PROCESS OR A MULTI-TRACE PROCESS IS SELECTED (OUT OF NORMAL SEQUENCE) BY THE CONTROL PROGRAM CSEXEC. USED TO BREAK THE PROCESSING SEQUENCE, AND CALL SPPEND, AT THE END OF THE BRANCH CONTAINING THE MULTIPLE-OUTPUT OR MULTIPLE-TRACE PROCESS. MCEOFF END-OF-FILE FLAG FOR MAIN TRACE INPUT. 22 0 MEANS EOF ENCOUNTERED. SET BY READ PROGRAM. 1 MEANS NOT AT EOF. INITIAL VALUE = 1. MCMITF INITIAL VALUE = ONE, MEANS MORE INPUT TRACES. 23 SET TO ZERO IN END-OF-FILE BRANCH OF CP. USED TO SUPPRESS THE EOF BRANCH WHILE GOING THROUGH THE MULTI- TRACE PROCESSES WHICH HAVE TAPER-OFF OUTPUT REMAINING. MCRTF PROCESS EXIT STATUS (RETURN FLAG). 24 COPIED FROM KPRTF. MCTRHF FLAG WHICH INDICATES THAT THE TEMPORARY DATA FILE 25 CONTAINS TRACE HEADERS. IT IS PRESENTLY USED ONLY IN THE PRE-PROCESSOR. 0 = THE GEOMETRY PRE-PROCESSOR HAS NOT BEEN RUN. 1 = THE GEOMETRY PRE-PROCESSOR HAS BEEN RUN. MCIKP CURRENT PROCESS INDEX. 26 MCIKPE BASE FOR FORTRAN INDEX TO A PROTAB ENTRY 27 CORRESPONDING TO A KP-AREA FOR A PROCESS, MCIKPE = PTNCW*(MCIKP - 1). THE FIRST WORD IN A PROTAB ENTRY IS PROTAB(MCIKPE + 1). IN GENERAL, THE WORD IN A PROTAB ENTRY CORRESPONDING TO A VARIABLE KPVAR IN THE KP-AREA IS PROTAB(MCIKPE + IPVAR), WHERE IPVAR IS THE INDEX OF KPVAR IN THE KP-AREA. TO MAKE THE COMPUTATION OF IPVAR INDEPENDENT OF CHANGES IN THE KP-AREA, IT WILL BE COM- PUTED AS IPVAR = (LOC(KPVAR) - LOC(KPNA))/4 + 1. THIS WILL BE VALID AS LONG AS KPNA IS THE FIRST WORD IN THE KP-AREA. MCNKP NUMBER OF PROCESSES. MAXIMUM VALUE OF MCIKP. 28 MCIUSM FORTRAN INDEX OF FIRST WORD OF UNRESERVED SCRATCH 29 MAIN STORAGE IN BLANK COMMON. MCNUSM NUMBER OF WORDS OF UNRESERVED SCRATCH MAIN STORAGE 30 IN BLANK COMMON. MCTAMF TRACE ARRAY MANAGER FLAG. COPIED FROM KPTAMF. 31 MCITA INDEX OF TRACE ARRAY BEING TESTED (SCANNING INDEX). 32 MCI1 INDEX OF INPUT TRACE ARRAY WITH STATUS (1,N). 33 COMPUTED BY CSTRAM AND LEFT FOR USE BY CSCALL. MCI2 INDEX OF OUTPUT TRACE ARRAY WITH STATUS (2,N). 34 MCINH ADDRESS OF INPUT HEADER. ) THESE FOUR ADDRESSES 35 MCINTR ADDRESS OF INPUT TRACE. ) COMPRISE THE PARAMETER 36 MCOH ADDRESS OF OUTPUT HEADER. ) LIST PASSED TO A 37 MCOTR ADDRESS OF OUTPUT TRACE. ) PROCESSING PROGRAM. 38 MCNTA NUMBER OF ACTIVE TRACE ARRAYS. 39 MCNTAM MAXIMUM NUMBER OF ACTIVE TRACE ARRAYS. 40 MCN12 COUNT OF (1,2) TRACE ARRAYS. 41 MCN21 COUNT OF (2,1) TRACE ARRAYS. 42 MCTACS 20 CURRENT STATUS OF TRACE ARRAY. 43--62 MCTANS 20 NEXT STATUS OF TRACE ARRAY. 63--82 MCTADD 20 ADDRESS OF TRACE ARRAY. 83-102 MCNMOP NUMBER OF MULTIPLE-OUTPUT PROCESSES 103 (PROCESSES WHICH MUST REGAIN CONTROL FOR MORE OUTPUT BEFORE ACCEPTING ANY MORE INPUT). MCMMOP MAXIMUM VALUE OF MCNMOP (= DIMENSION OF MCMOTF). 104 MCMOTF 20 MULTIPLE-OUTPUT TRACE FLAG. NORMALLY ZERO. 104-124 SET TO MCIKP BY CONTROL PROGRAM CSEXEC WHEN A PROCESSING PROGRAM SETS ITS INDIVIDUAL FLAG KPMOTF EQUAL TO MCIKP. MCCOLR COUNTER XXX FOR COLOR PLOT DDNAMES, FT29FXXX. 125 MCPRTY PRIORITY FROM USPRTY CALL. 126 MCW127 20 RESERVED WORDS. 127-146 APUNN1 AP3838 UNIT NUMBERS. 1 APUNN2 2 APUNN3 3 APUNN4 4 APUNN5 5 APUNN6 6 APUNN7 7 APREG1 AP3838 REGION SIZES. 8 APREG2 9 APREG3 10 APREG4 11 APREG5 12 APREG6 13 APREG7 14 CA EJECT **********SYSTEM DATA WHICH APPLIES MAINLY TO PROTAB. PTNCON NUMBER OF WORDS IN /P/ BEFORE FIRST ENTRY (MACRO). 1 PTNP NUMBER OF MACROS IN GENERATED PROTAB. 2 PTNCW LENGTH OF EACH MACRO IN WORDS. 3 PTTBLK BLOCK SIZE OR TRACE AREA SIZE, IN BYTES. 4 PTRECL MAXIMUM NUMBER OF BYTES ALLOWED FOR RECORD SIZE. 5 (NOT PRESENTLY USED.) PTFATL LENGTH OF EACH ENTRY IN FILE ATTRIBUTE TABLE, WORDS. 6 PTWBLK NOT USED. 7 2 PTREGO NOT USED. 2 PTSIZO NOT USED. 8 PTTHL TRACE HEADER SIZE IN WORDS. 9 PTTHLB TRACE HEADER SIZE IN BYTES. 10 PTWD11 30 RESERVED WORDS 11-40 **************************************************************** PROTAB 2 EACH ENTRY IN THE TABLE CONSISTS OF A SET OF PROCESS PARAMETERS FOR ONE PROCESSING MODULE. BEFORE EACH MODULE IS GIVEN CONTROL, ITS SET OF PARAMETERS IS COPIED INTO THE CURRENT PROCESS PARAMETER AREA (KP-AREA). AFTER EACH MODULE COMPLETES EXECUTION, ITS SET OF PROCESS PARAMETERS IS COPIED BACK TO PROTAB. EACH SET OF PROCESS PARAMETERS CONSISTS OF THE VARIABLES KPNA THROUGH KPWD48 IN COMMON /P/. **************************************************************** THE CONTROL PROGRAM CSEXEC REFERS TO A PROTAB ENTRY BY USING A SUITABLE INDEX FOR THE VARIABLE PROTAB, PROTAB(MCIKPE + IPVAR), WHERE MCIKPE = PTNCW*(MCIKP - 1), IPVAR = (LOC(KPVAR) - LOC(KPNA))/4 + 1, KPVAR = ANY VARIABLE IN THE KP-AREA OF /P/, KPNA = FIRST VARIABLE IN THE KP-AREA OF /P/. ENDP MARKS END OF PARAMETER COMMON. CONTAINS 'ENDP'. **********END OF COMMON /P/ BLOCK. CA8080 END