write1segy: Write One segy/sac file

In RSEIS: Seismic Time Series Analysis Tools

Write One segy/sac file

Description

Write out one segy binary format file.

Usage

write1segy(alist, fn = NULL, BIGLONG = FALSE)
write1sac(alist, fn = NULL, BIGLONG = FALSE)

Arguments

alist	list of traces with segy/sac header and an integer/real format time series
fn	Output file name
BIGLONG	logical, indicating whether long is 8 or 4 bytes.

Details

Segy format files are in integer format. The time series ususally represents counts recorded in a data acquisition system. The header includes meta-data and other identifying information.

Value

Side effects in the file system.

Note

The Endian-ness of the output file will be the native endian-ness of the system.

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

rseis2segy, read1sac, read1segy

Examples

## Not run: 
 theENDIAN =  .Platform$endian
BIGLONG = FALSE
###  write1segy is in rseis2segy
data(KH)
apath = tempdir()
J = rseis2segy(KH, sel=1, path=apath, BIGLONG=BIGLONG )
L = list.files(path=J, full.names=TRUE)

Z = read1segy(L[1], Iendian = theENDIAN, HEADONLY = FALSE, BIGLONG = BIGLONG)
plot(Z$amp, type='l')

##########   same with SAC files:
J =  rseis2sac(KH, sel = 1, win = c(0, 1), path = apath, BIGLONG = BIGLONG)
L = list.files(path=J, pattern='.SAC', full.names=TRUE)

Z = read1sac(L[1], Iendian = theENDIAN, HEADONLY = FALSE, BIGLONG = BIGLONG)

plot(Z$amp, type='l')


## End(Not run)

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.