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

improved filename verbosity

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: 1071
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 49918f2b
c this is <fortranF77.f>
c ----------------------------------------------------------------------------
c ($Id: fortranF77.f,v 1.4 2002-11-20 14:57:51 forbrig Exp $)
c ($Id: fortranF77.f,v 1.5 2002-11-20 15:02:34 forbrig Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
......@@ -19,7 +19,7 @@ c
& 'FORTRANF77 V1.0 Fortran I/O test routines')
character*(*) FORTRANF77_CVS_ID
parameter(FORTRANF77_CVS_ID=
& '$Id: fortranF77.f,v 1.4 2002-11-20 14:57:51 forbrig Exp $')
& '$Id: fortranF77.f,v 1.5 2002-11-20 15:02:34 forbrig Exp $')
c
c
logical optread,optwrite
......@@ -106,6 +106,9 @@ c go
endif
c
if (optread) then
if (verbose) then
print *,'reading from ',filename(1:index(filename,' ')-1)
endif
open(lu, file=filename, form='unformatted',
& status='old', err=96)
read(lu, err=95, end=94) inmagic
......@@ -137,6 +140,9 @@ c
print *, 'extra:', llint,lint,dcplx,scplx
close(lu, err=97)
else
if (verbose) then
print *,'writing to ',filename(1:index(filename,' ')-1)
endif
open(lu, file=filename, form='unformatted', err=99)
call tf_magic(cmagic, imagic)
print *,'writing magic number: ''',cmagic,', ',imagic,''''
......
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