#!/usr/bin/make 

# Execute this script to extract the examples from the MINPACK
# documentation
# (/usr/share/doc/minpack-dev/minpack-documentation.txt.gz) and
# compile and run them.  It also extracts the numerical results from
# the documentation and writes them to the file "documented".  You may
# compare those results with those printed by this script.

PGM= thybrd1 thybrd thybrj1 thybrj tlmder1 tlmder tlmstr1 tlmstr \
	tlmdif1 tlmdif tchkder
CPGM=$(patsubst t%,tc%,$(PGM))	# tchybrd1 ...
SRC=$(addsuffix .f,$(PGM))	# thybrd1.f ...
CSRC=$(addsuffix .c,$(PGM))	# thybrd1.c ...

all: ctest ftest documented

ctest: ${CPGM}
	echo "---  C driver programs  ---"
	for x in ${CPGM}; do echo $$x; ./$$x; done

ftest: ${PGM} 
	echo "---  FORTRAN driver programs  ---"
	for x in ${PGM}; do echo $$x; ./$$x; done

${SRC} documented: /usr/share/doc/minpack-dev/minpack-documentation.txt.gz
	rm -f documented
	zcat $< | awk  '						\
	/DRIVER FOR [A-Z1]+ EXAMPLE/{					\
	    pgm=tolower($$4);						\
	    oname="t" pgm ".f";						\
	    $$0 = substr($$0,3);					\
	    print >oname;						\
	    do {							\
		getline; $$0 = substr($$0,3);				\
		if (!/^ +Page$$/) print >>oname;			\
	    }								\
	    while (!/LAST CARD OF SUBROUTINE FCN/);			\
	    getline; $$0 = substr($$0,3); print >>oname;		\
	    getline; $$0 = substr($$0,3); print >>oname;		\
	}								\
	/may be slightly different/||/machine dependent/{		\
	    print pgm >>"documented";					\
	    while (getline) {						\
		$$0 = substr($$0,3);					\
		if (/Documentation/) break;				\
		if (!/^ +Page$$/ && !/^ *$$/) print >>"documented";	\
	    }								\
	}'

tchkder: tchkder.f
	gfortran -o $@ $< -lminpack
thybrd: thybrd.f
	gfortran -o $@ $< -lminpack
thybrd1: thybrd1.f
	gfortran -o $@ $< -lminpack
thybrj: thybrj.f
	gfortran -o $@ $< -lminpack
thybrj1: thybrj1.f
	gfortran -o $@ $< -lminpack
tlmder: tlmder.f
	gfortran -o $@ $< -lminpack
tlmder1: tlmder1.f
	gfortran -o $@ $< -lminpack
tlmdif: tlmdif.f
	gfortran -o $@ $< -lminpack
tlmdif1: tlmdif1.f
	gfortran -o $@ $< -lminpack
tlmstr: tlmstr.f
	gfortran -o $@ $< -lminpack
tlmstr1: tlmstr1.f
	gfortran -o $@ $< -lminpack

tcchkder: tchkder.c					
	gfortran -o $@ $< -lminpack -lm
tchybrd: thybrd.c					
	gfortran -o $@ $< -lminpack -lm
tchybrd1: thybrd1.c					
	gfortran -o $@ $< -lminpack -lm
tchybrj: thybrj.c					
	gfortran -o $@ $< -lminpack -lm
tchybrj1: thybrj1.c					
	gfortran -o $@ $< -lminpack -lm
tclmder: tlmder.c					
	gfortran -o $@ $< -lminpack -lm
tclmder1: tlmder1.c					
	gfortran -o $@ $< -lminpack -lm
tclmdif: tlmdif.c
	gfortran -o $@ $< -lminpack -lm
tclmdif1: tlmdif1.c
	gfortran -o $@ $< -lminpack -lm
tclmstr: tlmstr.c
	gfortran -o $@ $< -lminpack -lm
tclmstr1: tlmstr1.c
	gfortran -o $@ $< -lminpack -lm
