C++ (Cpp) MTensor_getRealDataMacro Exemples

Exemple #1

Fichier : myWolframRTL.c Projet : shanecelis/sussex-thesis-doc

void myMTensor_copy(MTensor *Tdest, MTensor Tsrc)
{
  assert(Tdest != NULL);
  assert(Tsrc != NULL);  

  mreal *dest     = MTensor_getRealDataMacro(*Tdest);
  mint *dest_dims = MTensor_getDimensionsMacro(*Tdest);
  mreal *src      = MTensor_getRealDataMacro(Tsrc);
  mint *src_dims  = MTensor_getDimensionsMacro(Tsrc);
  mint i;
  assert(dest_dims[0] == src_dims[0]);
  for (i = 0; i < dest_dims[0]; i++)
    dest[i] = src[i];
}

Exemple #2

Fichier : findCalibration.c Projet : jasonhogan/sti-deprecated

DLLEXPORT int findCalibration(WolframLibraryData libData, MTensor A1, mreal A2, mreal A3, MTensor *Res)
{
mbool B0_0;
mbool B0_1;
mbool B0_3;
mbool B0_4;
mbool B0_5;
mbool B0_6;
mint I0_1;
mint I0_2;
mint I0_3;
mint I0_4;
mint I0_5;
mint I0_7;
mint I0_10;
mreal R0_0;
mreal R0_1;
mreal R0_2;
mreal R0_3;
mreal R0_4;
mreal R0_5;
mreal R0_8;
mreal R0_9;
mreal R0_13;
mreal R0_14;
mreal R0_15;
mreal R0_16;
MTensor* T0_0;
MTensor* T0_1;
MTensor* T0_2;
MTensor* T0_3;
MTensor* T0_4;
MTensor* T0_5;
MTensor* T0_6;
MTensor* T0_7;
MTensor* T0_9;
MTensor* T0_10;
MTensor* T0_15;
MTensorInitializationData Tinit;
mint dims[3];
mint *D6;
mreal *P7;
mint *D7;
mreal *P9;
mint *D9;
mint *D11;
mreal *P12;
mint *D12;
mreal *P14;
mint *D14;
mint *P15;
mint *D17;
mint *P18;
mint *D18;
mint *P19;
mint *D19;
mint *P21;
mreal *P25;
mint *D25;
mint *D29;
mint *D31;
mint *P32;
mint *D32;
mint *D34;
mint *P35;
mint *D35;
mint *P37;
mint *D37;
MArgument FPA[4];
int err = 0;
Tinit = funStructCompile->GetInitializedMTensors(libData, 10);
T0_1 = MTensorInitializationData_getTensor(Tinit, 0);
T0_10 = MTensorInitializationData_getTensor(Tinit, 1);
T0_15 = MTensorInitializationData_getTensor(Tinit, 2);
T0_2 = MTensorInitializationData_getTensor(Tinit, 3);
T0_3 = MTensorInitializationData_getTensor(Tinit, 4);
T0_4 = MTensorInitializationData_getTensor(Tinit, 5);
T0_5 = MTensorInitializationData_getTensor(Tinit, 6);
T0_6 = MTensorInitializationData_getTensor(Tinit, 7);
T0_7 = MTensorInitializationData_getTensor(Tinit, 8);
T0_9 = MTensorInitializationData_getTensor(Tinit, 9);
T0_0 = &A1;
R0_0 = A2;
R0_1 = A3;
MArgument_getMTensorAddress(FPA[0]) = T0_0;
MArgument_getMTensorAddress(FPA[1]) = T0_1;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D6 = MTensor_getDimensionsMacro(*T0_1);
I0_2 = D6[0];
I0_5 = I0_6;
dims[0] = I0_2;
err = funStructCompile->MTensor_allocate(T0_2, 3, 1, dims);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
I0_4 = I0_6;
goto lab15;
lab7:
{
mint S0[2];
S0[0] = I0_4;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_1, S0, &R0_4);
if( err)
{
goto error_label;
}
}
I0_3 = D6[0];
{
mint S0 = FP1((void*) (&I0_7), (void*) (&I0_4), (void*) (&I0_3), 1, UnitIncrements, 4);/*  Mod  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0 = FP2((void*) (&I0_7), (void*) (&I0_7), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_7;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_1, S0, &R0_3);
if( err)
{
goto error_label;
}
}
R0_5 = -R0_3;
R0_4 = R0_4 + R0_5;
P7[I0_5++] = R0_4;
lab15:
if( ++I0_4 <= I0_2)
{
goto lab7;
}
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getMTensorAddress(FPA[1]) = T0_3;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = T0_4;
err = FP3(libData, 1, FPA, FPA[1]);/*  Union  */
if( err)
{
goto error_label;
}
P9 = MTensor_getRealDataMacro(*T0_4);
D9 = MTensor_getDimensionsMacro(*T0_4);
I0_2 = D9[0];
I0_3 = I0_8;
dims[0] = I0_2;
dims[1] = I0_3;
err = funStructCompile->MTensor_allocate(T0_6, 3, 2, dims);
if( err)
{
goto error_label;
}
I0_4 = I0_6;
goto lab30;
lab23:
R0_2 = P9[I0_4 - 1];
{
MTensor S0 = funStructCompile->getRankZeroMTensor((void*) (&R0_2), 3, 0);
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = &S0;
MArgument_getRealAddress(FPA[2]) = &R0_6;
MArgument_getMTensorAddress(FPA[3]) = T0_7;
err = FP4(libData, 3, FPA, FPA[3]);/*  Position  */
if( err)
{
goto error_label;
}
}
D11 = MTensor_getDimensionsMacro(*T0_7);
I0_7 = D11[0];
R0_2 = P9[I0_4 - 1];
R0_5 = (mreal) I0_7;
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_7, 3, 1, &S0);
if( err)
{
goto error_label;
}
P12 = MTensor_getRealDataMacro(*T0_7);
D12 = MTensor_getDimensionsMacro(*T0_7);
P12[0] = R0_5;
P12[1] = R0_2;
}
err = funStructCompile->MTensor_insertMTensor(*T0_6, *T0_7, &I0_3);
if( err)
{
goto error_label;
}
lab30:
if( ++I0_4 <= I0_2)
{
goto lab23;
}
MArgument_getMTensorAddress(FPA[0]) = T0_6;
MArgument_getMTensorAddress(FPA[1]) = T0_4;
err = FP5(libData, 1, FPA, FPA[1]);/*  Sort  */
if( err)
{
goto error_label;
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_6, *T0_4, &I0_8, 1);
if( err)
{
goto error_label;
}
P14 = MTensor_getRealDataMacro(*T0_6);
D14 = MTensor_getDimensionsMacro(*T0_6);
{
mint S0 = D14[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
R0_2 = P14[S0];
}
{
mint S0 = 1;
err = funStructCompile->MTensor_allocate(T0_6, 3, 1, &S0);
if( err)
{
goto error_label;
}
P14 = MTensor_getRealDataMacro(*T0_6);
D14 = MTensor_getDimensionsMacro(*T0_6);
P14[0] = R0_2;
}
{
mint S0 = D14[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_2 = P14[S0];
}
R0_5 = R0_2 < 0 ? -R0_2 : R0_2;
I0_3 = D7[0];
I0_4 = I0_6;
dims[0] = I0_3;
err = funStructCompile->MTensor_allocate(T0_3, 2, 1, dims);
if( err)
{
goto error_label;
}
P15 = MTensor_getIntegerDataMacro(*T0_3);
I0_2 = I0_6;
goto lab52;
lab42:
R0_3 = P7[I0_2 - 1];
R0_2 = R0_3 < 0 ? -R0_3 : R0_3;
R0_3 = (mreal) I0_9;
R0_3 = R0_3 * R0_5;
{
mreal S0[2];
S0[0] = R0_2;
S0[1] = R0_3;
B0_0 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
if( !B0_0)
{
goto lab50;
}
I0_10 = I0_0;
goto lab51;
lab50:
I0_10 = I0_6;
lab51:
P15[I0_4++] = I0_10;
lab52:
if( ++I0_2 <= I0_3)
{
goto lab42;
}
{
MTensor S0 = funStructCompile->getRankZeroMTensor((void*) (&I0_0), 2, 0);
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = &S0;
MArgument_getMTensorAddress(FPA[2]) = T0_4;
err = FP4(libData, 2, FPA, FPA[2]);/*  Position  */
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_8;
MArgument_getMTensorAddress(FPA[1]) = T0_4;
MArgument_getMTensorAddress(FPA[2]) = T0_3;
err = FP6(libData, 2, FPA, FPA[2]);/*  Join  */
if( err)
{
goto error_label;
}
D17 = MTensor_getDimensionsMacro(*T0_3);
I0_5 = D17[0];
I0_10 = I0_6;
dims[0] = I0_5;
err = funStructCompile->MTensor_allocate(T0_4, 2, 1, dims);
if( err)
{
goto error_label;
}
P18 = MTensor_getIntegerDataMacro(*T0_4);
D18 = MTensor_getDimensionsMacro(*T0_4);
I0_7 = I0_6;
goto lab63;
lab60:
funStructCompile->MTensor_getMTensorInitialized(T0_5, *T0_3, &I0_7, 1);
P19 = MTensor_getIntegerDataMacro(*T0_5);
D19 = MTensor_getDimensionsMacro(*T0_5);
{
mint S0 = D19[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_3 = P19[S0];
}
P18[I0_10++] = I0_3;
lab63:
if( ++I0_7 <= I0_5)
{
goto lab60;
}
I0_2 = D18[0];
{
mint S0 = FP2((void*) (&I0_2), (void*) (&I0_2), (void*) (&I0_8), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_1 = I0_8;
dims[0] = I0_2;
dims[1] = I0_0;
dims[2] = I0_1;
err = funStructCompile->MTensor_allocate(T0_5, 3, 3, dims);
if( err)
{
goto error_label;
}
I0_10 = I0_6;
goto lab87;
lab70:
{
mint S0 = D18[0];
if( I0_10 > 0)
{
if( I0_10 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_10 - 1;
}
else
{
if( I0_10 == 0 || I0_10 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_10;
}
I0_3 = P18[S0];
}
{
mint S0 = FP2((void*) (&I0_4), (void*) (&I0_0), (void*) (&I0_3), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0 = FP2((void*) (&I0_3), (void*) (&I0_10), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0 = D18[0];
if( I0_3 > 0)
{
if( I0_3 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_3 - 1;
}
else
{
if( I0_3 == 0 || I0_3 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_3;
}
I0_5 = P18[S0];
}
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_7, 2, 1, &S0);
if( err)
{
goto error_label;
}
P21 = MTensor_getIntegerDataMacro(*T0_7);
P21[0] = I0_4;
P21[1] = I0_5;
}
MArgument_getMTensorAddress(FPA[0]) = T0_1;
MArgument_getIntegerAddress(FPA[1]) = &I0_0;
MArgument_getMTensorAddress(FPA[2]) = T0_7;
MArgument_getMTensorAddress(FPA[3]) = T0_3;
err = FP7(libData, 3, FPA, FPA[3]);/*  Take  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = T0_7;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getRealAddress(FPA[1]) = &R0_2;
err = FP8(libData, 1, FPA, FPA[1]);/*  MaxRT  */
if( err)
{
goto error_label;
}
{
MTensor S0 = funStructCompile->getRankZeroMTensor((void*) (&R0_2), 3, 0);
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getMTensorAddress(FPA[1]) = &S0;
MArgument_getRealAddress(FPA[2]) = &R0_6;
MArgument_getMTensorAddress(FPA[3]) = T0_9;
err = FP4(libData, 3, FPA, FPA[3]);/*  Position  */
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_0;
S0[1] = I0_0;
err = libData->MTensor_getInteger(*T0_9, S0, &I0_4);
if( err)
{
goto error_label;
}
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_7, *T0_3, 2, S0, S1);
if( err)
{
goto error_label;
}
}
P12 = MTensor_getRealDataMacro(*T0_7);
D12 = MTensor_getDimensionsMacro(*T0_7);
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getRealAddress(FPA[1]) = &R0_2;
err = FP9(libData, 1, FPA, FPA[1]);/*  MinRT  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getRealAddress(FPA[1]) = &R0_3;
err = FP8(libData, 1, FPA, FPA[1]);/*  MaxRT  */
if( err)
{
goto error_label;
}
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_9, 3, 1, &S0);
if( err)
{
goto error_label;
}
P25 = MTensor_getRealDataMacro(*T0_9);
D25 = MTensor_getDimensionsMacro(*T0_9);
P25[0] = R0_2;
P25[1] = R0_3;
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_7, *T0_3, &I0_4, 1);
if( err)
{
goto error_label;
}
P12 = MTensor_getRealDataMacro(*T0_7);
D12 = MTensor_getDimensionsMacro(*T0_7);
{
mint S0;
mint S1[2];
S1[0] = 2;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D12[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_10, 3, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_10, *T0_7, &S0, 1);
if( err)
{
goto error_label;
}
S0 = 2;
err = libData->MTensor_setMTensor(*T0_10, *T0_9, &S0, 1);
if( err)
{
goto error_label;
}
}
err = funStructCompile->MTensor_insertMTensor(*T0_5, *T0_10, &I0_1);
if( err)
{
goto error_label;
}
lab87:
if( ++I0_10 <= I0_2)
{
goto lab70;
}
MArgument_getMTensorAddress(FPA[0]) = T0_5;
MArgument_getMTensorAddress(FPA[1]) = T0_1;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
R0_5 = R0_0;
R0_2 = R0_1;
MArgument_getMTensorAddress(FPA[0]) = T0_1;
MArgument_getMTensorAddress(FPA[1]) = T0_3;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
R0_13 = R0_2;
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = T0_4;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D29 = MTensor_getDimensionsMacro(*T0_4);
R0_4 = R0_13;
I0_2 = I0_0;
lab96:
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_4, S0, &R0_8);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_8;
S0[1] = R0_4;
B0_3 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_3)
{
goto lab103;
}
I0_10 = D29[0];
B0_6 = I0_2 < I0_10;
B0_0 = B0_6;
goto lab104;
lab103:
B0_0 = B0_2;
lab104:
if( !B0_0)
{
goto lab109;
}
I0_10 = I0_2;
{
mint S0 = FP2((void*) (&I0_4), (void*) (&I0_10), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_2 = I0_4;
goto lab96;
lab109:
I0_10 = I0_2;
I0_2 = I0_0;
lab111:
I0_4 = D29[0];
B0_0 = I0_2 <= I0_4;
if( !B0_0)
{
goto lab130;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_4, S0, &R0_8);
if( err)
{
goto error_label;
}
}
{
mint S0[3];
S0[0] = I0_10;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_4, S0, &R0_3);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_8;
S0[1] = R0_3;
B0_3 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
if( !B0_3)
{
goto lab122;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_4, S0, &R0_8);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_8;
S0[1] = R0_4;
B0_6 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
B0_1 = B0_6;
goto lab123;
lab122:
B0_1 = B0_2;
lab123:
if( !B0_1)
{
goto lab126;
}
I0_10 = I0_2;
goto lab126;
lab126:
I0_4 = I0_2;
{
mint S0 = FP2((void*) (&I0_5), (void*) (&I0_4), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_2 = I0_5;
goto lab111;
lab130:
err = funStructCompile->MTensor_getMTensorInitialized(T0_9, *T0_4, &I0_10, 1);
if( err)
{
goto error_label;
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_4, *T0_9, &I0_0, 1);
if( err)
{
goto error_label;
}
P9 = MTensor_getRealDataMacro(*T0_4);
D9 = MTensor_getDimensionsMacro(*T0_4);
{
mint S0 = D9[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_13 = P9[S0];
}
{
mint S0;
mint S1[2];
S1[0] = 1;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D9[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_3, 3, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_3, *T0_4, &S0, 1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_1;
MArgument_getMTensorAddress(FPA[1]) = T0_9;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D31 = MTensor_getDimensionsMacro(*T0_9);
R0_4 = -R0_5;
R0_8 = R0_13 + R0_4;
R0_4 = R0_10 * R0_5;
R0_3 = R0_2;
I0_10 = I0_8;
R0_9 = R0_11;
R0_15 = R0_12 * R0_4;
lab142:
B0_3 = I0_10 < I0_6;
if( !B0_3)
{
goto lab149;
}
R0_14 = (mreal) I0_11;
R0_14 = R0_14 * R0_4;
{
mreal S0[2];
S0[0] = R0_15;
S0[1] = R0_14;
B0_0 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
B0_1 = B0_0;
goto lab150;
lab149:
B0_1 = B0_2;
lab150:
if( !B0_1)
{
goto lab183;
}
I0_2 = I0_0;
lab152:
I0_4 = D31[0];
B0_3 = I0_2 <= I0_4;
if( !B0_3)
{
goto lab179;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_9, S0, &R0_14);
if( err)
{
goto error_label;
}
}
R0_16 = -R0_8;
R0_14 = R0_14 + R0_16;
R0_16 = R0_14 < 0 ? -R0_14 : R0_14;
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_15;
B0_0 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_0)
{
goto lab175;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_9, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_9;
B0_5 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
if( !B0_5)
{
goto lab168;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_9, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_3;
B0_6 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
B0_4 = B0_6;
goto lab169;
lab168:
B0_4 = B0_2;
lab169:
if( !B0_4)
{
goto lab174;
}
I0_10 = I0_2;
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_9, S0, &R0_16);
if( err)
{
goto error_label;
}
}
R0_9 = R0_16;
goto lab174;
lab174:
goto lab175;
lab175:
I0_4 = I0_2;
{
mint S0 = FP2((void*) (&I0_5), (void*) (&I0_4), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_2 = I0_5;
goto lab152;
lab179:
R0_16 = R0_12 * R0_4;
R0_14 = R0_15 + R0_16;
R0_15 = R0_14;
goto lab142;
lab183:
{
mint S0[2];
S0[0] = I0_10;
S0[1] = I0_0;
err = funStructCompile->MTensor_getMTensorInitialized(T0_7, *T0_9, S0, 2);
if( err)
{
goto error_label;
}
}
P12 = MTensor_getRealDataMacro(*T0_7);
D12 = MTensor_getDimensionsMacro(*T0_7);
{
mint S0 = 1;
err = funStructCompile->MTensor_allocate(T0_9, 2, 1, &S0);
if( err)
{
goto error_label;
}
P32 = MTensor_getIntegerDataMacro(*T0_9);
D32 = MTensor_getDimensionsMacro(*T0_9);
P32[0] = I0_8;
}
{
mint S0;
mint S1[2];
S1[0] = 1;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D32[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_2, 2, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_2, *T0_9, &S0, 1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = T0_7;
MArgument_getMTensorAddress(FPA[2]) = T0_2;
MArgument_getMTensorAddress(FPA[3]) = T0_10;
err = FP10(libData, 3, FPA, FPA[3]);/*  Insert  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_10;
MArgument_getMTensorAddress(FPA[1]) = T0_3;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_1;
MArgument_getMTensorAddress(FPA[1]) = T0_10;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D34 = MTensor_getDimensionsMacro(*T0_10);
R0_3 = R0_13 + R0_5;
R0_4 = R0_10 * R0_5;
R0_8 = R0_2;
I0_10 = I0_8;
R0_15 = R0_11;
R0_9 = R0_12 * R0_4;
lab195:
B0_0 = I0_10 < I0_6;
if( !B0_0)
{
goto lab202;
}
R0_14 = (mreal) I0_11;
R0_14 = R0_14 * R0_4;
{
mreal S0[2];
S0[0] = R0_9;
S0[1] = R0_14;
B0_1 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
B0_3 = B0_1;
goto lab203;
lab202:
B0_3 = B0_2;
lab203:
if( !B0_3)
{
goto lab236;
}
I0_2 = I0_0;
lab205:
I0_4 = D34[0];
B0_0 = I0_2 <= I0_4;
if( !B0_0)
{
goto lab232;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_10, S0, &R0_14);
if( err)
{
goto error_label;
}
}
R0_16 = -R0_3;
R0_14 = R0_14 + R0_16;
R0_16 = R0_14 < 0 ? -R0_14 : R0_14;
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_9;
B0_1 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_1)
{
goto lab228;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_10, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_15;
B0_6 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
if( !B0_6)
{
goto lab221;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_10, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_8;
B0_4 = funStructCompile->Compare_R(7, R0_7, 2, S0);
}
B0_5 = B0_4;
goto lab222;
lab221:
B0_5 = B0_2;
lab222:
if( !B0_5)
{
goto lab227;
}
I0_10 = I0_2;
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_10, S0, &R0_16);
if( err)
{
goto error_label;
}
}
R0_15 = R0_16;
goto lab227;
lab227:
goto lab228;
lab228:
I0_4 = I0_2;
{
mint S0 = FP2((void*) (&I0_5), (void*) (&I0_4), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_2 = I0_5;
goto lab205;
lab232:
R0_16 = R0_12 * R0_4;
R0_14 = R0_9 + R0_16;
R0_9 = R0_14;
goto lab195;
lab236:
{
mint S0[2];
S0[0] = I0_10;
S0[1] = I0_0;
err = funStructCompile->MTensor_getMTensorInitialized(T0_9, *T0_10, S0, 2);
if( err)
{
goto error_label;
}
}
P25 = MTensor_getRealDataMacro(*T0_9);
D25 = MTensor_getDimensionsMacro(*T0_9);
{
mint S0 = 1;
err = funStructCompile->MTensor_allocate(T0_10, 2, 1, &S0);
if( err)
{
goto error_label;
}
P35 = MTensor_getIntegerDataMacro(*T0_10);
D35 = MTensor_getDimensionsMacro(*T0_10);
P35[0] = I0_8;
}
{
mint S0;
mint S1[2];
S1[0] = 1;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D35[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_7, 2, 2, S1);
if( err)
{
goto error_label;
}
D11 = MTensor_getDimensionsMacro(*T0_7);
S0 = 1;
err = libData->MTensor_setMTensor(*T0_7, *T0_10, &S0, 1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = T0_9;
MArgument_getMTensorAddress(FPA[2]) = T0_7;
MArgument_getMTensorAddress(FPA[3]) = T0_2;
err = FP10(libData, 3, FPA, FPA[3]);/*  Insert  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getMTensorAddress(FPA[1]) = T0_3;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_2, *T0_3, &I0_0, 1);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
{
mint S0 = D7[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_8 = P7[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_2, *T0_3, &I0_9, 1);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
{
mint S0 = D7[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_4 = P7[S0];
}
R0_3 = -R0_4;
R0_8 = R0_8 + R0_3;
R0_3 = R0_8 < 0 ? -R0_8 : R0_8;
R0_8 = -R0_5;
R0_3 = R0_3 + R0_8;
R0_8 = R0_3 < 0 ? -R0_3 : R0_3;
err = funStructCompile->MTensor_getMTensorInitialized(T0_2, *T0_3, &I0_12, 1);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
{
mint S0 = D7[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_3 = P7[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_2, *T0_3, &I0_9, 1);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
{
mint S0 = D7[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_4 = P7[S0];
}
R0_9 = -R0_4;
R0_3 = R0_3 + R0_9;
R0_9 = R0_3 < 0 ? -R0_3 : R0_3;
R0_3 = -R0_5;
R0_9 = R0_9 + R0_3;
R0_3 = R0_9 < 0 ? -R0_9 : R0_9;
err = funStructCompile->MTensor_getMTensorInitialized(T0_2, *T0_3, &I0_0, 1);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
{
mint S0 = D7[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_9 = P7[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_2, *T0_3, &I0_12, 1);
if( err)
{
goto error_label;
}
P7 = MTensor_getRealDataMacro(*T0_2);
D7 = MTensor_getDimensionsMacro(*T0_2);
{
mint S0 = D7[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_4 = P7[S0];
}
R0_15 = -R0_4;
R0_9 = R0_9 + R0_15;
R0_15 = R0_9 < 0 ? -R0_9 : R0_9;
R0_9 = -R0_5;
R0_15 = R0_15 + R0_9;
R0_9 = R0_15 < 0 ? -R0_15 : R0_15;
{
mreal S0[2];
S0[0] = R0_8;
S0[1] = R0_3;
B0_3 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_3)
{
goto lab285;
}
{
mreal S0[2];
S0[0] = R0_8;
S0[1] = R0_9;
B0_0 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_0)
{
goto lab277;
}
MArgument_getMTensorAddress(FPA[0]) = T0_11;
MArgument_getMTensorAddress(FPA[1]) = T0_9;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P32 = MTensor_getIntegerDataMacro(*T0_9);
D32 = MTensor_getDimensionsMacro(*T0_9);
goto lab283;
lab277:
{
mreal S0[2];
S0[0] = R0_9;
S0[1] = R0_3;
B0_1 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_1)
{
goto lab281;
}
MArgument_getMTensorAddress(FPA[0]) = T0_12;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
goto lab282;
lab281:
MArgument_getMTensorAddress(FPA[0]) = T0_13;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
lab282:
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getMTensorAddress(FPA[1]) = T0_9;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P32 = MTensor_getIntegerDataMacro(*T0_9);
D32 = MTensor_getDimensionsMacro(*T0_9);
lab283:
MArgument_getMTensorAddress(FPA[0]) = T0_9;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
goto lab296;
lab285:
{
mreal S0[2];
S0[0] = R0_3;
S0[1] = R0_9;
B0_0 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_0)
{
goto lab289;
}
MArgument_getMTensorAddress(FPA[0]) = T0_13;
MArgument_getMTensorAddress(FPA[1]) = T0_10;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P35 = MTensor_getIntegerDataMacro(*T0_10);
D35 = MTensor_getDimensionsMacro(*T0_10);
goto lab295;
lab289:
{
mreal S0[2];
S0[0] = R0_9;
S0[1] = R0_8;
B0_1 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_1)
{
goto lab293;
}
MArgument_getMTensorAddress(FPA[0]) = T0_12;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
goto lab294;
lab293:
MArgument_getMTensorAddress(FPA[0]) = T0_11;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
lab294:
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getMTensorAddress(FPA[1]) = T0_10;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P35 = MTensor_getIntegerDataMacro(*T0_10);
D35 = MTensor_getDimensionsMacro(*T0_10);
lab295:
MArgument_getMTensorAddress(FPA[0]) = T0_10;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
lab296:
MArgument_getMTensorAddress(FPA[0]) = T0_14;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
MArgument_getMTensorAddress(FPA[2]) = T0_9;
err = FP11(libData, 2, FPA, FPA[2]);/*  Complement  */
if( err)
{
goto error_label;
}
P32 = MTensor_getIntegerDataMacro(*T0_9);
D32 = MTensor_getDimensionsMacro(*T0_9);
{
mint S0 = D32[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_10 = P32[S0];
}
{
mint S0 = D37[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_2 = P37[S0];
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_15);
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_10;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_4);
if( err)
{
goto error_label;
}
}
R0_14 = -R0_4;
R0_15 = R0_15 + R0_14;
R0_14 = R0_15 < 0 ? -R0_15 : R0_15;
R0_15 = 1 / R0_5;
R0_14 = R0_14 * R0_15;
{
mreal S0[2];
S0[0] = R0_14;
S0[1] = R0_10;
B0_3 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_3)
{
goto lab314;
}
{
mint S0 = D37[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_2 = P37[S0];
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_14);
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_10;
S0[1] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_15);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_14;
S0[1] = R0_15;
B0_0 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
B0_1 = B0_0;
goto lab315;
lab314:
B0_1 = B0_2;
lab315:
if( !B0_1)
{
goto lab320;
}
{
mint S0 = D37[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
I0_2 = P37[S0];
}
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_9, 2, 1, &S0);
if( err)
{
goto error_label;
}
P32 = MTensor_getIntegerDataMacro(*T0_9);
D32 = MTensor_getDimensionsMacro(*T0_9);
P32[0] = I0_10;
P32[1] = I0_2;
}
MArgument_getMTensorAddress(FPA[0]) = T0_9;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
goto lab320;
lab320:
{
mint S0 = D37[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
I0_2 = P37[S0];
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_14);
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_10;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_15);
if( err)
{
goto error_label;
}
}
R0_4 = -R0_15;
R0_14 = R0_14 + R0_4;
R0_4 = R0_14 < 0 ? -R0_14 : R0_14;
R0_14 = 1 / R0_5;
R0_4 = R0_4 * R0_14;
{
mreal S0[2];
S0[0] = R0_4;
S0[1] = R0_10;
B0_1 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_1)
{
goto lab336;
}
{
mint S0 = D37[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
I0_2 = P37[S0];
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_4);
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_10;
S0[1] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_14);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_4;
S0[1] = R0_14;
B0_3 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
B0_0 = B0_3;
goto lab337;
lab336:
B0_0 = B0_2;
lab337:
if( !B0_0)
{
goto lab342;
}
{
mint S0 = D37[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_2 = P37[S0];
}
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_9, 2, 1, &S0);
if( err)
{
goto error_label;
}
P32 = MTensor_getIntegerDataMacro(*T0_9);
D32 = MTensor_getDimensionsMacro(*T0_9);
P32[0] = I0_2;
P32[1] = I0_10;
}
MArgument_getMTensorAddress(FPA[0]) = T0_9;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
P37 = MTensor_getIntegerDataMacro(*T0_2);
D37 = MTensor_getDimensionsMacro(*T0_2);
goto lab342;
lab342:
{
mint S0 = D37[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_2 = P37[S0];
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_4);
if( err)
{
goto error_label;
}
}
{
mint S0 = D37[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
I0_2 = P37[S0];
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_14);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_4;
S0[1] = R0_14;
B0_0 = funStructCompile->Compare_R(3, R0_7, 2, S0);
}
if( !B0_0)
{
goto lab355;
}
{
mint S0 = D37[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_2 = P37[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_9, *T0_3, &I0_2, 1);
if( err)
{
goto error_label;
}
P25 = MTensor_getRealDataMacro(*T0_9);
D25 = MTensor_getDimensionsMacro(*T0_9);
{
mint S0 = D37[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
I0_2 = P37[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_10, *T0_3, &I0_2, 1);
if( err)
{
goto error_label;
}
{
mint S0;
mint S1[2];
S1[0] = 2;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D25[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_7, 3, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_7, *T0_9, &S0, 1);
if( err)
{
goto error_label;
}
S0 = 2;
err = libData->MTensor_setMTensor(*T0_7, *T0_10, &S0, 1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getMTensorAddress(FPA[1]) = T0_9;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
goto lab361;
lab355:
{
mint S0 = D37[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
I0_2 = P37[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_9, *T0_3, &I0_2, 1);
if( err)
{
goto error_label;
}
P25 = MTensor_getRealDataMacro(*T0_9);
D25 = MTensor_getDimensionsMacro(*T0_9);
{
mint S0 = D37[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_2 = P37[S0];
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_10, *T0_3, &I0_2, 1);
if( err)
{
goto error_label;
}
{
mint S0;
mint S1[2];
S1[0] = 2;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D25[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_15, 3, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_15, *T0_9, &S0, 1);
if( err)
{
goto error_label;
}
S0 = 2;
err = libData->MTensor_setMTensor(*T0_15, *T0_10, &S0, 1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_15;
MArgument_getMTensorAddress(FPA[1]) = T0_9;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
lab361:
funStructCompile->MTensor_copy(Res, *T0_9);
error_label:
funStructCompile->ReleaseInitializedMTensors(Tinit);
funStructCompile->WolframLibraryData_cleanUp(libData, 1);
return err;
}

Exemple #3

Fichier : findCarriers.c Projet : jasonhogan/sti-deprecated

DLLEXPORT int findCarriers(WolframLibraryData libData, MTensor A1, MTensor A2, mreal A3, mreal A4, mreal A5, MTensor *Res)
{
mbool B0_0;
mbool B0_1;
mbool B0_3;
mbool B0_4;
mbool B0_5;
mbool B0_6;
mint I0_1;
mint I0_2;
mint I0_3;
mint I0_4;
mint I0_5;
mint I0_7;
mint I0_10;
mint I0_11;
mint I0_12;
mreal R0_0;
mreal R0_1;
mreal R0_2;
mreal R0_3;
mreal R0_4;
mreal R0_5;
mreal R0_6;
mreal R0_9;
mreal R0_10;
mreal R0_13;
mreal R0_14;
mreal R0_15;
mreal R0_16;
MTensor* T0_0;
MTensor* T0_1;
MTensor* T0_2;
MTensor* T0_3;
MTensor* T0_4;
MTensor* T0_5;
MTensor* T0_6;
MTensor* T0_7;
MTensor* T0_8;
MTensor* T0_10;
MTensor* T0_11;
MTensor* T0_12;
MTensorInitializationData Tinit;
mint dims[3];
mint *D3;
mreal *P4;
mint *D4;
mreal *P6;
mint *D6;
mint *D8;
mreal *P9;
mreal *P11;
mint *D11;
mint *P12;
mint *D14;
mint *P15;
mint *D15;
mint *P16;
mint *D16;
mint *D17;
mint *P18;
mint *D23;
mint *D24;
MArgument FPA[4];
int err = 0;
Tinit = funStructCompile->GetInitializedMTensors(libData, 10);
T0_10 = MTensorInitializationData_getTensor(Tinit, 0);
T0_11 = MTensorInitializationData_getTensor(Tinit, 1);
T0_12 = MTensorInitializationData_getTensor(Tinit, 2);
T0_2 = MTensorInitializationData_getTensor(Tinit, 3);
T0_3 = MTensorInitializationData_getTensor(Tinit, 4);
T0_4 = MTensorInitializationData_getTensor(Tinit, 5);
T0_5 = MTensorInitializationData_getTensor(Tinit, 6);
T0_6 = MTensorInitializationData_getTensor(Tinit, 7);
T0_7 = MTensorInitializationData_getTensor(Tinit, 8);
T0_8 = MTensorInitializationData_getTensor(Tinit, 9);
T0_0 = &A1;
T0_1 = &A2;
R0_0 = A3;
R0_1 = A4;
R0_2 = A5;
MArgument_getMTensorAddress(FPA[0]) = T0_0;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D3 = MTensor_getDimensionsMacro(*T0_2);
I0_2 = D3[0];
I0_5 = I0_6;
dims[0] = I0_2;
err = funStructCompile->MTensor_allocate(T0_3, 3, 1, dims);
if( err)
{
goto error_label;
}
P4 = MTensor_getRealDataMacro(*T0_3);
D4 = MTensor_getDimensionsMacro(*T0_3);
I0_4 = I0_6;
goto lab15;
lab7:
{
mint S0[2];
S0[0] = I0_4;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_2, S0, &R0_5);
if( err)
{
goto error_label;
}
}
I0_3 = D3[0];
{
mint S0 = FP1((void*) (&I0_7), (void*) (&I0_4), (void*) (&I0_3), 1, UnitIncrements, 4);/*  Mod  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0 = FP2((void*) (&I0_7), (void*) (&I0_7), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_7;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_2, S0, &R0_4);
if( err)
{
goto error_label;
}
}
R0_6 = -R0_4;
R0_5 = R0_5 + R0_6;
P4[I0_5++] = R0_5;
lab15:
if( ++I0_4 <= I0_2)
{
goto lab7;
}
MArgument_getMTensorAddress(FPA[0]) = T0_3;
MArgument_getMTensorAddress(FPA[1]) = T0_4;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getMTensorAddress(FPA[1]) = T0_5;
err = FP3(libData, 1, FPA, FPA[1]);/*  Union  */
if( err)
{
goto error_label;
}
P6 = MTensor_getRealDataMacro(*T0_5);
D6 = MTensor_getDimensionsMacro(*T0_5);
I0_2 = D6[0];
I0_3 = I0_8;
dims[0] = I0_2;
dims[1] = I0_3;
err = funStructCompile->MTensor_allocate(T0_7, 3, 2, dims);
if( err)
{
goto error_label;
}
I0_4 = I0_6;
goto lab30;
lab23:
R0_3 = P6[I0_4 - 1];
{
MTensor S0 = funStructCompile->getRankZeroMTensor((void*) (&R0_3), 3, 0);
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getMTensorAddress(FPA[1]) = &S0;
MArgument_getRealAddress(FPA[2]) = &R0_7;
MArgument_getMTensorAddress(FPA[3]) = T0_8;
err = FP4(libData, 3, FPA, FPA[3]);/*  Position  */
if( err)
{
goto error_label;
}
}
D8 = MTensor_getDimensionsMacro(*T0_8);
I0_7 = D8[0];
R0_3 = P6[I0_4 - 1];
R0_6 = (mreal) I0_7;
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_8, 3, 1, &S0);
if( err)
{
goto error_label;
}
P9 = MTensor_getRealDataMacro(*T0_8);
P9[0] = R0_6;
P9[1] = R0_3;
}
err = funStructCompile->MTensor_insertMTensor(*T0_7, *T0_8, &I0_3);
if( err)
{
goto error_label;
}
lab30:
if( ++I0_4 <= I0_2)
{
goto lab23;
}
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getMTensorAddress(FPA[1]) = T0_5;
err = FP5(libData, 1, FPA, FPA[1]);/*  Sort  */
if( err)
{
goto error_label;
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_7, *T0_5, &I0_8, 1);
if( err)
{
goto error_label;
}
P11 = MTensor_getRealDataMacro(*T0_7);
D11 = MTensor_getDimensionsMacro(*T0_7);
{
mint S0 = D11[0];
if( I0_9 > 0)
{
if( I0_9 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_9 - 1;
}
else
{
if( I0_9 == 0 || I0_9 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_9;
}
R0_3 = P11[S0];
}
{
mint S0 = 1;
err = funStructCompile->MTensor_allocate(T0_7, 3, 1, &S0);
if( err)
{
goto error_label;
}
P11 = MTensor_getRealDataMacro(*T0_7);
D11 = MTensor_getDimensionsMacro(*T0_7);
P11[0] = R0_3;
}
{
mint S0 = D11[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
R0_3 = P11[S0];
}
R0_6 = R0_3 < 0 ? -R0_3 : R0_3;
I0_3 = D4[0];
I0_4 = I0_6;
dims[0] = I0_3;
err = funStructCompile->MTensor_allocate(T0_4, 2, 1, dims);
if( err)
{
goto error_label;
}
P12 = MTensor_getIntegerDataMacro(*T0_4);
I0_2 = I0_6;
goto lab52;
lab42:
R0_4 = P4[I0_2 - 1];
R0_3 = R0_4 < 0 ? -R0_4 : R0_4;
R0_4 = (mreal) I0_9;
R0_4 = R0_4 * R0_6;
{
mreal S0[2];
S0[0] = R0_3;
S0[1] = R0_4;
B0_0 = funStructCompile->Compare_R(7, R0_8, 2, S0);
}
if( !B0_0)
{
goto lab50;
}
I0_10 = I0_0;
goto lab51;
lab50:
I0_10 = I0_6;
lab51:
P12[I0_4++] = I0_10;
lab52:
if( ++I0_2 <= I0_3)
{
goto lab42;
}
{
MTensor S0 = funStructCompile->getRankZeroMTensor((void*) (&I0_0), 2, 0);
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getMTensorAddress(FPA[1]) = &S0;
MArgument_getMTensorAddress(FPA[2]) = T0_5;
err = FP4(libData, 2, FPA, FPA[2]);/*  Position  */
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_9;
MArgument_getMTensorAddress(FPA[1]) = T0_5;
MArgument_getMTensorAddress(FPA[2]) = T0_4;
err = FP6(libData, 2, FPA, FPA[2]);/*  Join  */
if( err)
{
goto error_label;
}
D14 = MTensor_getDimensionsMacro(*T0_4);
I0_5 = D14[0];
I0_10 = I0_6;
dims[0] = I0_5;
err = funStructCompile->MTensor_allocate(T0_5, 2, 1, dims);
if( err)
{
goto error_label;
}
P15 = MTensor_getIntegerDataMacro(*T0_5);
D15 = MTensor_getDimensionsMacro(*T0_5);
I0_7 = I0_6;
goto lab63;
lab60:
funStructCompile->MTensor_getMTensorInitialized(T0_6, *T0_4, &I0_7, 1);
P16 = MTensor_getIntegerDataMacro(*T0_6);
D16 = MTensor_getDimensionsMacro(*T0_6);
{
mint S0 = D16[0];
if( I0_0 > 0)
{
if( I0_0 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_0 - 1;
}
else
{
if( I0_0 == 0 || I0_0 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_0;
}
I0_3 = P16[S0];
}
P15[I0_10++] = I0_3;
lab63:
if( ++I0_7 <= I0_5)
{
goto lab60;
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_9);
err = funStructCompile->MTensor_getPart(T0_4, *T0_2, 2, S0, S1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getRealAddress(FPA[1]) = &R0_3;
err = FP7(libData, 1, FPA, FPA[1]);/*  MaxRT  */
if( err)
{
goto error_label;
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_9);
err = funStructCompile->MTensor_getPart(T0_4, *T0_2, 2, S0, S1);
if( err)
{
goto error_label;
}
}
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getRealAddress(FPA[1]) = &R0_4;
err = FP8(libData, 1, FPA, FPA[1]);/*  MinRT  */
if( err)
{
goto error_label;
}
I0_4 = I0_6;
I0_1 = I0_6;
I0_10 = D15[0];
{
mint S0 = FP2((void*) (&I0_10), (void*) (&I0_10), (void*) (&I0_8), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_3 = I0_8;
dims[0] = I0_10;
dims[1] = I0_0;
dims[2] = I0_3;
err = funStructCompile->MTensor_allocate(T0_11, 3, 3, dims);
if( err)
{
goto error_label;
}
D17 = MTensor_getDimensionsMacro(*T0_11);
I0_5 = I0_6;
goto lab94;
lab76:
{
mint S0 = D15[0];
if( I0_5 > 0)
{
if( I0_5 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_5 - 1;
}
else
{
if( I0_5 == 0 || I0_5 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_5;
}
I0_11 = P15[S0];
}
{
mint S0 = FP2((void*) (&I0_2), (void*) (&I0_0), (void*) (&I0_11), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0 = FP2((void*) (&I0_11), (void*) (&I0_5), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
{
mint S0 = D15[0];
if( I0_11 > 0)
{
if( I0_11 > S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = I0_11 - 1;
}
else
{
if( I0_11 == 0 || I0_11 < -S0)
{
return LIBRARY_DIMENSION_ERROR;
}
S0 = S0 + I0_11;
}
I0_12 = P15[S0];
}
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_7, 2, 1, &S0);
if( err)
{
goto error_label;
}
P18 = MTensor_getIntegerDataMacro(*T0_7);
P18[0] = I0_2;
P18[1] = I0_12;
}
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getIntegerAddress(FPA[1]) = &I0_0;
MArgument_getMTensorAddress(FPA[2]) = T0_7;
MArgument_getMTensorAddress(FPA[3]) = T0_6;
err = FP9(libData, 3, FPA, FPA[3]);/*  Take  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_6;
MArgument_getMTensorAddress(FPA[1]) = T0_7;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_9);
err = funStructCompile->MTensor_getPart(T0_8, *T0_7, 2, S0, S1);
if( err)
{
goto error_label;
}
}
P9 = MTensor_getRealDataMacro(*T0_8);
MArgument_getMTensorAddress(FPA[0]) = T0_8;
MArgument_getRealAddress(FPA[1]) = &R0_5;
err = FP7(libData, 1, FPA, FPA[1]);/*  MaxRT  */
if( err)
{
goto error_label;
}
{
MTensor S0 = funStructCompile->getRankZeroMTensor((void*) (&R0_5), 3, 0);
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getMTensorAddress(FPA[1]) = &S0;
MArgument_getRealAddress(FPA[2]) = &R0_7;
MArgument_getMTensorAddress(FPA[3]) = T0_8;
err = FP4(libData, 3, FPA, FPA[3]);/*  Position  */
if( err)
{
goto error_label;
}
}
D8 = MTensor_getDimensionsMacro(*T0_8);
{
mint S0[2];
S0[0] = I0_0;
S0[1] = I0_0;
err = libData->MTensor_getInteger(*T0_8, S0, &I0_2);
if( err)
{
goto error_label;
}
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_7, *T0_6, 2, S0, S1);
if( err)
{
goto error_label;
}
}
P11 = MTensor_getRealDataMacro(*T0_7);
D11 = MTensor_getDimensionsMacro(*T0_7);
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getRealAddress(FPA[1]) = &R0_5;
err = FP8(libData, 1, FPA, FPA[1]);/*  MinRT  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_7;
MArgument_getRealAddress(FPA[1]) = &R0_9;
err = FP7(libData, 1, FPA, FPA[1]);/*  MaxRT  */
if( err)
{
goto error_label;
}
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_8, 3, 1, &S0);
if( err)
{
goto error_label;
}
P9 = MTensor_getRealDataMacro(*T0_8);
P9[0] = R0_5;
P9[1] = R0_9;
}
err = funStructCompile->MTensor_getMTensorInitialized(T0_7, *T0_6, &I0_2, 1);
if( err)
{
goto error_label;
}
P11 = MTensor_getRealDataMacro(*T0_7);
D11 = MTensor_getDimensionsMacro(*T0_7);
{
mint S0;
mint S1[2];
S1[0] = 2;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D11[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_12, 3, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_12, *T0_7, &S0, 1);
if( err)
{
goto error_label;
}
S0 = 2;
err = libData->MTensor_setMTensor(*T0_12, *T0_8, &S0, 1);
if( err)
{
goto error_label;
}
}
err = funStructCompile->MTensor_insertMTensor(*T0_11, *T0_12, &I0_3);
if( err)
{
goto error_label;
}
lab94:
if( ++I0_5 <= I0_10)
{
goto lab76;
}
I0_10 = D17[0];
I0_5 = I0_6;
dims[0] = I0_10;
err = funStructCompile->MTensor_allocate(T0_4, 2, 1, dims);
if( err)
{
goto error_label;
}
P12 = MTensor_getIntegerDataMacro(*T0_4);
I0_12 = I0_6;
goto lab117;
lab100:
funStructCompile->MTensor_getMTensorInitialized(T0_12, *T0_11, &I0_12, 1);
MArgument_getMTensorAddress(FPA[0]) = T0_12;
MArgument_getMTensorAddress(FPA[1]) = T0_6;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
{
mint S0[2];
S0[0] = I0_0;
S0[1] = I0_9;
err = libData->MTensor_getReal(*T0_6, S0, &R0_5);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_5;
S0[1] = R0_4;
B0_0 = funStructCompile->Compare_R(7, R0_8, 2, S0);
}
if( !B0_0)
{
goto lab109;
}
{
mint S0[2];
S0[0] = I0_0;
S0[1] = I0_9;
err = libData->MTensor_getReal(*T0_6, S0, &R0_5);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_5;
S0[1] = R0_3;
B0_1 = funStructCompile->Compare_R(3, R0_8, 2, S0);
}
B0_3 = B0_1;
goto lab110;
lab109:
B0_3 = B0_2;
lab110:
if( !B0_3)
{
goto lab115;
}
{
mint S0 = FP2((void*) (&I0_11), (void*) (&I0_4), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_4 = I0_11;
I0_11 = I0_12;
goto lab116;
lab115:
I0_11 = I0_8;
lab116:
P12[I0_5++] = I0_11;
lab117:
if( ++I0_12 <= I0_10)
{
goto lab100;
}
I0_7 = I0_4;
I0_2 = I0_8;
dims[0] = I0_7;
dims[1] = I0_0;
dims[2] = I0_2;
err = funStructCompile->MTensor_allocate(T0_8, 3, 3, dims);
if( err)
{
goto error_label;
}
I0_3 = I0_6;
goto lab133;
lab123:
{
mint S0 = FP2((void*) (&I0_5), (void*) (&I0_1), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_1 = I0_5;
lab125:
I0_5 = P12[I0_1 - 1];
B0_3 = I0_5 == I0_8;
if( !B0_3)
{
goto lab131;
}
{
mint S0 = FP2((void*) (&I0_5), (void*) (&I0_1), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_1 = I0_5;
goto lab125;
lab131:
funStructCompile->MTensor_getMTensorInitialized(T0_7, *T0_11, &I0_1, 1);
err = funStructCompile->MTensor_insertMTensor(*T0_8, *T0_7, &I0_2);
if( err)
{
goto error_label;
}
lab133:
if( ++I0_3 <= I0_7)
{
goto lab123;
}
MArgument_getMTensorAddress(FPA[0]) = T0_8;
MArgument_getMTensorAddress(FPA[1]) = T0_2;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_1;
MArgument_getMTensorAddress(FPA[1]) = T0_5;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
R0_4 = R0_1;
R0_3 = R0_0;
R0_6 = R0_2;
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getMTensorAddress(FPA[1]) = T0_3;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D23 = MTensor_getDimensionsMacro(*T0_3);
{
mint S0[2];
S0[0] = I0_0;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_5, S0, &R0_5);
if( err)
{
goto error_label;
}
}
R0_5 = R0_5 + R0_6;
R0_9 = R0_4;
R0_10 = R0_3;
I0_4 = I0_8;
R0_13 = R0_11;
R0_14 = R0_12 * R0_9;
lab147:
B0_1 = I0_4 < I0_6;
if( !B0_1)
{
goto lab154;
}
R0_15 = (mreal) I0_13;
R0_15 = R0_15 * R0_9;
{
mreal S0[2];
S0[0] = R0_14;
S0[1] = R0_15;
B0_3 = funStructCompile->Compare_R(3, R0_8, 2, S0);
}
B0_0 = B0_3;
goto lab155;
lab154:
B0_0 = B0_2;
lab155:
if( !B0_0)
{
goto lab188;
}
I0_2 = I0_0;
lab157:
I0_3 = D23[0];
B0_1 = I0_2 <= I0_3;
if( !B0_1)
{
goto lab184;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_15);
if( err)
{
goto error_label;
}
}
R0_16 = -R0_5;
R0_15 = R0_15 + R0_16;
R0_16 = R0_15 < 0 ? -R0_15 : R0_15;
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_14;
B0_3 = funStructCompile->Compare_R(3, R0_8, 2, S0);
}
if( !B0_3)
{
goto lab180;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_13;
B0_6 = funStructCompile->Compare_R(7, R0_8, 2, S0);
}
if( !B0_6)
{
goto lab173;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_10;
B0_4 = funStructCompile->Compare_R(7, R0_8, 2, S0);
}
B0_5 = B0_4;
goto lab174;
lab173:
B0_5 = B0_2;
lab174:
if( !B0_5)
{
goto lab179;
}
I0_4 = I0_2;
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_16);
if( err)
{
goto error_label;
}
}
R0_13 = R0_16;
goto lab179;
lab179:
goto lab180;
lab180:
I0_3 = I0_2;
{
mint S0 = FP2((void*) (&I0_7), (void*) (&I0_3), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_2 = I0_7;
goto lab157;
lab184:
R0_16 = R0_12 * R0_9;
R0_15 = R0_14 + R0_16;
R0_14 = R0_15;
goto lab147;
lab188:
{
mint S0[2];
S0[0] = I0_4;
S0[1] = I0_0;
err = funStructCompile->MTensor_getMTensorInitialized(T0_11, *T0_3, S0, 2);
if( err)
{
goto error_label;
}
}
D24 = MTensor_getDimensionsMacro(*T0_11);
MArgument_getMTensorAddress(FPA[0]) = T0_2;
MArgument_getMTensorAddress(FPA[1]) = T0_3;
err = FP0(libData, 1, FPA, FPA[1]);/*  CopyTensor  */
if( err)
{
goto error_label;
}
D23 = MTensor_getDimensionsMacro(*T0_3);
{
mint S0[2];
S0[0] = I0_9;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_5, S0, &R0_10);
if( err)
{
goto error_label;
}
}
R0_10 = R0_10 + R0_6;
R0_9 = R0_4;
R0_5 = R0_3;
I0_4 = I0_8;
R0_14 = R0_11;
R0_13 = R0_12 * R0_9;
lab197:
B0_3 = I0_4 < I0_6;
if( !B0_3)
{
goto lab204;
}
R0_15 = (mreal) I0_13;
R0_15 = R0_15 * R0_9;
{
mreal S0[2];
S0[0] = R0_13;
S0[1] = R0_15;
B0_0 = funStructCompile->Compare_R(3, R0_8, 2, S0);
}
B0_1 = B0_0;
goto lab205;
lab204:
B0_1 = B0_2;
lab205:
if( !B0_1)
{
goto lab238;
}
I0_2 = I0_0;
lab207:
I0_3 = D23[0];
B0_3 = I0_2 <= I0_3;
if( !B0_3)
{
goto lab234;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_15);
if( err)
{
goto error_label;
}
}
R0_16 = -R0_10;
R0_15 = R0_15 + R0_16;
R0_16 = R0_15 < 0 ? -R0_15 : R0_15;
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_13;
B0_0 = funStructCompile->Compare_R(3, R0_8, 2, S0);
}
if( !B0_0)
{
goto lab230;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_14;
B0_4 = funStructCompile->Compare_R(7, R0_8, 2, S0);
}
if( !B0_4)
{
goto lab223;
}
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_0;
err = libData->MTensor_getReal(*T0_3, S0, &R0_16);
if( err)
{
goto error_label;
}
}
{
mreal S0[2];
S0[0] = R0_16;
S0[1] = R0_5;
B0_5 = funStructCompile->Compare_R(7, R0_8, 2, S0);
}
B0_6 = B0_5;
goto lab224;
lab223:
B0_6 = B0_2;
lab224:
if( !B0_6)
{
goto lab229;
}
I0_4 = I0_2;
{
mint S0[3];
S0[0] = I0_2;
S0[1] = I0_0;
S0[2] = I0_9;
err = libData->MTensor_getReal(*T0_3, S0, &R0_16);
if( err)
{
goto error_label;
}
}
R0_14 = R0_16;
goto lab229;
lab229:
goto lab230;
lab230:
I0_3 = I0_2;
{
mint S0 = FP2((void*) (&I0_7), (void*) (&I0_3), (void*) (&I0_0), 1, UnitIncrements, 4);/*  Plus  */
err = S0 == 0 ? 0 : LIBRARY_NUMERICAL_ERROR;
if( err)
{
goto error_label;
}
}
I0_2 = I0_7;
goto lab207;
lab234:
R0_16 = R0_12 * R0_9;
R0_15 = R0_13 + R0_16;
R0_13 = R0_15;
goto lab197;
lab238:
{
mint S0[2];
S0[0] = I0_4;
S0[1] = I0_0;
err = funStructCompile->MTensor_getMTensorInitialized(T0_12, *T0_3, S0, 2);
if( err)
{
goto error_label;
}
}
{
mint S0;
mint S1[2];
S1[0] = 2;
for( S0 = 1; S0 < 2; S0++)
{
S1[S0] = D24[S0 - 1];
}
err = funStructCompile->MTensor_allocate(T0_3, 3, 2, S1);
if( err)
{
goto error_label;
}
S0 = 1;
err = libData->MTensor_setMTensor(*T0_3, *T0_11, &S0, 1);
if( err)
{
goto error_label;
}
S0 = 2;
err = libData->MTensor_setMTensor(*T0_3, *T0_12, &S0, 1);
if( err)
{
goto error_label;
}
}
funStructCompile->MTensor_copy(Res, *T0_3);
error_label:
funStructCompile->ReleaseInitializedMTensors(Tinit);
funStructCompile->WolframLibraryData_cleanUp(libData, 1);
return err;
}

Exemple #4

Fichier : myWolframRTL.c Projet : shanecelis/sussex-thesis-doc

mreal* myMTensor_getRealData( MTensor Tdest)
{
  assert(Tdest != NULL);
  return MTensor_getRealDataMacro(Tdest);
}

Exemple #5

Fichier : getFeedbackSignalsFromFirstAndSecondSidebands.c Projet : jasonhogan/sti-deprecated

DLLEXPORT int getFeedbackSignalsFromFirstAndSecondSidebands(WolframLibraryData libData, MTensor A1, MTensor *Res)
{
mint I0_4;
mreal R0_0;
mreal R0_1;
mreal R0_2;
mreal R0_3;
mreal R0_4;
MTensor* T0_0;
MTensor* T0_1;
MTensor* T0_2;
MTensor* T0_3;
MTensor* T0_4;
MTensorInitializationData Tinit;
mint *D3;
mreal *P4;
MArgument FPA[4];
int err = 0;
Tinit = funStructCompile->GetInitializedMTensors(libData, 4);
T0_1 = MTensorInitializationData_getTensor(Tinit, 0);
T0_2 = MTensorInitializationData_getTensor(Tinit, 1);
T0_3 = MTensorInitializationData_getTensor(Tinit, 2);
T0_4 = MTensorInitializationData_getTensor(Tinit, 3);
T0_0 = &A1;
MArgument_getMTensorAddress(FPA[0]) = T0_0;
MArgument_getIntegerAddress(FPA[1]) = &I0_1;
MArgument_getIntegerAddress(FPA[2]) = &I0_0;
MArgument_getMTensorAddress(FPA[3]) = T0_1;
err = FP0(libData, 3, FPA, FPA[3]);/*  Take  */
if( err)
{
goto error_label;
}
MArgument_getMTensorAddress(FPA[0]) = T0_0;
MArgument_getIntegerAddress(FPA[1]) = &I0_1;
MArgument_getIntegerAddress(FPA[2]) = &I0_0;
MArgument_getMTensorAddress(FPA[3]) = T0_2;
err = FP1(libData, 3, FPA, FPA[3]);/*  Drop  */
if( err)
{
goto error_label;
}
{
mint S0[2];
S0[0] = I0_2;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_1, S0, &R0_0);
if( err)
{
goto error_label;
}
}
{
mint S0[2];
S0[0] = I0_0;
S0[1] = I0_0;
err = libData->MTensor_getReal(*T0_1, S0, &R0_1);
if( err)
{
goto error_label;
}
}
R0_2 = -R0_1;
R0_0 = R0_0 + R0_2;
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_4, *T0_1, 2, S0, S1);
if( err)
{
goto error_label;
}
}
D3 = MTensor_getDimensionsMacro(*T0_4);
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getIntegerAddress(FPA[1]) = &I0_3;
MArgument_getRealAddress(FPA[2]) = &R0_2;
err = FP2(libData, 2, FPA, FPA[2]);/*  TotalAll  */
if( err)
{
goto error_label;
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_4, *T0_1, 2, S0, S1);
if( err)
{
goto error_label;
}
}
D3 = MTensor_getDimensionsMacro(*T0_4);
I0_4 = D3[0];
R0_1 = (mreal) I0_4;
R0_3 = 1 / R0_1;
R0_2 = R0_2 * R0_3;
R0_3 = 1 / R0_2;
R0_0 = R0_0 * R0_3;
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_4, *T0_2, 2, S0, S1);
if( err)
{
goto error_label;
}
}
D3 = MTensor_getDimensionsMacro(*T0_4);
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getIntegerAddress(FPA[1]) = &I0_3;
MArgument_getRealAddress(FPA[2]) = &R0_3;
err = FP2(libData, 2, FPA, FPA[2]);/*  TotalAll  */
if( err)
{
goto error_label;
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_4, *T0_2, 2, S0, S1);
if( err)
{
goto error_label;
}
}
D3 = MTensor_getDimensionsMacro(*T0_4);
I0_4 = D3[0];
R0_2 = (mreal) I0_4;
R0_1 = 1 / R0_2;
R0_3 = R0_3 * R0_1;
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_4, *T0_1, 2, S0, S1);
if( err)
{
goto error_label;
}
}
D3 = MTensor_getDimensionsMacro(*T0_4);
MArgument_getMTensorAddress(FPA[0]) = T0_4;
MArgument_getIntegerAddress(FPA[1]) = &I0_3;
MArgument_getRealAddress(FPA[2]) = &R0_1;
err = FP2(libData, 2, FPA, FPA[2]);/*  TotalAll  */
if( err)
{
goto error_label;
}
{
int S0[2];
void* S1[2];
S0[0] = 2;
S1[0] = 0;
S0[1] = 0;
S1[1] = (void*) (&I0_0);
err = funStructCompile->MTensor_getPart(T0_4, *T0_1, 2, S0, S1);
if( err)
{
goto error_label;
}
}
D3 = MTensor_getDimensionsMacro(*T0_4);
I0_4 = D3[0];
R0_2 = (mreal) I0_4;
R0_4 = 1 / R0_2;
R0_1 = R0_1 * R0_4;
R0_4 = 1 / R0_1;
R0_3 = R0_3 * R0_4;
{
mint S0 = 2;
err = funStructCompile->MTensor_allocate(T0_3, 3, 1, &S0);
if( err)
{
goto error_label;
}
P4 = MTensor_getRealDataMacro(*T0_3);
P4[0] = R0_0;
P4[1] = R0_3;
}
funStructCompile->MTensor_copy(Res, *T0_3);
error_label:
funStructCompile->ReleaseInitializedMTensors(Tinit);
funStructCompile->WolframLibraryData_cleanUp(libData, 1);
return err;
}