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

provide free lines of variable length

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: 3878
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 20b1470c
......@@ -665,7 +665,7 @@ c output:
c ierr error status (ok: ierr=0)
c
integer lu, ierr, nline
character filename*(*), lines(nline)*80
character*(*) filename, lines(nline)
cE
character code*10
c
......@@ -739,7 +739,7 @@ c
character filename*(*), type*(*), cs*1
real c1, c2, c3
character time*(*), date*(*)
character lines(nline)*80
character*(*) lines(nline)
cE
character code*10
c
......@@ -1090,7 +1090,8 @@ c
integer lu, nsamp, idata(nsamp), nline
real fdata(nsamp)
logical last
character wid2line*132, lines(nline)*80
character wid2line*132
character*(*) lines(nline)
cE
character code*(10)
real ampfac
......@@ -1200,7 +1201,8 @@ c
integer lu, nsamp, idata(nsamp), nline, nstack
real fdata(nsamp), c1, c2, c3
logical last
character wid2line*132, lines(nline)*80, cs*1
character wid2line*132, cs*1
character lines(nline)*(*)
cE
character code*(10)
real ampfac
......@@ -2011,7 +2013,7 @@ c A free block consists of the word 'FREE ' followed by an arbitrary number
c of lines with text of max 80 chars and a final line with the word FREE
c
integer lu, nline
character lines(nline)*80
character*(*) lines(nline)
cE
integer i
c
......
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