Commit c27df46c authored by thomas.forbriger's avatar thomas.forbriger
Browse files

[WP][TASK] (refract): add option variable -TR

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.
parent 04b6e44e
......@@ -23,7 +23,7 @@ c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 17/03/98 V1.0 Thomas Forbriger
c 17/03/98 V1.0 Thomas Forbriger (thof)
c 24/05/00 V1.1 activated
c 29/07/00 V1.2 introduced opt_Tannotate
c 26/11/10 V1.3 support additional file formats
......@@ -33,6 +33,7 @@ c 24/10/2013 V1.5 - added ordinate switch
c - added parameters to refer scaling mode 3 amplitude to
c an offset range
c 18/11/2013 V1.6 added option -TF
c 21/03/2014 thof: add option -TR
c
c==============================================================================
c
......@@ -42,6 +43,7 @@ c titles, labels, legends
character*120 opt_Tylabel
character*120 opt_Tannotate
logical opt_Tmode, opt_Tlegend, opt_Tmodel, opt_Tfilename
logical opt_Treverselegend
real opt_Tscale, opt_Tmodx, opt_Tmodt
c
c line and color options
......@@ -86,6 +88,7 @@ c common blocks
& opt_Ebubble, opt_Epicks, opt_Ewave, opt_Ett,
& opt_ECpicks, opt_ECwave, opt_ECtt, opt_Sinv,
& opt_Savg, opt_Sxrange, opt_Strange, opt_Sreduce,
& opt_Sosnoreduce, opt_Savgref, opt_Tfilename
& opt_Sosnoreduce, opt_Savgref, opt_Tfilename,
& opt_Treverselegend
c
c ----- END OF refract_opt.inc -----
......@@ -39,6 +39,7 @@ c 20/11/2012 V1.11 new option -Eu
c 24/10/2013 V1.12 - new option -So
c - new option -S3
c 18/11/2013 V1.13 new option -TF
c 21/03/2104 thof: new option -TR
c
c==============================================================================
c
......@@ -68,7 +69,7 @@ c CVS Id
& '$Id$')
c commandline
integer maxopt
parameter(maxopt=67)
parameter(maxopt=68)
character*3 optid(maxopt)
character*120 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
......@@ -90,6 +91,9 @@ c titles, labels, legends
data optid(67) /'-TF'/
data opthasarg(67) /.FALSE./
data optarg(67) /'-'/
data optid(68) /'-TR'/
data opthasarg(68) /.FALSE./
data optarg(68) /'-'/
c line options and color options
data (optid(i), i=23,30) /'-Lw','-Lc','-Lm','-Cb','-Cf',
& '-CW','-Cc','-Cm'/
......@@ -255,6 +259,7 @@ c titles, label, legends
if (pg_nam_maxlines.lt.1)
& stop 'ERROR: at least one line must be provided for file names'
opt_Tfilename=optset(67)
opt_Treverselegend=optset(68)
c
c override traditional options
c ============================
......
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