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

do not use error output channel for non-error messages

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:
SVN Revision: 204
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent dc8f58b5
# ---------------------------------------
# $Id: Makefile,v 1.1 2000-05-30 08:43:21 thof Exp $
# $Id: Makefile,v 1.2 2000-06-24 12:21:15 thof Exp $
# Makefile fuer tools /src/ts/hd
......@@ -22,6 +22,10 @@ F2CFLAGS=-f -u
-/bin/rm *.o *.bak
chaco: %: %.o
$(CC) -o $@ $< $(LIBTF) $(LIBSFF) $(F2CLIB)
newprog $@
offli: %: %.o
$(CC) -o $@ $< $(LIBTF) -lsffu -ltime $(LIBSFF) $(F2CLIB)
newprog $@
......@@ -5,11 +5,12 @@ c an sff datafile
c 30/04/1997 Thomas Forbriger (IfG Stuttgart)
c 09/01/98 V1.1 set source type too
c 24/06/00 V1.2 don't use the error output channel for standard usage info
program chaco
character*79 version
parameter(version='CHACO V1.1 change coordinates')
parameter(version='CHACO V1.2 change coordinates')
integer maxsamp, maxfree
parameter(maxsamp=100000, maxfree=400)
......@@ -41,9 +42,9 @@ c======================================================================
c output usage
write(0, *) version
write(0, *) 'Usage: chaco infile outfile cofile c1,c2,c3 cs sourcetype'
write(0, *) 'or: chaco -help'
print *, version
print *, 'Usage: chaco infile outfile cofile c1,c2,c3 cs sourcetype'
print *, 'or: chaco -help'
if (iargc().eq.1) then
call getarg(1, arg)
if (arg(1:5).eq.'-help') then
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