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

2

191.816

DO 350 K*1,NTRC

X-XORGIN+ (K* 1) XXI NO'NSI CN CALL ILINE (X, YT, .2,4,1)

CALL ILINE (X, YT2, .2,4,0)

CALL ILINE(X. YB, .2, 4,1)

CALL ILINE (X, YB2, .2,4.0)

350 CONTINUE

L-0

DO 400 K-I. NTRC. ITINC L-L+l

LI-(L-l)HTINC

X«X0RGIN+L1*XINC*NSIGN+ (I-l)lXINCïNSIGN CALL ILINE(X, YT1, .4.3,1)

CALL ILINE (X.YT2, .4,3,0)

CALL ILINE(X, YB1, .4,3.1)

CALL ILINE (X. YB2, .4, 3, 0)

400 CONTINUE

IF(I0PT3-EÛ.1) GO TO 10 IF(ITLABL.LE.O)GO TO 10 IF(ITLINC.LE.O)GO TO 10 JN-0

DO 500 K-J.NTRC, ITLINC JN-JNtl

Jl-(JN-l)lITLINC

x»xo«o»’^ xi txtttcr Nsreir* n-tyryfffCtHsi&it- %.

VAWßTM fSUHTÍLCU)

CALL INUMB(VALUE. X, YB3, 2.. 0, 7, 0)

500 CONTINUE

Kixxilltl PLOT USER’S EXTERNAL ANNOTATION KIXtX

10 READ(10, 2C00) ICODE. INTR, (IEXT (K), K-1, 4)

IF (ICODE-EC.IEND) GO TO £00 IF(INTR.LT.ICDPS.OR.INTR.GT.ICDFE) GO TO 10 DO 550 K-l.NX

IF (INTR.EQ-NUMTRC(K)) INCR-K-1 550 CONTINUE

X* XORGIN + INCRtXINCxNSIGN* 8.

WRITE(£,2020) ICOOE,INTR, (IEXT(K),K-l. 4)

CALL ITEXT(IEXT,X,YT4,2.,0,6)

GO TO 10

GOO WRITE(G,2030)

RETURN

.000 FORMAT(10X, 4110)

1000 FORMAT (A2, 15, 2X, 4A2)

1010 FORMAT(3SX,’**S USER TRACE ANNOTATION ***’,///,25X, ’ANNOTATION T *YPE’,5X,’INTERNAL CDP’.5X,’ANNOTATION’, //)

>020 FORMAT (31X, A2,17X, 15, 9X. 4A2)

>030 FORMAT (//, 35X, ’»** USER TRACE ANNOTATION COMPLETED «*’,//)

END

SUBROUTINE IPARM(IERROR)

COMMON /CTRL/NX, NY. NTREC,CELT, NT, TPI,SPI. NREC, SCALE, LINC, ZKAX COMMON /PARM/XORGIN, YORGIN,IORGIN.PLOTX,PLOTY, XINC, YINC, SIZE, SIZE1 COMMON /CTRL4/ICDP5, ICOPE.ITST, ITED, NSAMP, ICDPN

16