Commit fd0b0e43 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

Massen

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 521
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 739f9dcc
c this is <hamres.f>
c------------------------------------------------------------------------------
c ($Id: hamres.f,v 1.2 2001-10-26 08:54:22 forbrig Exp $)
c ($Id: hamres.f,v 1.3 2001-10-26 08:57:06 forbrig Exp $)
c
c 25/10/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -16,7 +16,7 @@ c
character*(*) version
parameter(version='HAMRES V1.0 HAMmer RESponse')
character*(*) HAMRES_CVS_ID
parameter(HAMRES_CVS_ID='$Id: hamres.f,v 1.2 2001-10-26 08:54:22 forbrig Exp $')
parameter(HAMRES_CVS_ID='$Id: hamres.f,v 1.3 2001-10-26 08:57:06 forbrig Exp $')
c
c commandline
integer maxopt, lastarg, iargc
......@@ -90,6 +90,9 @@ c
print *,' (default value is ',optarg(7)(1:4),'Ns/m)'
print *,'-m m mass in kg'
print *,' (default value is ',optarg(8)(1:4),'kg)'
print *,' A mass of 30kg is that of a box of 30cm x'
print *,' 30cm x 20cm filled with a material of'
print *,' 1.8 g/ccm mass dnesity.'
print *,'-T T duration of exciting force pulse in s'
print *,' (default value is delta pulse)'
print *,'-n n set number of sample to 2**n'
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment