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

user preexisting partials

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: 823
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 44948c5f
c this is <gremlin.f>
c------------------------------------------------------------------------------
c $Id: gremlin.f,v 1.14 2002-05-06 13:19:45 forbrig Exp $
c $Id: gremlin.f,v 1.15 2002-05-06 14:49:17 forbrig Exp $
c
c 05/12/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -79,7 +79,8 @@ c mod_showparcor
c 02/06/00 V4.12 added mweight condition in res_opt
c 19/04/02 V4.13 support square error ense-test by command swense
c 03/05/02 V4.13b only test selected parameters in resolution analysis
c 06/05/02 V4.13c allow for sqr and rms scaling in sense and ense
c 06/05/02 V4.13c - allow for sqr and rms scaling in sense and ense
c - allow to use preexisting partial derivatives
c
c==============================================================================
c
......@@ -488,6 +489,20 @@ c
c
if (arg(1:7).eq.'parder ') then
call res_part
elseif (arg(1:6).eq.'qsense ') then
read(arg(7:80), *, err=98, end=98) ival,ival2,rval,rval2
call pg_sresmod(ival, ival2, rval, rval2, .true.)
elseif (arg(1:6).eq.'qssense ') then
read(arg(7:80), *, err=98, end=98) ival,ival2,rval,rval2
call pg_sresmod(ival, ival2, rval, rval2, .false.)
elseif (arg(1:5).eq.'qsqense ') then
read(arg(6:80), *, err=98, end=98) ival,ival2,rval,rval2
call pgpage
call pg_resmod(ival, ival2, rval, rval2,.false.)
elseif (arg(1:5).eq.'qense ') then
read(arg(6:80), *, err=98, end=98) ival,ival2,rval,rval2
call pgpage
call pg_resmod(ival, ival2, rval, rval2,.true.)
elseif (arg(1:6).eq.'sense ') then
read(arg(7:80), *, err=98, end=98) ival,ival2,rval,rval2
if (inv_mat()) then
......
c this is <gremlin_help.f>
c------------------------------------------------------------------------------
c $Id: gremlin_help.f,v 1.4 2002-05-06 13:17:05 forbrig Exp $
c $Id: gremlin_help.f,v 1.5 2002-05-06 14:49:17 forbrig Exp $
c
c 25/03/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -123,6 +123,10 @@ c
print *,' sqense f,t,nu,err'
print *,' just like ''ense'' but in misfit,'
print *,' not in rms mode'
print *,' qense, qsense, qssense, qsqense'
print *,' these are versions of ''ense'','
print *,' ''sense'', ''ssense'', and ''sqense'' '
print *,' that use preexisting partial derivatives'
call gremhelp_subtit('tests')
print *,' orth calculate scalar products and normalized scalar'
print *,' products of vectors of partial derivatives'
......
Markdown is supported
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