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

CALL IPAGB CALL IPRINT(1)

CALL 1START(IORGIN)

CALL ICHCOL(l)

CALL APPLE CALL TGRIO(NUMTRC)

CALL TITLE WRITE(6, 2040)

CALL ICLB(O)

KXXXXKXXKXX CHECK TIMERS XXXXXXXIXXX

CALL TIMINT(JJ)

CALL TIME(SL0C2)

INTIME-KK-JJ

WRITE(G, 1085) ILOC,IL0C2,INTIME

XXXXXXX RETRIEVE VOLSER XXXXXXXI

CALL DOCK(DDNAME, IFG, IVOL, IDEN)

WRITE(G. 1095) IVOL

ST O?

STOP

5000 WRITE(6, 2000)

STOP

1000 FORMAT(10X, 2F10.3.415. SX, A2)

1010 FORMAT (16X, A4, GX. A4, 6X, A4, F10.2)

1050 FORMAT (40X, 'FEATURE', 3X, 4A2, /40X, *LINE',10X, 3A4, /, 40X, 'RUN *’,SX,I

*2,///)

1055 FORMAT (40X. 'TPI*. Fll .3,/, 40X. 'IPS’, Fll .3,/. 40X, 'FIRST COP', IS,/, 40

IX, 'LAST CDP ',15, /.40X, 'START TIME',14,/, 40X,'END TIME ',I4,/,40X

X, 'PLOT DIR ', A4,/.40X,'PC CODE *,A2)

10S0 FORMAT(///,35X,' XXX TRACES PROCESSED XIX’,///)

1065 FORMAT(///,35X,’ XX* TRACE PROCESSING COMPLETED **!'.//////)

1075 FORMAT(1H1, ///,lOO('t’), /////, 35X, 'THIS IS THE VARIABLE AMPLITUDE «PLOTTING PACKAGE FOR SPS',////, 35X.'FOR PROBLEMS CALL CLIFF SHOCK «AT X-4553*,/////////)

1080 FORMAT(35X, ’ XXX INPUT PARAMETERS XXXXX',///)

1085 FORMAT (//, 35X, ' START TIME *, 2A4, //, 3SX, 'END TIME. 2A4,

*//,36X,'CPU IN SECONDS’, 110,//)

1090 FORMAT(/////////, 35X,' XXSIXXXXX THIS IS END OF JOB XXXXIXXXX') 1095 FORMAT(35X, * OUTPUT VOLUME X* ’,3A2,' FILE «2 XX’)

2000 FORMAT(35X, '**9SCf PROGRAM TERMINATED DUE TO CRITICAL ERROR XtS*’) 2040 FORMAT(3SX,' XXX» OUTPUT INFORMATION ItXX ',/////)

3004 FORMAT (25X,'IXXX CDP',14,’ WITH ',14,' SAMPLES IS SUCCESSFULLY PRO ICESSED XXXXX’)

STOP

END

SUBROUTINE APPLE

COMMON /CTRL/NX, NY, NTP.EC, DELT, NT, TPI, SPI, NREC, SCALE, LINC, ZMAX COMMON /PARM/XORGIN, YORGIN,IORGIN,PLOTX, PLOTY,XINC, YINC, SIZE, SIZE1 COMMON /CTRL3/I0P, I0PT1.I0PT2,10PT3,10PT4,10PT5 C0MM0N/CTRL4/ICDPS, ICOPE, ITST, ITEO, NSAMP, ICDPN

8