Hello sismos/Angel;

If you send me the fortran i would be happy to convert it to
powerbasic and send the results back.
If I send you the EXE code power basic claims ownership
and you can not realize profit without consulting them first( i think).
But this will only be possible if I understand the source in the first place.
I am not unfamiliar with Fortran ( Formula Translation Code)
I have a Microsoft Fortran Compiler I purchased for compiling
the old USGS Travel time source code but I think it will
not run on this 64 bit machine under windows.
I'm not sure but I think the tables used by Winquake were
created using that same USGS Fortran source code I specifically purchased
the Fortran compiler to compile. For some reason the USGS
would not provide an EXE file and you had to
compile the source code yourself. I think most
federal employees are afraid of EXE files and their
hidden dangers. If they do not see it compiled personally
they will not run it. And they will not share it.
The compiled EXE code I mean.
Today I suspect the USGS has its own programmers that
can do anything they might want within Gvmnt circles.
Yet something like law or ?? prohibits them from sharing
what they produce.
Or you might see one of the best travel time tables models possible that
run within your own machine and be free to have ( taxpayer expense since
nothing is really free). At the moment the Theoretical stuff  they offer on their website
is the best thing going. It would be nice to have a 64 bit compiler
for the new machines but PowerBasic does not seem to do that yet.

Yes, by any means, please send me the source.

Best regards,
geoff



----- Original Message ----- 
From: "sismos" 
To: 
Sent: Saturday, April 10, 2010 10:07 AM
Subject: Re: Question to Techno-Philes


> Geoff,
> 
> It looks like you are on the right track.  The source code is in fortran
> and I can send it along if you want to play with it.
> 
> 60 db is a lot of gain but not too much for a 1 Hz geophone
> 
> how did you get to a recording media gain of 1023?
> 
> Angel
> 
> 
> 
> 
> On Sat, 2010-04-10 at 09:27 -0700, Geoffrey wrote:
>> Hello sismos/Angel;
>> 
>> here is first results which i need to play around with.
>> It (response) looks about as I thought it would except this is displacement
>> instead of velocity.
>> 
>> Thanks very much for the download and information.
>> 
>> This program is written like I used to write
>> in the old QBASIC interpreter which came free in MSDOS.
>> 
>> The FTP server did not want me to log on at first
>> but it did finally let me do so.
>> 
>> Do I understand displacement gain at 1Hz of 75 million ?
>> 
>> Best regards,
>> geoff
>> 
>> 
>> 
>> ********************************* BELOW **********************
>>   SENSOR TYPE: SEISMOMETER       RESPONSE: DISPLACEMENT   
>>   SEISMOMETER PERIOD=   1.000000    
>>   GENERATOR CONSTANT=   117.0000    
>>   DAMPING RATIO     =  0.7071000    
>>   AMPLIFIER GAIN(DB)=   60.00000    
>>   RECORDING GAIN=       1023.000    
>>   FILTER CONSTANTS
>>   F=  2.00   POLES=  6
>>   F=  0.14   POLES=  1
>>   F=  0.03   POLES= -2
>>   GAIN AT 1 HZ=        7.5269264E+07
>>  
> 
> __________________________________________________________
> 
> Public Seismic Network Mailing List (PSN-L)
> 
> To leave this list email PSN-L-REQUEST@.............. with 
> the body of the message (first line only): unsubscribe
> See http://www.seismicnet.com/maillist.html for more information.
>
__________________________________________________________

Public Seismic Network Mailing List (PSN-L)