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

a little new feature

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: 835
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 678a5e77
c this is <gremlin.f>
c------------------------------------------------------------------------------
c $Id: gremlin.f,v 1.19 2002-05-07 17:02:31 forbrig Exp $
c $Id: gremlin.f,v 1.20 2002-05-07 17:36:12 forbrig Exp $
c
c 05/12/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -602,6 +602,10 @@ c
else
print *,'calculation of reference synthetics failed'
endif
elseif (arg(1:5).eq.'qgpd ') then
read(arg(6:80), *, err=98, end=98) ival
call pgpage
call pg_gpart(0, ival)
elseif (arg(1:4).eq.'gpd ') then
read(arg(5:80), *, err=98, end=98) ival
if (dat_cref()) then
......@@ -629,6 +633,10 @@ c
else
print *,'calculation of reference synthetics failed'
endif
elseif (arg(1:5).eq.'qtpd ') then
read(arg(6:80), *, err=98, end=98) ival
call pgpage
call pg_tpart(0, ival)
elseif (arg(1:4).eq.'tpd ') then
read(arg(5:80), *, err=98, end=98) ival
if (dat_cref()) then
......
c this is <gremlin_help.f>
c------------------------------------------------------------------------------
c $Id: gremlin_help.f,v 1.7 2002-05-07 17:02:31 forbrig Exp $
c $Id: gremlin_help.f,v 1.8 2002-05-07 17:36:13 forbrig Exp $
c
c 25/03/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -103,8 +103,10 @@ c
print *,' '
print *,' parder rate partial derivatives'
print *,' tpd ival plot travel time partial derivatives for parameter ival'
print *,' qtpd ival like tpd, but take existing values'
print *,' tpda plot travel time partial derivatives for all parameters'
print *,' gpd ival plot green partial derivatives for parameter ival'
print *,' qgpd ival like gpd, but take existing values'
print *,' gpda plot green partial derivatives for all parameters'
print *,' wgpd name write green partial derivatives to files with'
print *,' base ''name'' '
......
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