RSEIS (version 4.2-4)

distseisnXY: Distances from an RSEIS list

Description

Calculate euclidian distances from an RSEIS seismic data list, stations and event location.

Usage

distseisnXY(GH, sta=list(nam="", x=0 , y=0 , z=0) , LOC=list(x=0, y=0 , z=0))

Value

d

vector of distances in km, matching the stations in the RSEIS list.

Arguments

GH

Rseis list structure

sta

station list(x,y,z)

LOC

location list(x,y,z)

Author

Jonathan M. Lees<[e-mail]>

Examples

data(GH)
###   assume the lat lon in GH are x, y (projected)

staxy <-  list(nam=GH$stafile$name, x=GH$stafile$lon,
               y=GH$stafile$lat, z=GH$stafile$z)
 LOC <- list(x=GH$pickfile$LOC$lon, y=GH$pickfile$LOC$lat,
             z=GH$pickfile$LOC$z)
distseisnXY(GH, sta =staxy, LOC = LOC)