RSEIS (version 3.0-9)

write1sac: Write one SAC file to disk.

Description

Write one time series trace to a disk. The time series must have header information available.

Usage

write1sac(a1, BIGLONG = FALSE, fn = NULL)

Arguments

a1

BIGLONG

logical, TRUE=long=8 bytes

fn

character, output file name (if null, program will generate file name from date-time

Value

• Side effects, writes file on disk

Details

Creates a binary SAC format file on disk for sharing and transfer. The header information for the SAC file is fairly limited.

References

http://www.iris.edu/software/sac/manual/file_format.html

See Also

JSAC.seis, rseis2sac

Examples

data(GH)
theENDIAN =  .Platform$endian
    for(i in 1:length(GH$dt))
      {
       
        
        fn = "GH"
        thesta = GH$STNS[i]
        thecomp = GH$COMPS[i]
        dt = GH$dt[i]
        
        tstart = list(yr=GH$info$yr[i]  ,
          jd=GH$info$jd[i]  ,
          mo=GH$info$mo[i]  ,
          dom=GH$info$dom[i]  ,
          hr=GH$info$hr[i]  ,
          mi=GH$info$mi[i]  ,
          sec=GH$info$sec[i]  ,
          msec=GH$info$msec[i]  ,
          dt=GH$info$dt[i]  ,
          t1=GH$info$t1[i]  ,
          t2=GH$info$t2[i]  ,
          off=GH$info$off[i]  
          )
        N = GH$info$n[i]

        sig = GH$JSTR[[i]]
        
        a1 = list(fn=fn, sta=thesta,  comp=thecomp, dt=dt, DATTIM=tstart,
          N=N, units=aunits , amp=sig , IO=list(kind=2, Iendian=theENDIAN,  BIGLONG=BIGLONG))
        write1sac(a1, BIGLONG=FALSE  , fn=NULL)
      }