191816. lajstromszámú szabadalom • Eljárás változó amplitudójú vagy fázisú szeizmikus kijelzési görbe előállítására szeizmikus jelenséget jellemző változóról felvett szabálytalan lefutású vagy szinuszos jellegű mérési görbék alapján, különösen geológiai kutatásoknál
1 191.816 2 IF(IBUFF(1).NE.IHEAD) CO TO 100 IPROS(1)■IBUFF(5) IPROS(2)•IBUFF(6) IPR0S(3)*IBUFF(7) IPROS(4)*IBUFF(8) HLINE(1)*JBUFF(5) HLINE(2)•J6UFF(6) HLINE(3)•JBUFF(7) IRUN*IBUFF(39) WRITE(6. 1050) IPROS,HLINE. IRUN WRITE(6,1060) NT'IBUFF(128) LT*1024 IF(NT.CT.1024.AND.NT.LE.2048) LT'2048 IF(NT.GT.2048.AND.NT.LE.409?' LT-4096 XCELT*IBUFF(127) NREC*IBUFF(164) DELT-IDELT NREC'ICDPE-ICDPS+1 CALL LIMIT 100 IF(IBUFF(1).NE.ITRHE) CO TO 200 DO 50 J*l,4096 50 TARRAY(J)*0.0 ICDPN’IBUFF(63) IF(NX.EQ.NREC) GO TO 400 IF(IBUFF(6).NE.IPCODE) CO TO 200 IF(ICDPH.LT.ICDPS.OR.ICDPN.GT.ICDPE) CO TO 200 IF(IBUFF(6).EQ.IPCODE) NX*NX*1 NTRHP*IBUFF(28) IART *IBUFF(4) WRITE(6, 9998) DO 250 J'l,NTRHP N*IART+J TARRAY(J)«BUFF(N) 250 CONTINUE CALL ENVELP(TARRAY,LT,ENV) I*ITST K-ITED NRITE(S) (TARRAY (N),N*I,K) WRITE(8) (ENV(N), N*I,K) NUMTRC(NX)"ICDPN WRITE(6, 3004) ICDPN. NTRHP 200 LN«0 CO TO 20 BXXXXXXXlXXXXXIXXXKXKlXXKZXIXXXZKIlKXXIZIlt C PLOT THE SECTION * IXIXXXXXXXXXZXtXKKXKXfXXXXXXXKXXXKXKXKIXfXt 400 WRITE(6,1065) CALL IPARM(IERROR) IF(TERROR.EQ.1) CO TO 5000 IF(I0PT4.EÛ.1) X0RCIN*830
