Commit 6d1d38ed authored by Gebhardt, Albrecht's avatar Gebhardt, Albrecht
Browse files

debug options

parent 69c0ef32
PKG_CFLAGS=@PKG_CFLAGS@
PKG_FFLAGS=@PKG_FFLAGS@
DEBUG_FFLAGS=-fPIC -ggdb3 -O0
DEBUG_CFLAGS=-fPIC -ggdb3 -O0
all: $(SHLIB)
tripack.o: tripack.f
$(FC) $(DEBUG_FFLAGS) -c -o $@ $<
akima697.o: akima697.f
$(FC) $(DEBUG_FFLAGS) -c -o $@ $<
akima760.o: akima760.f
$(FC) $(DEBUG_FFLAGS) -c -o $@ $<
akima761.o: akima761.f
$(FC) $(DEBUG_FFLAGS) -c -o $@ $<
akima433.o: akima433.f
$(FC) $(DEBUG_FFLAGS) -c -o $@ $<
#init.o: init.c
# $(CC) $(CPPFLAGS) -I/usr/include/R $(DEBUG_CFLAGS) -c -o $@ $<
......@@ -154,8 +154,14 @@ C DETERMINATION OF THE COEFFICIENTS
60 Q2=(2.0*(M3-T3)+M3-T4)/A3
Q3=(-M3-M3+T3+T4)/(A3*A3)
C COMPUTATION OF THE POLYNOMIAL
70 DX=UK-P0
70 DX=UK-P0
WRITE(*,*),"T3=",T3," T4=",T4
WRITE(*,*),"M1=",M1," M2=",M2," M3=",M3," M4=",M4," M5=",M5
WRITE(*,*),"X1=",X1," X2=",X2," X3=",X3," X4=",X4," X5=",X5
WRITE(*,*),"Y1=",Y1," Y2=",Y2," Y3=",Y3," Y4=",Y4," Y5=",Y5
WRITE(*,*),"Q0=",Q0," Q1=",Q1," Q2=",Q2," Q3=",Q3
V(K)=Q0+DX*(Q1+DX*(Q2+DX*Q3))
WRITE(*,*),"OUT (",UK,", ",V(K),")"
80 CONTINUE
RETURN
C ERROR EXIT
......
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