data(GH)
theENDIAN =.Platform$endian
apath = tempdir()
J = rseis2segy(GH, sel=1:5,  path=apath , BIGLONG=FALSE )
Lname  <-  list.files(path=J , pattern='SEGY', full.names=TRUE)
zed = read1segy(Lname[1], Iendian = theENDIAN,
     HEADONLY = FALSE, BIGLONG = FALSE)
Run the code above in your browser using DataLab