mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-13 06:23:45 -04:00
15 lines
592 B
Plaintext
15 lines
592 B
Plaintext
$NetBSD: patch-aa,v 1.2 2008/10/14 22:41:44 markd Exp $
|
|
|
|
--- src/lmm.f.orig 2003-12-04 09:19:01.000000000 +1300
|
|
+++ src/lmm.f
|
|
@@ -549,7 +549,8 @@ C 3 = inadequate information to obta
|
|
C 4 = value of xi or inv(Ui) became non-pos.def. during iterations
|
|
C 5 = t(X)%*%W%*%X became non-pos.def. during iterations
|
|
C 6 = supplied xihat is non-pos.def.
|
|
- integer gmax/50/
|
|
+ integer gmax
|
|
+ data gmax/50/
|
|
double precision estarhat(0:50)
|
|
integer ntot,subj(ntot),m,ist(m),ifin(m),occ(ntot),nmax,
|
|
/ pcol,q,zcol(q),iflag,err,msg,iter,p,xcol(p),i,j,
|