Displaying 1 result from an estimated 1 matches for "daprox".
Did you mean:
aprox
2001 Mar 19
0
DUP=T/F
...0 length arrays
u <- matrix(0,sampleT,1)
G <- matrix(0,ns,1)
}
else
{C <-model$C
u <- input.data(data)
G <- matrix(0,ns,ms)
}
x <-model$parms
h0 <- abs(d*x)+eps*(x==0.0)
D <- matrix(1e20, n,(length(x)*(length(x) + 3))/2)
Daprox <- matrix(0,n,r)
Hdiag <- matrix(0,n,length(x))
Haprox <- matrix(0,n,r)
storage.mode(D) <-"double"
storage.mode(Daprox)<-"double"
storage.mode(Haprox)<-"double"
storage.mode(Hdiag )<-"double"
D <-.Fortran(&...