modreg buggy: uninitialized variable in sinerp.f (PR#302)

[thoffman@zappa.sax.de]

I had some strange problems with modreg: sometimes functions
hang in an infinite loop, consuming 100% CPU time. Especially
when update()ing models (as in example(ppr)) with sm.method="gcv"
I found that if I repeated the call after I did interrupt the hang,
it ran to completion.

After some lengthy debugging I could track down this problem:

sinerp.f, line 22--24 read:

      wjm3(1)=0d0
      wjm3(2)=0d0
      wjm3(1)=0d0

This leaves wjm3(3) uninitialized. So after changing these lines to

      wjm3(1)=0d0
      wjm3(2)=0d0
      wjm3(3)=0d0

the bug was gone.

Thomas Hoffmann.

--please do not edit the information below--

Version:
 platform = i386-pc-os2_emx
 arch = i386
 os = os2_emx
 system = i386, os2_emx
 status = Release
 major = 0
 minor = 65.1
 year = 1999
 month = October
 day = 07
 language = R

Search Path:
 .GlobalEnv, Autoloads, package:base



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._