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

new compatible with C++ version of library

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: 1438
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 9024b0bd
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.4 2003-12-23 15:39:49 tforb Exp $
# $Id: Makefile,v 1.5 2003-12-30 17:22:17 tforb Exp $
#
# Copyright (c) 2003 by Thomas Forbriger (BFO Schiltach)
#
......@@ -12,7 +12,9 @@
# ============================================================================
#
all:
LIBS=libsff.a libsff77.a
all: doc $(LIBS)
newlib $(LIBS)
flist: Makefile $(wildcard *.f *c)
echo $^ | tr ' ' '\n' | sort > $@
......
......@@ -65,6 +65,7 @@ c coordinate format specification and the
c stack data field and coordinate field format
c V1.10 23/12/03 T.F. allow for nchar=-1 in DAST line
c this is needed for C++-written files
c 28/12/03 T.F. allow for nchar=-1 in SkipData too
c
cB
c======================================================================
......@@ -2290,8 +2291,8 @@ c read DAT2 block
c The C++ library cannot know the number of characters when writing the DAST
c line and will write '-1'. Thus we allow for a sloppy mode here.
if (nchar.eq.-1) then
nchar=0
do while(cbuf(nchar+1).ne.' ')
nchar=(iline-1)*80
do while((cbuf(nchar+1).ne.' ').and.(nchar.lt.(iline*80)))
nchar=nchar+1
enddo
else
......@@ -2611,10 +2612,15 @@ cE
endif
read(lu,'(1x)',err=102)
read(lu,'(1x)',err=102)
numline = nchar/80
do 10 i=1,numline
10 read(lu,'(1x)', err=102)
read(lu,'(1x)', err=102)
if (nchar.ne.(-1)) then
numline = nchar/80
do 10 i=1,numline
10 read(lu,'(1x)', err=102)
read(lu,'(1x)', err=102)
else
11 read(lu, '(a5)') dast
if (dast.ne.'CHK2 ') goto 11
endif
i=1
101 if(code(i:i).ne.' ') then
if(code(i:i).eq.'F') call sff_SkipFree(lu,ierr)
......
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