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

o o o r» n

1

191.816

2

IF(M.GE.l) GO TO 20 30 J* J + M L-l

40 ISTEP* 2*L DO 50 M*1.L

CARG*(0., 1.)*(3.141592£5:SIGKl!FL0AT(H-1))/FLOAT(L)

CW* CEXP(CARG)

DO 50 I*M, LX.ISTEP CTEMP«CW*:CX(I + L)

CX(I + L) *CX (I) - CTEM?

50 CX(I)*CX(I)+CT£MP L'ISTEP

IF(L.LT.LX) GO TO 40 IF(SIGNI.LT.O.O) RETURN DO GO 1*1,LX GO CX(I)•CX(I)zSC RETURN END

SUBROUTINE LIMIT

COMMON/CTRL/NX, NY. NTREC,DELT.NT,TPI,SPI, NREC,SCALE, LINC. ZHAX C0MM0N/CTRL4/ICDPS, ICDPE,ITST,ITED, NSAMP, ICDPN

IT5T*ITST/DELT+1 IF (ITST.EÛ.0) ITST-1 ITED*ITED/DELT+1 IF(ITED.EQ.O) ITED-NT NSAMP*ITED*ITST+1

WRITE(G,1000) ICDPS, ICDPE,ITST,ITED. NSAMP 1000 FORMAT(//, 5110)

RETURN

END

SUBROUTINE TITLE

COMMON /PARM/XCRGIN, YORGIN,IORGIN.PLOTX, PLOTY, XINC, YINC, SIZE, SIZE1 COMMON /CTRL3/I0P, I0PT1,I0PT2,10PT3,10PT4,10PT5 INTEGER12 IN0TE(3),ICHK.ISAVE(33), IEND DATA ICHK/’ ’/, IEND/-** V

mm PLOT LINE TITLE »***1

XSHIFT»X0RGlNtPL0TX+20.

IF(I0PT4.E0.1) XSHJFT-XORGIN-PLOTX-110. YSHIFT-S34.

WRITE(6.1040) tù 1CN’f»û

10/7*0

KXXXXEISXKX READ USER’S *EL XXXSXXXXXXXXX

READ(10,1000) ISIZE.(ISAVE(K). K*l, 39)

IF(ISIZE.EQ.O) CO TO 200

IfZtXXtlXXX FIND THE END OF TEXT XXKXXKKKIXXX

19