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

scaled to appropriate dimensions

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: 523
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 7a4503ae
c this is <hamres.f>
c------------------------------------------------------------------------------
c ($Id: hamres.f,v 1.4 2001-10-26 08:58:39 forbrig Exp $)
c ($Id: hamres.f,v 1.5 2001-10-26 09:07:20 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.4 2001-10-26 08:58:39 forbrig Exp $')
parameter(HAMRES_CVS_ID='$Id: hamres.f,v 1.5 2001-10-26 09:07:20 forbrig Exp $')
c
c commandline
integer maxopt, lastarg, iargc
......@@ -48,8 +48,8 @@ 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-,4h112.,4h2.e5,4h1.e6,4h2.e3,3h30.,3*1h-,
& 2h1.,2h12,5h2.e-4/
data optarg/3*1h-,4h112.,4h5.e6,4h2.e7,4h2.e4,3h30.,3*1h-,
& 2h1.,1h9,5h2.e-4/
c
c------------------------------------------------------------------------------
c basic information
......@@ -140,13 +140,13 @@ c
df=1.d0/(dt*float(nsamples))
if (verbose) then
print 50,'spring D1 modulus: ',d1,'N/m'
print 52,'spring D1 modulus: ',d1,'N/m'
if (nod2) then
print 51,'spring 1/D2 modulus: ','infinity'
else
print 50,'spring D2 modulus: ',d2,'m/N'
print 52,'spring D2 modulus: ',d2,'m/N'
endif
print 50,'dashpot e modulus: ',e,'Ns/m'
print 52,'dashpot e modulus: ',e,'Ns/m'
print 50,'mass m: ',m,'kg'
print 50,'stress relaxation time:',e*ood2,'s'
if (nod1) then
......@@ -228,6 +228,7 @@ c extract time series
stop
50 format(a30,1x,f12.3,1x,a)
51 format(a30,1x,a)
52 format(a30,1x,g12.3,1x,a)
end
c
c ----- END OF hamres.f -----
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