5 SUBROUTINE dfnrmd (NEQ, Y, T, YPRIME, R, CJ, WT, RES, IRES,
6 * FNORM, WM, IWM, RPAR, IPAR)
36 IMPLICIT DOUBLE PRECISION (a-h,o-z)
44 CALL res(t,y,yprime,cj,r,ires,rpar,ipar)
45 IF (ires .LT. 0)
RETURN 49 CALL dslvd(neq,r,wm,iwm)
53 fnorm = ddwnrm(neq,r,wt,rpar,ipar)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)