CTITLESAPLDE -- PLOTTING ROUTINE FOR STATICS 00000100 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR P. COOPER 00000200 CA DESIGNER P. COOPER 00000300 CA LANGUAGE FORTRAN H EXTENDED 00000400 CA SYSTEM IBM AND CRAY 00000500 CA WRITTEN 10/27/80 00000600 C REVISED MO/DA/YR BY PROGRAMMER FOR REASON. 00000700 C REVISED 03-12-86 DCB. CONVERTED CODE TO A SINGLE 00000800 C SOURCE FOR EXECUTION ON BOTH THE 00000900 C IBM AND CRAY SYSTEMS. 00001000 C REVISED 12-24-87 PKC. CHANGED GPHONE ARRAY FROM I2 TO I4. 00001101 C REVISED 11-13-89 RDK. FOR CRAY CFT77 COMPATIBILITY. 00001201 C REVISED 05-02-90 LWC. FIX CODE WHERE CDPS WILL CONTINUE TO 00001301 C BE PRINTED WHEN THERE ARE SOME 0'S 00001401 C IN REFCDP ARRAY. 00001501 CA 00001600 CA CALL SAPLDE (SHOTPT, REFSH, NOSHOT, SELEV, 00001700 CA GPHONE, REFGP, NGPS, GELEV, 00001800 CA STCDPN, REFCDP, NDPS, DPDATE, IPR) 00001900 CA 00002000 CA IN/OUT ARGUMENT TYPE DESCRIPTION 00002100 CA 00002200 CA IN SHOTPT I4 ARRAY - SHOTPOINT NUMBERS 00002300 CA IN REFSH I4 ARRAY - SHOTPOINT REFERENCE NUMBERS 00002400 CA IN NOSHOT I4 NUMBER OF SHOTPOINTS 00002500 CA IN SELEV I2 ARRAY - ELEVATIONS OF SHOTS 00002600 CA IN GPHONE I4 ARRAY - GEOPHONE NUMBERS 00002700 CA IN REFGP I4 ARRAY - GEOPHONE REFERENCE NUMBERS 00002800 CA IN NGPS I4 NUMBER OF GEOPHONES 00002900 CA IN GELEV I2 ARRAY - ELEVATIONS OF GEOPHONE 00003000 CA IN STCDPN I4 STARTING CDP NUMBER 00003100 CA IN REFCDP I4 ARRAY - DEPTH POINT REFERENCE NUMBERS 00003200 CA IN NDPS I4 NUMBER OF DEPTH POINTS 00003300 CA IN DPDATE I2 ARRAY - DATUM ELEVATIONS OF DPS 00003400 CA IN IPR I4 PRINTER UNIT NUMBER 00003500 CA 00003600 CA SAPLDE PRODUCES A PRINTER PLOT BASED ON THE LOCATIONS OF THE 00003700 CA SHOTPOINTS, THE RECEIVERS AND THE DEPTH POINTS. ELEVATIONS 00003800 CA OF THE SHOTPOINTS AND THE RECEIVERS ARE PLOTTED AND THE DEPTH 00003900 CA POINT DATUM PLANE. OVERFLOW ON THE PLOT ARE MARKED BY '#'. 00004000 CAEND 00004100 CC EJECT 00004200 SUBROUTINE SAPLDE (SHOTPT, REFSH, NOSHOT, SELEV, 00004300 * GPHONE, REFGP, NGPS, GELEV, 00004400 * STCDPN, REFCDP, NDPS, DPDATE, IPR) 00004500 C 00004600 IMPLICIT INTEGER (A-Z) 00004700 C EXTERNAL S1ATP 00004801 C 00004900 C INTEGER ARRAYS IN PARAMETER LIST. 00005000 C 00005100 INTEGER SHOTPT (1) 00005200 INTEGER GPHONE (1) 00005300 INTEGER REFSH (1) 00005400 INTEGER REFGP (1) 00005500 INTEGER REFCDP (1) 00005600 INTEGER*2 SELEV (1) 00005700 INTEGER*2 GELEV (1) 00005800 INTEGER*2 DPDATE (1) 00005900 C 00006000 C INTEGER ARRAYS--LOCAL 00006100 C 00006200 INTEGER LINE (72) 00006300 INTEGER T (2) 00006400 C 00006500 C REAL VARIABLES AND CONSTANTS 00006600 C 00006700 REAL XMIND 00006800 REAL XMAXD 00006900 REAL SCALE 00007000 REAL RINC 00007100 REAL RNUM 00007200 REAL ADDON 00007300 REAL RFRAC 00007400 C 00007500 C INTEGER VARIABLES AND CONSTANTS 00007600 C 00007700 INTEGER DDDD 00007800 INTEGER EEEE 00007900 INTEGER SSSS 00008000 INTEGER OOOO 00008100 INTEGER XXXX 00008200 INTEGER DOT 00008300 INTEGER BLANK 00008400 INTEGER POUND 00008500 INTEGER STAR 00008600 INTEGER ZERO 00008700 INTEGER ONE 00008800 INTEGER TWO 00008900 INTEGER THREE 00009000 INTEGER FOUR 00009100 INTEGER FIVE 00009200 INTEGER SIX 00009300 INTEGER SEVEN 00009400 INTEGER EIGHT 00009500 INTEGER NINE 00009600 C 00009700 C INITIALIZE INTEGER VARIABLES AND CONSTANTS 00009800 C 00009900 DATA DDDD /'DDDD'/ 00010000 DATA EEEE /'EEEE'/ 00010100 DATA SSSS /'SSSS'/ 00010200 DATA OOOO /'OOOO'/ 00010300 DATA XXXX /'XXXX'/ 00010400 DATA DOT /'||||'/ 00010500 DATA BLANK /' '/ 00010600 DATA POUND /'####'/ 00010700 DATA STAR /'****'/ 00010800 DATA ZERO /'0000'/ 00010900 DATA ONE /'1111'/ 00011000 DATA TWO /'2222'/ 00011100 DATA THREE /'3333'/ 00011200 DATA FOUR /'4444'/ 00011300 DATA FIVE /'5555'/ 00011400 DATA SIX /'6666'/ 00011500 DATA SEVEN /'7777'/ 00011600 DATA EIGHT /'8888'/ 00011700 DATA NINE /'9999'/ 00011800 C 00011900 C================================================================= 00012000 C INITIALIZATION AREA 00012100 C 00012200 IF (1.EQ.2) CALL S1ATP 00012301 C 00012401 INTLMT = 32 00012500 C 00012600 C COMPUTE MINIMUMS AND MAXIMUMS FOR PLOTTING SCALE 00012700 C 00012800 MIN = SELEV(1) 00012900 MAX = SELEV(1) 00013000 C 00013100 C COMPUTE MINIMUM AND MAXIMUM ELEVATIONS 00013200 C 00013300 DO 10 I = 2,NOSHOT 00013400 IF(SELEV(I) .LT. MIN) MIN = SELEV(I) 00013500 IF(SELEV(I) .GT. MAX) MAX = SELEV(I) 00013600 10 CONTINUE 00013700 C 00013800 DO 20 I = 1, NGPS 00013900 IF(GELEV(I) .LT. MIN) MIN = GELEV(I) 00014000 IF(GELEV(I) .GT. MAX) MAX = GELEV(I) 00014100 20 CONTINUE 00014200 C 00014300 DO 30 I = 1, NDPS 00014400 IF(DPDATE(I) .LT. MIN) MIN = DPDATE(I) 00014500 IF(DPDATE(I) .GT. MAX) MAX = DPDATE(I) 00014600 30 CONTINUE 00014700 C 00014800 WRITE (IPR, 9000 ) 00014900 WRITE (IPR, 9010 ) MIN,MAX 00015000 C 00015100 C FIND MIN AND MAX DIFFERENCES 00015200 C BETWEEN REFERENCE NUMBERS 00015300 C 00015400 MIND = IABS(REFSH(2) - REFSH(1)) 00015500 MAXD = 0 00015600 IF(MIND .EQ. 0) MIND = 999999 00015700 MINNO = REFSH(1) 00015800 MAXNO = REFSH(1) 00015900 IF(REFSH(2) .LT. MINNO) MINNO = REFSH(2) 00016000 IF(REFSH(2) .GT. MAXNO) MAXNO = REFSH(2) 00016100 C 00016200 DO 40 I = 3,NOSHOT 00016300 DIFF = IABS(REFSH(I)-REFSH(I-1)) 00016400 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MIND = DIFF 00016500 IF(REFSH(I).LT.MINNO) MINNO = REFSH(I) 00016600 IF(REFSH(I).GT.MAXNO) MAXNO = REFSH(I) 00016700 40 CONTINUE 00016800 C 00016900 IF(REFCDP(1).LT.MINNO) MINNO = REFCDP(1) 00017000 IF(REFCDP(1).GT.MAXNO) MAXNO = REFCDP(1) 00017100 LASTDP = REFCDP(1) 00017201 C 00017300 DO 50 I = 2, NDPS 00017400 IF (REFCDP(I) .NE. 0) THEN 00017501 DIFF = IABS(REFCDP(I)-LASTDP) 00017701 LASTDP = REFCDP(I) 00017801 ELSE 00017901 GO TO 50 00018001 ENDIF 00018101 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MIND = DIFF 00018300 IF(DIFF.GT.MAXD) MAXD = DIFF 00018400 IF(REFCDP(I).LT.MINNO) MINNO = REFCDP(I) 00018500 IF(REFCDP(I).GT.MAXNO) MAXNO = REFCDP(I) 00018600 50 CONTINUE 00018700 C 00018800 IF(REFGP(1).LT.MINNO) MINNO = REFGP(1) 00018900 IF(REFGP(1).GT.MAXNO) MAXNO = REFGP(1) 00019000 C 00019100 DO 60 I = 2, NGPS 00019200 DIFF = IABS(REFGP(I)-REFGP(I-1)) 00019300 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MIND = DIFF 00019400 IF(DIFF.GT.MAXD) MAXD = DIFF 00019500 IF(REFGP(I).LT.MINNO) MINNO = REFGP(I) 00019600 IF(REFGP(I).GT.MAXNO) MAXNO = REFGP(I) 00019700 60 CONTINUE 00019800 C 00019900 C CHECK AGAINST MINIMUM BETWEEN ARRAYS 00020000 C 00020100 MINFLG = 0 00020200 MINDD = MIND 00020300 C 00020400 DO 70 I = 1,NOSHOT 00020500 C 00020600 DO 70 J = 1, NDPS 00020700 DIFF = IABS(REFSH(I)-REFCDP(J)) 00020800 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MINFLG = 1 00020900 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MIND = DIFF 00021000 C 00021100 70 CONTINUE 00021200 C 00021300 DO 80 I = 1,NOSHOT 00021400 C 00021500 DO 80 J = 1, NGPS 00021600 DIFF = IABS(REFSH(I)-REFGP(J)) 00021700 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MINFLG = 1 00021800 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MIND = DIFF 00021900 C 00022000 80 CONTINUE 00022100 C 00022200 DO 90 I = 1, NGPS 00022300 C 00022400 DO 90 J = 1, NDPS 00022500 DIFF = IABS(REFGP(I)-REFCDP(J)) 00022600 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MINFLG = 1 00022700 IF(DIFF.LT.MIND .AND. DIFF.NE.0) MIND = DIFF 00022800 C 00022900 90 CONTINUE 00023000 C 00023100 C COMPUTE REFERENCE INCREMENT 00023200 C 00023300 INT = MAXD / MIND + 0.5 00023400 IF(INT .GT. 10 .AND. MINFLG .EQ. 1)INT = MAXD / MINDD + .5 00023500 IF(INT.GT.INTLMT) INT = INTLMT 00023600 XMAXD = MAXD 00023700 RINC = XMAXD / INT 00023800 IF(RINC .EQ. 0.0) RINC = MINNO 00023900 BIGDIF = MAXNO - MINNO 00024000 C 00024100 C MAX FOR PRINT DO LOOP IS TOPS, COMPUTE SCALE 00024200 C 00024300 TOPS = (BIGDIF * INT) / MAXD + 1.5 00024400 SCALE = 0.0 00024500 IF((MAX-MIN).NE.0) SCALE = 59. / (MAX-MIN) 00024600 ADDON = 13.5 00024700 IF(SCALE .EQ. 0.0) ADDON = 54.5 00024800 C 00024900 C PLOT THE SHOTPOINT, CDP AND RECEIVER 00025000 C LOCATIONS AND THEIR ELEVATIONS. 00025100 C 00025200 N = 1 00025300 NN = 1 00025400 NNN = 1 00025500 RNUM = MINNO 00025600 C 00025700 DO 330 I = 1,TOPS 00025800 C 00025900 DO 100 J = 1, 72 00026000 LINE(J) = BLANK 00026100 100 CONTINUE 00026200 C 00026300 N = 1 00026400 LINE(1) = DOT 00026500 LINE(72) = DOT 00026600 TEMP = 0 00026700 C 00026800 C CHECK FOR SHOTPOINT PRINT 00026900 C 00027000 110 IF(N .GT. NOSHOT) GO TO 160 00027100 IF (SHOTPT(N) .LT. 0) GO TO 120 00027200 IF(FLOAT(REFSH(N)).GE.RNUM-(RINC/2.0)) GO TO 130 00027300 120 N = N + 1 00027400 GO TO 110 00027500 C 00027600 130 IF(FLOAT(REFSH(N)).LT.RNUM-(RINC/2.0) .OR. 00027700 * FLOAT(REFSH(N)).GE.RNUM+(RINC/2.0)) GO TO 120 00027800 IF (SHOTPT(N) .LT. 0)GO TO 120 00027900 TEMP = 1 00028000 J = (SELEV(N)-MIN) * SCALE + ADDON 00028100 IF(J .LT. 13) LINE(13) = EEEE 00028200 IF(J .LT. 13) LINE(14) = POUND 00028300 IF(J .GT. 72) LINE(71) = POUND 00028400 IF(J .GT. 72) LINE(72) = EEEE 00028500 IF(J.GE.13 .AND. J.LE.72) LINE(J) = EEEE 00028600 CALL S1BNCV (SHOTPT(N),T,1,5) 00028700 KNT = 1 00028800 LINE(12) = XXXX 00028900 LINE (5) = SSSS 00029000 CNT = 6 00029100 C 00029200 DO 140 II = 1,5 00029300 LINE(CNT) = ZERO 00029400 IF(S1CPCH(T,KNT,'1',1,1).EQ.0) LINE(CNT)=ONE 00029500 IF(S1CPCH(T,KNT,'2',1,1).EQ.0) LINE(CNT)=TWO 00029600 IF(S1CPCH(T,KNT,'3',1,1).EQ.0) LINE(CNT)=THREE 00029700 IF(S1CPCH(T,KNT,'4',1,1).EQ.0) LINE(CNT)=FOUR 00029800 IF(S1CPCH(T,KNT,'5',1,1).EQ.0) LINE(CNT)=FIVE 00029900 IF(S1CPCH(T,KNT,'6',1,1).EQ.0) LINE(CNT)=SIX 00030000 IF(S1CPCH(T,KNT,'7',1,1).EQ.0) LINE(CNT)=SEVEN 00030100 IF(S1CPCH(T,KNT,'8',1,1).EQ.0) LINE(CNT)=EIGHT 00030200 IF(S1CPCH(T,KNT,'9',1,1).EQ.0) LINE(CNT)=NINE 00030300 CNT = CNT + 1 00030400 KNT = KNT + 1 00030500 140 CONTINUE 00030600 C 00030700 WRITE (IPR, 9020 ) SHOTPT(N),SELEV(N),LINE 00030800 N = N + 1 00030900 C 00031000 C CHECK IF NEXT SHOT ON NEXT LINE 00031100 C 00031200 150 IF(REFSH(N).LT.RNUM-(RINC/2.0) .OR. 00031300 * REFSH(N).GE.RNUM+(RINC/2.0)) GO TO 160 00031400 N = N + 1 00031500 IF(N .GT. NOSHOT) GO TO 160 00031600 GO TO 150 00031700 C 00031800 C CHECK FOR DEPTH POINT DATUM ELEVATION PRINT 00031900 C 00032000 160 IF(NN .GT. NDPS) GO TO 200 00032100 IF (REFCDP(NN) .EQ. 0) THEN 00032201 NN = NN + 1 00032301 GO TO 160 00032401 ENDIF 00032501 IF(FLOAT(REFCDP(NN)).LT.RNUM-(RINC/2.0) .OR. 00032600 * FLOAT(REFCDP(NN)).GE.RNUM+(RINC/2.0)) GO TO 200 00032700 J = (DPDATE(NN)-MIN) * SCALE + ADDON 00032800 IF(J .LT. 13) LINE(13) = DDDD 00032900 IF(J .LT. 13) LINE(14) = POUND 00033000 IF(J .GT. 72) LINE(71) = POUND 00033100 IF(J .GT. 72) LINE(72) = DDDD 00033200 IF(J.GE.13 .AND. J.LE.72) LINE(J) = DDDD 00033300 LINE(12) = STAR 00033400 PRTCDP = STCDPN + NN - 1 00033500 C 00033600 C IF ALREADY PRINTED SHOTPOINT THEN NO LINE FEED 00033700 C 00033800 IF(TEMP .EQ. 1) GO TO 170 00033900 C 00034000 WRITE (IPR, 9030 ) PRTCDP, DPDATE(NN), LINE 00034100 GO TO 180 00034200 C 00034300 170 WRITE (IPR, 9040 ) PRTCDP, DPDATE(NN), LINE 00034400 180 NN = NN + 1 00034500 TEMP = 2 00034600 C 00034700 C CHECK IF NEXT DEPTH POINT ON NEXT PRINT LINE 00034800 C 00034900 190 IF(REFCDP(NN).LT.RNUM-(RINC/2.0) .OR. 00035000 * REFCDP(NN).GE.RNUM+(RINC/2.0)) GO TO 200 00035100 NN = NN + 1 00035200 IF(NN .GT. NDPS) GO TO 200 00035300 GO TO 190 00035400 C 00035500 C CHECK IF RECEIVER PRINT 00035600 C 00035700 200 IF(NNN .GT. NGPS) GO TO 240 00035800 IF(FLOAT(REFGP(NNN)).LT.RNUM-(RINC/2.0) .OR. 00035900 * FLOAT(REFGP(NNN)).GE.RNUM+(RINC/2.0)) GO TO 240 00036000 J = (GELEV(NNN)-MIN) * SCALE + ADDON 00036100 IF(J .LT. 13) LINE(13) = EEEE 00036200 IF(J .LT. 13) LINE(14) = POUND 00036300 IF(J .GT. 72) LINE(71) = POUND 00036400 IF(J .GT. 72) LINE(72) = EEEE 00036500 IF(J.GE.13 .AND. J.LE.72) LINE(J) = EEEE 00036600 LINE(12) = OOOO 00036700 IF(TEMP .NE. 0) GO TO 210 00036800 WRITE (IPR, 9050 ) GPHONE(NNN), GELEV(NNN), LINE 00036900 GO TO 220 00037000 C 00037100 210 WRITE (IPR, 9060 ) GPHONE(NNN), GELEV(NNN), LINE 00037200 220 NNN = NNN + 1 00037300 TEMP = 3 00037400 C 00037500 C CHECK IF NEXT RECEIVER ON NEXT PRINT LINE 00037600 C 00037700 230 IF(REFGP(NNN).LT.RNUM-(RINC/2.0) .OR. 00037800 * REFGP(NNN).GE.RNUM+(RINC/2.0)) GO TO 240 00037900 NNN = NNN + 1 00038000 IF(NNN .GT. NGPS) GO TO 240 00038100 GO TO 230 00038200 C 00038300 C IF NO PRINT LINE -- CHECK FOR INTERPOLATON 00038400 C 00038500 240 IF(TEMP .NE. 0) GO TO 320 00038600 WRITE (IPR, 9070 ) LINE 00038700 C 00038800 C SHOTPOINT ELEVATION INTERPOLATION 00038900 C 00039000 IF(N .EQ. 1 .OR. N .GT. NOSHOT) GO TO 280 00039100 ELEV1 = SELEV(N-1) 00039200 REFNO1 = REFSH(N-1) 00039300 NP = N - 1 00039400 250 NP = NP + 1 00039500 IF(NP .GT. NOSHOT) GO TO 260 00039600 IF(REFSH(NP) .EQ. REFSH(N-1)) GO TO 250 00039700 260 ELEV2 = ELEV1 00039800 IF(NP .LE. NOSHOT) ELEV2 = SELEV(NP) 00039900 REFNO2 = REFNO1 00040000 IF(NP .LE. NOSHOT) REFNO2 = REFSH(NP) 00040100 C 00040200 C INTERPOLATE AND PRINT A VERTICAL SLASH 00040300 C 00040400 270 DIFF = REFNO2 - REFNO1 00040500 RFRAC = RNUM - REFNO1 00040600 IF(DIFF.NE.0) RFRAC = RFRAC / DIFF 00040700 IF(DIFF.EQ.0) RFRAC = 0.0 00040800 DIFF = ELEV2 - ELEV1 00040900 PN = 1 00041000 IF(DIFF.LT.0) PN = -1 00041100 ELEV = DIFF*RFRAC + ELEV1 + 0.5 * PN 00041200 J = (ELEV - MIN) * SCALE + ADDON 00041300 IF(J .LT. 13) LINE(13) = DOT 00041400 IF(J .LT. 13) LINE(14) = POUND 00041500 IF(J .GT. 72) LINE(71) = POUND 00041600 IF(J .GT. 72) LINE(72) = DOT 00041700 IF(J.GE.13 .AND. J.LE.72) LINE(J) = DOT 00041800 WRITE (IPR, 9080 ) LINE 00041900 C 00042000 C CHECK FOR DEPTH POINT DATUM INTERPOLATION 00042100 C 00042200 280 IF (TEMP .NE. 0) GO TO 290 00042300 IF (NN .EQ. 1 .OR. NN .GT. NDPS) GO TO 290 00042400 ELEV1 = DPDATE(NN-1) 00042500 REFNO1 = REFCDP(NN-1) 00042600 ELEV2 = DPDATE(NN) 00042700 REFNO2 = REFCDP(NN) 00042800 TEMP = 1 00042900 GO TO 270 00043000 C 00043100 C CHECK FOR RECEIVER ELEVATIONS INTERPOLATION 00043200 C 00043300 290 IF (TEMP .EQ. 2) GO TO 320 00043400 IF (NNN .EQ. 1 .OR. NNN .GT. NGPS) GO TO 320 00043500 ELEV1 = GELEV(NNN-1) 00043600 REFNO1 = REFGP(NNN-1) 00043700 NP = NNN - 1 00043800 300 NP = NP + 1 00043900 IF (NP .GT. NGPS) GO TO 310 00044000 IF (REFGP(NP) .EQ. REFGP(N-1)) GO TO 300 00044100 310 ELEV2 = ELEV1 00044200 IF (NP .LE. NGPS) ELEV2 = GELEV(NP) 00044300 REFNO2 = REFNO1 00044400 IF (NP .LE. NGPS) REFNO2 = REFGP(NP) 00044500 TEMP = 2 00044600 GO TO 270 00044700 C 00044800 C INCREMENT LOCATION AND CONTINUE 00044900 C 00045000 320 RNUM = RNUM + RINC 00045100 C 00045200 330 CONTINUE 00045300 C 00045400 WRITE (IPR, 9090 ) MIN,MAX 00045500 C 00045600 RETURN 00045700 C 00045800 9000 FORMAT (3X,'SHOTPOINTS ==> X DEPTH POINTS ==> * ', 00045900 * 'SURVEY STATIONS ==> O'/) 00046000 C 00046100 9010 FORMAT (1X,130('-'), 00046200 * /1X,' SHOTPOINT || DEPTH POINT || SURVEY ', 00046300 * 'STATION | MIN=',I4,21X,'ELEVATION',T122,'MAX=',I4,' |', 00046400 * /1X,' NO. ELEV. || NO. DATUM EL. || NO. ', 00046500 * ' ELEV. |',T131,'|',/1X,130('-'), 00046600 * /20X,'||',18X,'||',17X,'|',T131,'|') 00046700 C 00046800 9020 FORMAT (2X,I5,4X,I5,4X,'||',18X,'||',17X,72A1) 00046900 C 00047000 9030 FORMAT (20X,'||',1X,I5,4X,I5,3X,'||',17X,72A1) 00047100 C 00047200 9040 FORMAT ('+',19X,'||',1X,I5,4X,I5,3X,'||',17X,72A1) 00047300 C 00047400 9050 FORMAT (20X,'||',18X,'||',1X,I5,4X,I5,2X,72A1) 00047500 C 00047600 9060 FORMAT ('+',19X,'||',18X,'||',1X,I5,4X,I5,2X,72A1) 00047700 C 00047800 9070 FORMAT (20X,'||',18X,'||',17X,72A1) 00047900 C 00048000 9080 FORMAT ('+',19X,'||',18X,'||',17X,72A1) 00048100 C 00048200 9090 FORMAT (1X,130('-'), 00048300 * /1X,' SHOTPOINT || DEPTH POINT || SURVEY ', 00048400 * 'STATION | MIN=',I4,21X,'ELEVATION',T122,'MAX=',I4,' |', 00048500 * /1X,' NO. ELEV. || NO. DATUM EL. || NO. ', 00048600 * ' ELEV. |',T131,'|',/1X,130('-'),/////) 00048700 C 00048800 END 00049000