Revision 327 trunk/src/linad99/fvar_a29.cpp

fvar_a29.cpp (revision 327)
644 644
  save_double_derivative(dfe,epos);
645 645
  //ierr=fsetpos(gradient_structure::get_fp(),&filepos);
646 646
}
647
dvar_vector pow(const dvector& x,const dvar_vector& a)
648
{
649
    RETURN_ARRAYS_INCREMENT();	
650
	dvar_vector y(x.indexmin(), x.indexmax());
651

  
652
	for(int i=x.indexmin(); i<=x.indexmax(); i++)
653
	{
654
		y(i)=pow(x(i),a(i));
655
	}	
656

  
657
	RETURN_ARRAYS_DECREMENT();	
658
    return(y);
659
}

Also available in: Unified diff