/**
* 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);
}
