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

reference to paper

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: 1650
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 23c7ebbd
c this is <modrecipes.f>
c ----------------------------------------------------------------------------
c ($Id: modrecipes.f,v 1.2 2003-02-11 18:54:23 forbrig Exp $)
c ($Id: modrecipes.f,v 1.3 2005-03-09 10:46:40 tforb Exp $)
c
c Copyright (c) 2003 by Thomas Forbriger (IMG Frankfurt)
c
......@@ -19,7 +19,7 @@ c
& 'conversion between different recipes for model definitions')
character*(*) MODRECIPES_CVS_ID
parameter(MODRECIPES_CVS_ID=
& '$Id: modrecipes.f,v 1.2 2003-02-11 18:54:23 forbrig Exp $')
& '$Id: modrecipes.f,v 1.3 2005-03-09 10:46:40 tforb Exp $')
c
c model parameters
integer n, ms
......@@ -81,7 +81,7 @@ c
print *,'-r file write relative variation of parameters'
print *,' in % to ''file'' '
print *,' '
print *,'our recipe'
print *,'our recipe (recipe I in F&F 2005)'
print *,'----------'
print *,' '
print *,' c=v*sqrt(1+i/Q)'
......@@ -92,25 +92,25 @@ c
print *,' Q: tabulated quality for velocity'
print *,' i: imaginary unit'
print *,' '
print *,'recipe A:'
print *,'recipe A: (recipe V in F&F 2005)'
print *,'---------'
print *,'(tabulated velocity is modulus of c)'
print *,' '
print *,' c=v*exp(i*atan(1/Q)/2.)'
print *,' '
print *,'recipe B:'
print *,'recipe B: (recipe III in F&F 2005)'
print *,'---------'
print *,'(tabulated velocity is real part of c)'
print *,' '
print *,' c=v*(1+i/(2*Q))'
print *,' '
print *,'recipe C:'
print *,'recipe C: (recipe IV in F&F 2005)'
print *,'---------'
print *,'(tabulated velocity is phase velocity of plane wave)'
print *,' '
print *,' c=v*cos(atan(1/Q)/2)*exp(i*atan(1/Q)/2)'
print *,' '
print *,'recipe D:'
print *,'recipe D: (recipe II in F&F 2005)'
print *,'---------'
print *,'(tabulated velocity is real part of complex velocity)'
print *,' '
......
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