Commit 85da72d6 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

tell about open file and chapter sectioning in tf_inforc

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: 29
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent b9aea868
......@@ -2,7 +2,7 @@ c this is <tf_readrc.f>
c------------------------------------------------------------------------------
cS
c
c $Header: /home/tforb/svnbuild/cvssource/CVS/thof/src/libs/libtf/tf_readrc.f,v 1.3 2000-02-12 00:13:40 thof Exp $
c $Header: /home/tforb/svnbuild/cvssource/CVS/thof/src/libs/libtf/tf_readrc.f,v 1.4 2000-02-12 18:49:30 thof Exp $
c
c 06/02/00 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -14,17 +14,8 @@ c
c REVISIONS and CHANGES
c 06/02/00 V1.0 Thomas Forbriger
c 10/02/00 V1.1 added include command
c
c $Log: not supported by cvs2svn $
c Revision 1.2 2000/02/10 12:48:40 thof
c added include features to tf_readrc toolbox
c
c Revision 1.1.1.1 2000/02/09 10:10:03 thof
c Aufnahme aller Quelltexte in CVS
c
c Revision 1.1 2000/02/06 21:45:18 thof
c added tf_readrc.f
c
c 11/02/00 V1.2 added error verbosity
c 12/02/00 V1.3 added chapter output to tf_inforc
c
c==============================================================================
c
......@@ -92,7 +83,7 @@ c declare local variables
character*(maxlen) line, thischapter
save lu, lumin, lumax, ndelim, delim, thischapter, chlen
save inchapter, checkchapters
parameter (tf_readrc_id='$Id: tf_readrc.f,v 1.3 2000-02-12 00:13:40 thof Exp $')
parameter (tf_readrc_id='$Id: tf_readrc.f,v 1.4 2000-02-12 18:49:30 thof Exp $')
data lu, lumin, lumax /-2,-1,-1/
c data (delim(i:i),i=1,maxdelim) /maxdelim*1h /
data delim /1h /
......@@ -417,6 +408,7 @@ c
entry tf_inforc
c
c report revision Id and maximum length of input line
c report whether file is open and report chapter
c
cE
print *,'tf_readrc-tools:'
......@@ -424,6 +416,14 @@ cE
print *,'maximum length of input line: ',maxlen
print *,'maximum length of delimting sequence: ',len(delim)
print *,'current delimiter: "',delim(1:ndelim),'"'
if (lu.ge.lumin) then
print *,'rc-file is open'
if (checkchapters) then
print *,'working on chapter [',thischapter(1:chlen),']'
else
print *,'no chapter sectioning - full file is read'
endif
endif
return
c
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