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


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:
SVN Revision: 520
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent c92fc0a1
c this is <hamres.f>
c ($Id: hamres.f,v 1.1 2001-10-25 22:02:03 forbrig Exp $)
c ($Id: hamres.f,v 1.2 2001-10-26 08:54:22 forbrig Exp $)
c 25/10/2001 by Thomas Forbriger (IMGF Frankfurt)
......@@ -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.1 2001-10-25 22:02:03 forbrig Exp $')
parameter(HAMRES_CVS_ID='$Id: hamres.f,v 1.2 2001-10-26 08:54:22 forbrig Exp $')
c commandline
integer maxopt, lastarg, iargc
......@@ -48,7 +48,7 @@ c here are the keys to our commandline options
data optid/2h-d, 2h-v, 2h-o, 2h-I, 3h-D1, 3h-D2, 2h-e, 2h-m,
& 4h-nD1, 4h-nD2, 3h-ne, 2h-T, 2h-n, 2h-d/
data opthasarg/3*.FALSE.,5*.TRUE.,3*.FALSE.,3*.TRUE./
data optarg/3*1h-,3h56.,4h2.e5,4h1.e6,4h2.e3,3h30.,3*1h-,
data optarg/3*1h-,4h112.,4h2.e5,4h1.e6,4h2.e3,3h30.,3*1h-,
& 2h1.,2h12,5h.0002/
......@@ -79,6 +79,9 @@ c
print *,'-v be verbose'
print *,'-I I impulse transfer in Ns'
print *,' (default value is ',optarg(4)(1:4),'Ns)'
print *,' A value of 112Ns is appropriate for a'
print *,' free falling 8kg sledge-hammer from a hight'
print *,' of 2.5m and purely elastic impulse transfer.'
print *,'-D1 D1 modulus of parallel spring D1 in N/m'
print *,' (default value is ',optarg(5)(1:4),'N/m)'
print *,'-D2 D2 modulus of serial spring D2 in N/m'
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