Commit 5414fd8d authored by agebhard's avatar agebhard
Browse files

hopefully fix nasty interpp.old wrong interpolation bug

parent 56ca5e9b
......@@ -38,6 +38,12 @@ C DECLARATION STATEMENTS
* WK(8*NDP)
DIMENSION NTSC(9), IDSC(9)
COMMON /IDLC/ NIT, ITIPV
C agebhard@uni-klu.ac.at:
C Fix an error caused by uninitialized values on second call,
C possibly I added too much variables to this common block by guessing
C their names from beeing used between "GO TO 80" and line "80":
COMMON /IDLCT/ XMN,XMX,YMN,YMX,XI,YI,XS1,YS1,XS2,YS2,NTSC,IDSC,
* IT0T3,JWK,I1,I2,I3
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)
......
......@@ -9,96 +9,96 @@
/* Fortran interface descriptions: */
static R_NativePrimitiveArgType idbvip_t[13] = {
INTSXP, // MD,
INTSXP, // NCP,
INTSXP, // NDP,
REALSXP, // XD,
REALSXP, // YD,
REALSXP, // ZD,
INTSXP, // NIP,
REALSXP, // XI,
REALSXP, // YI,
REALSXP, // ZI,
INTSXP, // IWK,
REALSXP, // WK,
LGLSXP // MISSI
INTSXP, /* MD, */
INTSXP, /* NCP, */
INTSXP, /* NDP, */
REALSXP, /* XD, */
REALSXP, /* YD, */
REALSXP, /* ZD, */
INTSXP, /* NIP, */
REALSXP, /* XI, */
REALSXP, /* YI, */
REALSXP, /* ZI, */
INTSXP, /* IWK, */
REALSXP, /* WK, */
LGLSXP /* MISSI */
};
static R_NativePrimitiveArgType sdbi3p_t[16] = {
INTSXP, // MD,
INTSXP, // NDP,
REALSXP, // XD,
REALSXP, // YD,
REALSXP, // ZD,
INTSXP, // NIP,
REALSXP, // XI,
REALSXP, // YI,
REALSXP, // ZI,
INTSXP, // IER,
REALSXP, // WK,
INTSXP, // IWK,
INTSXP, // EXTRPI,
INTSXP, // NEAR,
INTSXP, // NEXT,
REALSXP // DIST
INTSXP, /* MD, */
INTSXP, /* NDP, */
REALSXP, /* XD, */
REALSXP, /* YD, */
REALSXP, /* ZD, */
INTSXP, /* NIP, */
REALSXP, /* XI, */
REALSXP, /* YI, */
REALSXP, /* ZI, */
INTSXP, /* IER, */
REALSXP, /* WK, */
INTSXP, /* IWK, */
INTSXP, /* EXTRPI, */
INTSXP, /* NEAR, */
INTSXP, /* NEXT, */
REALSXP /* DIST */
};
static R_NativePrimitiveArgType idsfft_t[14] = {
INTSXP, // MD,
INTSXP, // NCP,
INTSXP, // NDP,
REALSXP, // XD,
REALSXP, // YD,
REALSXP, // ZD,
INTSXP, // NXI,
INTSXP, // NYI,
REALSXP, // XI,
REALSXP, // YI,
REALSXP, // ZI,
INTSXP, // IWK,
REALSXP, // WK,
LGLSXP // MISSI
INTSXP, /* MD, */
INTSXP, /* NCP, */
INTSXP, /* NDP, */
REALSXP, /* XD, */
REALSXP, /* YD, */
REALSXP, /* ZD, */
INTSXP, /* NXI, */
INTSXP, /* NYI, */
REALSXP, /* XI, */
REALSXP, /* YI, */
REALSXP, /* ZI, */
INTSXP, /* IWK, */
REALSXP, /* WK, */
LGLSXP /* MISSI */
};
static R_NativePrimitiveArgType sdsf3p_t[17] = {
INTSXP, // MD,
INTSXP, // NDP,
REALSXP, // XD,
REALSXP, // YD,
REALSXP, // ZD,
INTSXP, // NXI,
REALSXP, // XI,
INTSXP, // NYI,
REALSXP, // YI,
REALSXP, // ZI,
INTSXP, // IER,
REALSXP, // WK,
INTSXP, // IWK,
INTSXP, // EXTRPI,
INTSXP, // NEAR,
INTSXP, // NEXT,
REALSXP // DIST
INTSXP, /* MD, */
INTSXP, /* NDP, */
REALSXP, /* XD, */
REALSXP, /* YD, */
REALSXP, /* ZD, */
INTSXP, /* NXI, */
REALSXP, /* XI, */
INTSXP, /* NYI, */
REALSXP, /* YI, */
REALSXP, /* ZI, */
INTSXP, /* IER, */
REALSXP, /* WK, */
INTSXP, /* IWK, */
INTSXP, /* EXTRPI, */
INTSXP, /* NEAR, */
INTSXP, /* NEXT, */
REALSXP /* DIST */
};
static R_NativePrimitiveArgType uvip3p_t[8] = {
INTSXP, // NP,
INTSXP, // ND,
REALSXP, // XD,
REALSXP, // YD,
INTSXP, // NI,
REALSXP, // XI,
REALSXP, // YI,
INTSXP // ERR
INTSXP, /* NP, */
INTSXP, /* ND, */
REALSXP, /* XD, */
REALSXP, /* YD, */
INTSXP, /* NI, */
REALSXP, /* XI, */
REALSXP, /* YI, */
INTSXP /* ERR */
};
static R_NativePrimitiveArgType intrpl_t[7] = {
INTSXP, // L,
REALSXP, // X,
REALSXP, // Y,
INTSXP, // N,
REALSXP, // U,
REALSXP, // V,
INTSXP // ERR
INTSXP, /* L, */
REALSXP, /* X, */
REALSXP, /* Y, */
INTSXP, /* N, */
REALSXP, /* U, */
REALSXP, /* V, */
INTSXP /* ERR */
};
static R_FortranMethodDef fortranMethods[] = {
......
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