[Vegan-commits] r1564 - in pkg/vegan: inst src

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2011-03-31 20:34:49 +0200 (Thu, 31 Mar 2011)
New Revision: 1564

Modified:
   pkg/vegan/inst/ChangeLog
   pkg/vegan/src/ordering.f
Log:
missing matrix definition in Fortran code

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2011-03-31 18:13:23 UTC (rev 1563)
+++ pkg/vegan/inst/ChangeLog	2011-03-31 18:34:49 UTC (rev 1564)
@@ -3,6 +3,10 @@
 VEGAN DEVEL VERSIONS at http://r-forge.r-project.org/
 
 Version 1.18-27 (opened March 31, 2011)
+
+	* orderingKM: Kurt Hornik found a problem when inspecting the
+	Fortran subroutines with gcc 4.6 tools when checking vegan release
+	1.17-9. 
 	
 Version 1.18-26 (closed March 31, 2011)
 

Modified: pkg/vegan/src/ordering.f
===================================================================
--- pkg/vegan/src/ordering.f	2011-03-31 18:13:23 UTC (rev 1563)
+++ pkg/vegan/src/ordering.f	2011-03-31 18:34:49 UTC (rev 1564)
@@ -68,6 +68,7 @@
       Subroutine TWWS(mat,n,k,sumrow,sumtot,rowscore,colscore,
      +                toler,epsilon)
       Integer n, niter
+      Integer mat(n,k)
       Real sumrow(n),sumtot,d
       Real*8 rowscore(n),colscore(n),epsilon,oldS,newS,toler,
      +       oldrowsc(n)