Program: MKLSFXDGETPHASE
mklsfxdgetphase.......find index of phase with given indentifier in FXD
call: phaseindex=mklsfxdgetphase(fxd,phase);
fxd: (strcuture array)
FXD structure containing a single station description
phase: (string)
Seismic Phase name string
result: phaseindex: (number)
index of the phase with name PHASE within the FXD
structure.
If no such phase exists, PHASEINDEX is empty.
This routine searches only for phase names wihtin a single element of an
FXD array! Be sure that size(fxd) is 1-by-1!
Martin Knapmeyer, 04.02.2005
Read M-File Source Code
eof.