CTITLECOMINIT -- LABEL COMMON INITIALIZE ROUTINE. 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR RANDY PROBST 00020000 CA DESIGNER RANDY PROBST 00030000 CA LANGUAGE FORTRAN 00040000 CA SYSTEM IBM AND CRAY 00050000 CA WRITTEN 02-10-88 00060000 C REVISED 11-09-88 RDK. ADD COMMON BLOCK OPAP. 00070000 C REVISED 10-26-90 ESN. ADD LHDUMY TO LHEADR. 00080000 CA 00090000 CA THIS SUBROUTINE IS CALLED BY CSEXEC TO INITIALIZE LABEL COMMON 00100000 CA BLOCKS. (PREVIOUSLY IN BLOCK DATA ROUTINES) 00110000 CA 00120000 SUBROUTINE COMINIT 00130000 IMPLICIT INTEGER (A-Z) 00140000 C 00150000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 00160000 C LHEADR IS A NAMED COMMON TO HOLD THE SEG-Y LINE HEADERS. 00170000 C 00180000 COMMON /LHEADR/ LHNHST 00190000 COMMON /LHEADR/ LHWRKS 00200000 COMMON /LHEADR/ LHWRKD 00210000 COMMON /LHEADR/ LHSPR1 00220000 COMMON /LHEADR/ LHCRDS (800) 00230000 COMMON /LHEADR/ LHBIN (100) 00240000 COMMON /LHEADR/ LHCPAT (800) 00250000 COMMON /LHEADR/ LHDUMY (8192) 00260000 C 00270000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 00280000 C SPOOL IS A NAMED COMMON USED TO KEEP TRACK OF SPOOLED OUTPUTS. 00290000 C 00300000 COMMON /SPOOL/ SPTAB(10) 00310000 COMMON /SPOOL/ SPVOL(10) 00320000 C 00330000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 00340000 C OPAP IS A NAMED COMMON USED TO KEEP TRACK OF OPAP HISTORY DCB'S 00350000 C 00360000 COMMON /OPAP / OPAPF(30) 00370000 C 00380000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 00390000 C 40 CARD IMAGES OF EBCDIC LINE HEADER 00400000 CHARACTER*80 LHDATA(40) 00410000 C 00420000 DATA LHDATA(1) 00430000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00440000 */'C 1 CLIENT COMPANY 00450000 *CREW NO '/ 00460000 C 65 70 75 80 00470000 C 00480000 DATA LHDATA(2) 00490000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00500000 */'C 2 LINE AREA MAP ID 00510000 * '/ 00520000 C 65 70 75 80 00530000 C 00540000 DATA LHDATA(3) 00550000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00560000 */'C 3 FIRST FIELD REEL: DATE RECORDED: OBS00570000 *ERVER '/ 00580000 C 65 70 75 80 00590000 C 00600000 DATA LHDATA(4) 00610000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00620000 */'C 4 INSTRUMENT: MFG MODEL SERIAL NO00630000 * '/ 00640000 C 65 70 75 80 00650000 C 00660000 DATA LHDATA(5) 00670000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00680000 */'C 5 DATA TRACES/RECORD AUXILIARY TRACES/RECORD CD00690000 *P FOLD '/ 00700000 C 65 70 75 80 00710000 C 00720000 DATA LHDATA(6) 00730000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00740000 */'C 6 SAMPLE INTERVAL SAMPLES/TRACE BITS/IN BY00750000 *TES/SAMPLE '/ 00760000 C 65 70 75 80 00770000 C 00780000 DATA LHDATA(7) 00790000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00800000 */'C 7 RECORDING FORMAT FORMAT THIS REEL UNITS OF DIS00810000 *TANCE '/ 00820000 C 65 70 75 80 00830000 C 00840000 DATA LHDATA(8) 00850000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00860000 */'C 8 SAMPLE CODE: RECORDING MODE: 00870000 * '/ 00880000 C 65 70 75 80 00890000 C 00900000 DATA LHDATA(9) 00910000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00920000 */'C 9 GAIN TYPE: 00930000 * '/ 00940000 C 65 70 75 80 00950000 C 00960000 DATA LHDATA(10) 00970000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 00980000 */'C10 FILTERS: ALIAS HZ NOTCH HZ BAND - HZ SLOP00990000 *E - DB/OCT'/ 01000000 C 65 70 75 80 01010000 C 01020000 DATA LHDATA(11) 01030000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01040000 */'C11 SOURCE: TYPE NUMBER/POINT POINT 01050000 *INTERVAL '/ 01060000 C 65 70 75 80 01070000 C 01080000 DATA LHDATA(12) 01090000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01100000 */'C12 PATTERN: LENGTH WIDTH 01110000 * VERT FOLD '/ 01120000 C 65 70 75 80 01130000 C 01140000 DATA LHDATA(13) 01150000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01160000 */'C13 SWEEP: START HZ END HZ LENGTH MS CHANNEL NO 01170000 * TYPE '/ 01180000 C 65 70 75 80 01190000 C 01200000 DATA LHDATA(14) 01210000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01220000 */'C14 TAPER: START LENGTH MS END LENGTH MS TYPE 01230000 * '/ 01240000 C 65 70 75 80 01250000 C 01260000 DATA LHDATA(15) 01270000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01280000 */'C15 SPREAD: LATERAL OFFSET MAX DISTANCE GROUP IN01290000 *TERVAL '/ 01300000 C 65 70 75 80 01310000 C 01320000 DATA LHDATA(16) 01330000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01340000 */'C16 GEOPHONES: PER GROUP SPACING FREQUENCY MFG 01350000 * MODEL '/ 01360000 C 65 70 75 80 01370000 C 01380000 DATA LHDATA(17) 01390000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01400000 */'C17 PATTERN: LENGTH WID01410000 *TH '/ 01420000 C 65 70 75 80 01430000 C 01440000 DATA LHDATA(18) 01450000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01460000 */'C18 TRACES SORTED BY: SPREAD DEF 01470000 * '/ 01480000 C 65 70 75 80 01490000 C 01500000 DATA LHDATA(19) 01510000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01520000 */'C19 AMPLITUDE RECOVERY: 01530000 * '/ 01540000 C 65 70 75 80 01550000 C 01560000 DATA LHDATA(20) 01570000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01580000 */'C20 MAP PROJECTION ZONE ID COORDIN01590000 *ATE UNITS '/ 01600000 C 65 70 75 80 01610000 C 01620000 DATA LHDATA(21) 01630000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01640000 */'C21 SHOTPOINTS: START END 01650000 * '/ 01660000 C 65 70 75 80 01670000 C 01680000 DATA LHDATA(22) 01690000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01700000 */'C22 DIRECTION OF LINE TR. ONE TO THE 01710000 * '/ 01720000 C 65 70 75 80 01730000 C 01740000 DATA LHDATA(23) 01750000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01760000 */'C23 DIRECTION OF TR. ONE FROM SHOT 01770000 * '/ 01780000 C 65 70 75 80 01790000 C 01800000 DATA LHDATA(24) 01810000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01820000 */'C24 COUNTY STATE SURVEY NO. 01830000 * '/ 01840000 C 65 70 75 80 01850000 C 01860000 DATA LHDATA(25) 01870000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01880000 */'C25 01890000 * '/ 01900000 C 65 70 75 80 01910000 C 01920000 DATA LHDATA(26) 01930000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 01940000 */'C26 01950000 * '/ 01960000 C 65 70 75 80 01970000 C 01980000 DATA LHDATA(27) 01990000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02000000 */'C27 02010000 * '/ 02020000 C 65 70 75 80 02030000 C 02040000 DATA LHDATA(28) 02050000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02060000 */'C28 02070000 * '/ 02080000 C 65 70 75 80 02090000 C 02100000 DATA LHDATA(29) 02110000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02120000 */'C29 02130000 * '/ 02140000 C 65 70 75 80 02150000 C 02160000 DATA LHDATA(30) 02170000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02180000 */'C30 02190000 * '/ 02200000 C 65 70 75 80 02210000 C 02220000 DATA LHDATA(31) 02230000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02240000 */'C31 02250000 * '/ 02260000 C 65 70 75 80 02270000 C 02280000 DATA LHDATA(32) 02290000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02300000 */'C32 02310000 * '/ 02320000 C 65 70 75 80 02330000 C 02340000 DATA LHDATA(33) 02350000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02360000 */'C33 02370000 * '/ 02380000 C 65 70 75 80 02390000 C 02400000 DATA LHDATA(34) 02410000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02420000 */'C34 02430000 * '/ 02440000 C 65 70 75 80 02450000 C 02460000 DATA LHDATA(35) 02470000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02480000 */'C35 02490000 * '/ 02500000 C 65 70 75 80 02510000 C 02520000 DATA LHDATA(36) 02530000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02540000 */'C36 02550000 * '/ 02560000 C 65 70 75 80 02570000 C 02580000 DATA LHDATA(37) 02590000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02600000 */'C37 02610000 * '/ 02620000 C 65 70 75 80 02630000 C 02640000 DATA LHDATA(38) 02650000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02660000 */'C38 LINE(CONT) AREA(CONT) 02670000 * '/ 02680000 C 65 70 75 80 02690000 C 02700000 DATA LHDATA(39) 02710000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02720000 */'C39 02730000 * '/ 02740000 C 65 70 75 80 02750000 C 02760000 DATA LHDATA(40) 02770000 C 1 5 10 15 20 25 30 35 40 45 50 55 60 02780000 */'C40 END EBCDIC 02790000 * '/ 02800000 C 65 70 75 80 02810000 C 02820000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 02830000 C 02840000 C INITIALIZE LHEADR COMMON 02850000 C 02860000 LHNHST = 0 02870000 LHWRKS = 0 02880000 LHWRKD = 0 02890000 LHSPR1 = 0 02900000 C 02910000 DO 100 I = 1, 100 02920000 LHBIN(I) = 0 02930000 100 CONTINUE 02940000 C 02950000 CALL USMVCL (LHCRDS, 3200, LHDATA, 3200) 02960000 CALL USMVCL (LHCPAT, 3200, LHDATA, 3200) 02970000 C 02980000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 02990000 C 03000000 C INITIALIZE SPOOL COMMON 03010000 C 03020000 DO 200 I = 1, 10 03030000 SPTAB(I) = 0 03040000 SPVOL(I) = 0 03050000 200 CONTINUE 03060000 C 03070000 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 03080000 C 03090000 C INITIALIZE OPAP COMMON 03100000 C 03110000 DO 300 I = 1, 30 03120000 OPAPF(I) = 0 03130000 300 CONTINUE 03140000 C 03150000 END 03160000