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 IERROR‘0 PL07X«NX/TPH25.4 TIHEL*DELI1NSAHP/1000. PL0TY»TIMELX25.4SSPI IF(PLOTX.GT.715.) C0 70 50 IF(PLOTY.GT.519.) CO TO 60 IORGIN-2 30 CONTINUE Y0RGIN*529. XORGIN-25. XINC-25.4/TPI SIZE«XINC/2. SIZE1-XINC YINC«(SPI*25.4)/(NSAMP/TIMEL) RETURN 50 WRITE(6,1000) LI.TPI,PLOTX IERROR'l 1000 FORMAT(10X. !SSSSSSSSS ERROR YOUR REQUESTED PLOT IS TOO LARGE X THE HUMBER OF TRACES TO PROCESS \I10,5X,* TPI F6.3,10X. *TOTA X L LENGTH IS \F7.2. * MM YOUR LIMIT IS 715 MM SSÎÏSS*) RETURN 60 WRITE(6,1010) LI.SPI.PLOTY IERROR'l 1010 FORMAT (10X. •«XSXSStX ERROR YOUR REQUESTED PLOT IS TOO LARGE X THE NUMBER OF TRACES TO PROCESS \110.5X. * IPS ’. F6.3.10X, ’TOTA X L LENGTH IS \F7.2, * MM YOUR LIMIT IS 519 MM ÍSSSSJ') RETURN END SUBROUTINE NEWSCL(ZCLASS. ZMAX) DIMENSION ZCLASS(1) vő ivei RETURN END SUBROUTINE ENVELP(PUT,LT,ENV) REAL RST(4096), CST(409S). ENV(4096). PUT(4096) RST HOLDS THE REAL PART OF THE SEISMIC TRACE CST HOLDS THE IMAGINARY (CONJAGATE) PART OF THE TRACE COMPLEX TRACE(4096) B’0.0 DO 10 J*l.LT ENV(J)"0.0 TRACE£J)*CMPLX(0.0.0.0) TRACE(J)'CMPLX(PUT(J). B) 10 CONTINUE LH-LT/2 LHl‘LH+1 CALL FFT(LT.TRACE.-1.0) DO 20 1*1.LT
