SPDTVariable::SPDTVariable(integer dim, integer num)
{
SPDVariable SV(dim);
Element **SVs = new Element *[num];
for (integer i = 0; i < num; i++)
{
SVs[i] = &SV;
}
integer *powsintev = new integer[2];
powsintev[0] = 0;
powsintev[1] = num;
ProductElementInitialization(SVs, num, powsintev, 1);
delete[] powsintev;
delete[] SVs;
};
ObliqueVector::ObliqueVector(integer n, integer num)
{
SphereVector SV(n);
Element **SVs = new Element *[num];
for (integer i = 0; i < num; i++)
{
SVs[i] = &SV;
}
integer *powsintev = new integer[2];
powsintev[0] = 0;
powsintev[1] = num;
ProductElementInitialization(SVs, num, powsintev, 1);
delete[] powsintev;
delete[] SVs;
};
LowRankVector::LowRankVector(integer Ur, integer Uc, integer Drc, integer Vr, integer Vc)
{
StieVector dU(Ur, Uc);
EucVector dD(Drc, Drc);
StieVector dV(Vr, Vc);
Element **Elems = new Element *[3];
Elems[0] = &dU;
Elems[1] = &dD;
Elems[2] = &dV;
integer *powsintev = new integer[4];
powsintev[0] = 0;
powsintev[1] = 1;
powsintev[2] = 2;
powsintev[3] = 3;
ProductElementInitialization(Elems, 3, powsintev, 3);
delete[] powsintev;
delete[] Elems;
};
ProductElement::ProductElement(Element **inelements, integer innumofelements, integer *inpowsinterval, integer innumoftypes)
{
ProductElementInitialization(inelements, innumofelements, inpowsinterval, innumoftypes);
};