1 DOUBLE PRECISION FUNCTION ddanrm (NEQ, V, WT, RPAR, IPAR)
26 DOUBLE PRECISION V(neq), WT(neq), RPAR(*)
29 DOUBLE PRECISION SUM, VMAX
35 IF(
abs(v(i)/wt(i)) .GT. vmax) vmax =
abs(v(i)/wt(i))
37 IF(vmax .LE. 0.0d0) go to 30
40 20 sum = sum + ((v(i)/wt(i))/vmax)**2
41 ddanrm = vmax*
sqrt(sum/neq)
octave_value sqrt(void) const