Commit 9be3c222 authored by agebhard's avatar agebhard
Browse files

interpp.old works now (COMMON variable added)

parent e770b051
LIBNAME=akima
LD=ld
FFLAGS=-g
SHLIBLDFLAGS=-shared
#LD=ld
#FFLAGS=-g
#SHLIBLDFLAGS=-shared
OBJS= idbvip.o idgrid.o idpdrv.o idsfft.o idxchg.o idcldp.o \
idlctn.o idptip.o idtang.o idptli.o akima.new.o tripack.subset.o
$(LIBNAME): $(OBJS)
@$(LD) $(SHLIBLDFLAGS) -o $(LIBNAME).so $(OBJS) -lf2c
@$(LD) $(SHLIBLDFLAGS) -o $(LIBNAME).so $(OBJS) # -lf2c
clean:
@rm -f *.o *.so ttidbs driver fort.2 WFSD3P
......@@ -16,8 +16,9 @@ clean:
realclean:
@rm -f Makefile *.o *.so
# Test programs from original Fortran distribution:
test: ttidbs driver
ttidbs: ttidbs.f $(OBJS)
$(F77) $(FFLAGS) ttidbs.f idbvip.o idgrid.o idpdrv.o idsfft.o idxchg.o \
idcldp.o idlctn.o idptip.o idtang.o idptli.o -o ttidbs
......
......@@ -37,7 +37,7 @@ C DECLARATION STATEMENTS
DIMENSION XD(NDP), YD(NDP), IPT(3*NT), IPL(3*NL), IWK(18*NDP),
* WK(8*NDP)
DIMENSION NTSC(9), IDSC(9)
COMMON /IDLC/ NIT
COMMON /IDLC/ NIT, ITIPV
C STATEMENT FUNCTIONS
SIDE(U1,V1,U2,V2,U3,V3) = (U1-U3)*(V2-V3) - (V1-V3)*(U2-U3)
SPDT(U1,V1,U2,V2,U3,V3) = (U1-U2)*(U3-U2) + (V1-V2)*(V3-V2)
......
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