[R-SIG-Mac] for do-it-yourselvers: lindsey packages with gfortran

[Jan de Leeuw]

1. In the event package, in survkit.f, the data statements should be
changed (twice) to

       DATA(WGAUSS(J,3),J=1,3)/
      + 0.417771379105166318,1.67108551642066683,0.417771379105166318/
       DATA(WGAUSS(J,4),J=1,4)/
      + 0.114993714684505977,1.13832042263099442,
      + 1.13832042263099487,0.114993714684505977/
       DATA(WGAUSS(J,5),J=1,5)/
      + 0.0282181455332160026,0.556661785214017657,
      + 1.33686841313653382,0.556661785214018656,0.02821814553321600266/
       DATA(XGAUSS(J,3),J=1,3)/
      + -1.73205080756887786,0.D0,1.73205080756887786/
       DATA(XGAUSS(J,4),J=1,4)/
      + -2.33441421833897689,-0.741963784302725915,
      + 0.741963784302725360,2.33441421833897689/
       DATA(XGAUSS(J,5),J=1,5)/
      + -2.85697001387280558,-1.35562617997426593,0.D0,
      + 1.35562617997426460,2.85697001387280558/

2. In rmutil file gettvc.f there are a number of constants equal to  
1e300
or 1e301. The compiler does not let that through (overflow). I  
changed them
to 1e30.

3. In repeated, file binnest.f, line 638, the statement

Gradient(t1+t2+kk) = Gradient(t1+t2+kk) + (D1_Sig2(kk) / Li

is too long -- I removed some spaces and it compiles fine.

===
Jan de Leeuw; Distinguished Professor and Chair, UCLA Department of  
Statistics;
Editor: Journal of Multivariate Analysis, Journal of Statistical  
Software
US mail: 8130 Math Sciences Bldg, Box 951554, Los Angeles, CA 90095-1554
phone (310)-825-9550;  fax (310)-206-5658;  email: deleeuw at stat.ucla.edu
.mac: jdeleeuw ++++++  aim: deleeuwjan ++++++ skype: j_deleeuw
homepages: http://gifi.stat.ucla.edu ++++++ http://www.cuddyvalley.org
   
------------------------------------------------------------------------ 
-------------------------
           No matter where you go, there you are. --- Buckaroo Banzai
                    http://gifi.stat.ucla.edu/sounds/nomatter.au