hopefully fix nasty interpp.old wrong interpolation bug

src/idlctn.f

@@ -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)

src/init.c

@@ -9,105 +9,105 @@
 /* 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[] = {
   {"idbvip", (DL_FUNC) &F77_SUB(idbvip), 13, idbvip_t}, /* interpp.old */
   {"sdbi3p", (DL_FUNC) &F77_SUB(sdbi3p), 16, sdbi3p_t}, /* interpp.new */
-  {"idsfft", (DL_FUNC) &F77_SUB(idsfft), 14, idsfft_t}, /* interp.old */
-  {"sdsf3p", (DL_FUNC) &F77_SUB(sdsf3p), 17, sdsf3p_t}, /* interp.new */
-  {"uvip3p", (DL_FUNC) &F77_SUB(uvip3p), 8, uvip3p_t},  /* aspline */
-  {"intrpl", (DL_FUNC) &F77_SUB(intrpl), 7, intrpl_t}   /* aspline */
+  {"idsfft", (DL_FUNC) &F77_SUB(idsfft), 14, idsfft_t}, /* interp.old  */
+  {"sdsf3p", (DL_FUNC) &F77_SUB(sdsf3p), 17, sdsf3p_t}, /* interp.new  */
+  {"uvip3p", (DL_FUNC) &F77_SUB(uvip3p), 8, uvip3p_t},  /* aspline     */
+  {"intrpl", (DL_FUNC) &F77_SUB(intrpl), 7, intrpl_t}   /* aspline     */
 };
 
 void