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

new program

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: 1720
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 66a73d00
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.1 2005-06-06 15:01:34 tforb Exp $
#
# Copyright (c) 2005 by Thomas Forbriger (BFO Schiltach)
#
# noise conversion programs
#
# REVISIONS and CHANGES
# 06/06/2005 V1.0 Thomas Forbriger
#
# ============================================================================
#
all:
flist: Makefile $(wildcard *.f *.c)
echo $^ | tr ' ' '\n' | sort > $@
.PHONY: edit
edit: flist; vim $<
.PHONY: clean
clean: ;
-find . -name \*.bak | xargs --no-run-if-empty /bin/rm -v
-/bin/rm -vf flist
F2CLIB=-lf2c -lm -L${SERVERLIBDIR}
PGPLOTLIB=-lf2cpgplot52 -lX11 -L/usr/X11/lib
CC=gcc
CFLAGS=-O2
F2CFLAGS=-f -u
FC=g77
FLAGS=
CXXFLAGS=-fhonor-std -Wall $(FLAGS)
CXXFLAGS=-Wall $(FLAGS)
LDFLAGS=-L$(LOCLIBDIR)
CPPFLAGS=-I$(LOCINCLUDEDIR) $(FLAGS)
.f.o:
f2c $(F2CFLAGS) $<
gcc $(CFLAGS) $(<:.f=.c) -c -I${SERVERINCLUDEDIR} -I${LOCINCLUDEDIR}
@rm $(<:.f=.c)
%.o77: %.f; $(FC) -o $@ -c $<
nlnmtab: %: %.o77
$(FC) -o $@ $< -ltf77 -L$(LOCLIBDIR)
newprog $@
# ----- END OF Makefile -----
c this is <nlnmtab.f>
c ----------------------------------------------------------------------------
c ($Id: nlnmtab.f,v 1.1 2005-06-06 15:01:35 tforb Exp $)
c
c Copyright (c) 2005 by Thomas Forbriger (BFO Schiltach)
c
c write table of NLNM values
c
c REVISIONS and CHANGES
c 06/06/2005 V1.0 Thomas Forbriger
c
c ============================================================================
c
program nlnmtab
c
character*(*) version
parameter(version=
& 'NLNMTAB V1.0 write table of NLNM values')
character*(*) NLNMTAB_CVS_ID
parameter(NLNMTAB_CVS_ID=
& '$Id: nlnmtab.f,v 1.1 2005-06-06 15:01:35 tforb Exp $')
c
c commandline
integer maxopt, lastarg, iargc
character*80 argument
parameter(maxopt=2)
character*2 optid(maxopt)
character*40 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
c debugging
logical debug, verbose
c here are the keys to our commandline options
data optid/2h-d, 2h-v/
data opthasarg/2*.FALSE./
data optarg/2*1h-/
c
c------------------------------------------------------------------------------
c basic information
c
c
argument=' '
if (iargc().eq.1) call getarg(1, argument)
if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then
print *,version
print *,'Usage: nlnmtab arguments'
print *,' or: nlnmtab -help'
if (argument(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
print *,'j'
print *,' '
print *,NLNMTAB_CVS_ID
stop
endif
c
c------------------------------------------------------------------------------
c read command line arguments
c
call tf_cmdline(1, lastarg, maxopt, optid,
& optarg, optset, opthasarg)
debug=optset(1)
verbose=optset(2)
c
c------------------------------------------------------------------------------
c go
c
stop
end
c
c
c ----- END OF nlnmtab.f -----
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