21 IMPLICIT DOUBLE PRECISION(a-
h,o-z)
25 IF (wt(i) .LE. 0.0d0) go
to 30
28 20 wt(i) = 1.0d0/wt(i)
subroutine dinvwt(NEQ, WT, IER)
may be zero for pure relative error test tem the relative tolerance must be greater than or equal to
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)