2.1.17.5.12 ocmath_free_comm_struct

1 Description
2 Syntax
3 Parameters
4 Return
5 Examples
6 Remark
7 See Also
8 Header to Include
9 Reference

Description

Free all pointer type elements of struct ocmath_Comm by ocmath functions(calling NAG_FREE).

Syntax

void ocmath_free_comm_struct( ocmath_Comm * warmstartinf )

Parameters

warmstartinf: [input] A pointer to a struct ocmath_Comm

Return

Examples

EX1

void     ocmath_free_comm_struct_ex1()
{
    int NEST = 54;
    int m = 15, r, j;
    double weights[50] = {1.00, 2.00, 1.50, 1.00, 3.00, 1.00, 0.50, 1.00, 2.00, 2.50, 1.00, 3.00, 1.00, 2.00, 1.00};
    double x[50] = {0.0000E+00, 5.0000E-01, 1.0000E+00, 1.5000E+00, 2.0000E+00, 2.5000E+00, 3.0000E+00, 4.0000E+00,
                    4.5000E+00, 5.0000E+00, 5.5000E+00, 6.0000E+00, 7.0000E+00, 7.5000E+00, 8.0000E+00};
    double y[50] = {-1.1000E+00, -3.7200E-01, 4.3100E-01, 1.6900E+00, 2.1100E+00, 3.1000E+00, 4.2300E+00, 4.3500E+00,
                    4.8100E+00, 4.6100E+00, 4.7900E+00, 5.2300E+00, 6.3500E+00, 7.1900E+00, 7.9700E+00};
    double s[3] = {1.0, 0.5, 0.1};
    double fp, sp[99], txr;
    OCMATH_START start;
    ocmath_Comm warmstartinf;
    ocmath_Spline spline;

    start = START_COLD;

    int nRet = ocmath_1d_spline_fit(start, m, x, y, weights, s[2], NEST, &fp, &warmstartinf, &spline);

    ocmath_free_comm_struct(&warmstartinf);
}