From gmasters@ucsd.edu Fri Feb 24 11:49:11 2006
X-UIDL: W@b!![e\"!555!!4In!!
Mime-Version: 1.0 (Apple Message framework v623)
To: Michael Ritzwoller <ritzwoll@merckx.colorado.edu>
From: guy masters <gmasters@ucsd.edu>
Subject: greens function code
Date: Fri, 24 Feb 2006 10:49:05 -0800
X-Greylisting: NO DELAY (Trusted relay host);
	processed by UCSD_GL-v2.1 on mailbox8.ucsd.edu;
	Fri, 24 February 2006 10:49:06 -0800 (PST)
X-MailScanner: PASSED (v1.2.8 37013 k1OIn6Qh066180 mailbox8.ucsd.edu)

Hi Mike,

    In anticipation of your phone call, I am appending some code

green.f is of course the greens function code -- it reads in a time 
series
and outputs the time series and another series which is the 6 
concatenated greens functions

it loops through all time series for an event and can handle 3 
component data
(though it is currently specialized to VH data) and can handle 
nonorthogonal
horizontal components

it reads eigenfunction files which have been processed from the output 
of minos
with program eigcon.f (which I haven't used for a very long time so it 
may need
some tweaking

syndat makes synthetics from the greens functions and you can input 
your own
solutions or it reads a master cmt file (locale.cmt.big). This file has 
only events
bigger than 1e19 Nm but I have a file which has all the cmts in

you need some fftsubs which I have included



What I haven't included is all the instrument response stuff though I 
have included
the code that looks up the tables of responses

let me know how it goes -- you may also need some code to filter data 
and greens functions
in identical fashion which i can provide if necessary

Guy