5 DOUBLE PRECISION FUNCTION ddwnrm(NEQ,V,RWT,RPAR,IPAR)
20 IMPLICIT DOUBLE PRECISION(a-h,o-z)
26 IF(
abs(v(i)*rwt(i)) .GT. vmax) vmax =
abs(v(i)*rwt(i))
28 IF(vmax .LE. 0.0d0) go to 30
31 20 sum = sum + ((v(i)*rwt(i))/vmax)**2
std::string dimension(void) const
double precision function ddwnrm(NEQ, V, RWT, RPAR, IPAR)
octave_value sqrt(void) const