use su_io call init_su(sudata su, int ns) call init_su(sudata suarr(ntrace), int ns, int ntrace) call final_su(sudata su) call final_su(sudata suarr(ntrace), int ntrace) call from_su(int un, int irec, sudata su) call from_su(character filename, sudata su) call from_su(character filename, sudata suarr(ntrace), int ntrace) call to_su(int un, int irec, sudata su) call to_su(character filename, sudata su) call to_su(character filename, sudata suarr(ntrace), int ntrace) call bin_from_su(character filename, real arr(n1,n2), int n1, int n2) read traces of su file to a real array call bin_to_su(character filename, real arr(n1,n2), int n1, int n2, real d1, real d2, real f1, real f2) call from_su_header(int un, int irec, sudata su)real array to su file optional: d1, d2, f1, f2 call assign_su(sudata SU & ,int tracl, tracr, fldr, tracf, ep, cdp, cdpt &! 28 ,int*2 trid, nvs, nhs, duse &! 28+8=36 ,int offset, gelev, selev, sdepth, gdel, sdel, swdep, gwdep &! 36+32=68 ,int*2 scalel, scalco &! 68+4=72 ,int sx,sy,gx,gy &! 72+16=88 ,int*2 counit, wevel, swevel, sut, gut, sstat, gstat, tstat, laga, lagb &! 88+20=108 ,int*2 delrt, muts, mute, ns, dt, gain, igc, igi &! 108+16=124 ,int*2 corr, sfs, sfe, slen, styp, stas, stae, tatyp &! 124+16=140 ,int*2 afilf, afils, nofilf, nofils, lcf, hcf, lcs, hcs &! 140+16=156 ,int*2 year, day, hour, minute, sec, timbas &! 156+12=168 ,int*2 trwf, grnors, grnofr, grnlof, gaps, otrav &! 168+12=180 ,int d1, f1, d2, f2, ungpow, unscale &! 180+24=204 ,int ntr &! 204 + 4 = 208 ,int*2 mark, shortpad &! 208+4=212 ,int*2 unass(14) &! 212+28=240 ,real trace(ns) & ) every parameter but SU is optional |