/** * Description not yet available. * \param */ int sub_unallocated(const dvar_matrix& m) { int iflag=0; if (!allocated(m)) { iflag=1; return iflag; } int mmin=m.indexmin(); int mmax=m.indexmax(); if (!allocated(m)) { iflag=1; return iflag; } for (int i=mmin;i<=mmax;i++) { if (!allocated(m(i))) { iflag=1; break; } } return iflag; }
/** * Description not yet available. * \param */ dvar_matrix trans(const dvar_matrix& m1) { int rmin=m1.indexmin(); int rmax=m1.indexmax(); int cmin=m1.colmin(); int cmax=m1.colmax(); dvar_matrix t1(cmin,cmax,rmin,rmax); for (int i=rmin; i<=rmax; i++) { for (int j=cmin; j<=cmax; j++) { t1.elem_value(j,i)=m1.elem_value(i,j); } } save_identifier_string("uu"); m1.save_dvar_matrix_position(); t1.save_dvar_matrix_position(); save_identifier_string("vv"); gradient_structure::GRAD_STACK1-> set_gradient_stack(dfmattrans); return (t1); }