function callFunctioncleandata(filename,xye)
    f_temp = mopen(filename, 'wt');  // Creating a text file
    xye_split = strsplit(xye,';');  // split string for ';'
    ary_size = size(xye_split);  // get size of array which will be 6 1
    n = ary_size(1);                // retrive only size of element ie. 6
    arry_xye = [];
    for i = 1:n
        comma_split = strsplit(xye_split(i),',');  // split string for ','
        comma_ary_size = size(comma_split);  // get size of array which will be 6 1
        m = comma_ary_size(1);
        for j = 1:m
        arry_xye(i)(j) = strtod(comma_split(j));  // convert string to double and add to array
        end
    end
    [xy] = cleandata([arry_xye]);  // pass new array to cleandata and save return value in xy
    [m,n] = size(xy)  // reading the size of variable
    mfprintf(f_temp, '[[');
    for y = 1:m  // no. of rows in variables
        for z = 1:n  // no. of columns in variables
            if z == n then
            mfprintf(f_temp, '%.17g', xy(y,z));  // Print the variable values
            else
            mfprintf(f_temp, '%.17g,', xy(y,z));  // Print the variable values
            end
        end
        if y ~= m then
            mfprintf(f_temp, '],[')
        end
    end
    mfprintf(f_temp, ']]');
    mclose(f_temp)
endfunction

function callFunction_do_Spline(filename,N,order,x,y)
    f_temp = mopen(filename, 'wt');  // Creating a text file
    if ((strindex(x,",")) ~= []) then  // if x value is array (0,0) or single value 0
        x_split = strsplit(x,',');  // split string for ','
        x_size = size(x_split);     // get size of array
        n = x_size(1);                // retrive size
        x = [];
        for i = 1:n
            x(1)(i) = strtod(x_split(i));  // convert string to double and add to array
        end
    else
        x = strtod(x);  // in case x is single value 0 convert it into double
    end
    if ((strindex(y,",")) ~= []) then  // if y value is array (0,0) or single value 0
        y_split = strsplit(y,',');  // split string for ','
        y_size = size(y_split);     // get size of array
        n = y_size(1);                // retrive size
        y = [];
        for i = 1:n
            y(1)(i) = strtod(y_split(i));  // convert string to double and add to array
        end
    else
        y = strtod(y);  // in case y is single value 0 convert it into double
    end
    [Xdummy,Ydummy,orpar] = Do_Spline(strtod(N),strtod(order),x,y);  // pass new array to do_spline and save return value in [Xdummy,Ydummy,orpar]
    Do_Spline_write(Xdummy,Ydummy,orpar,f_temp);
    mclose(f_temp)
endfunction

function Do_Spline_write(Xdummy,Ydummy,orpar,f_temp)
    mfprintf(f_temp, '{');
    mfprintf(f_temp, '""Xdummy"":[');
    for i = 1:length(Xdummy)
        if (i == length(Xdummy)) then
            mfprintf(f_temp, '%.17g', Xdummy(i));
        else
            mfprintf(f_temp, '%.17g,', Xdummy(i));
        end
    end
    mfprintf(f_temp, ']');
    mfprintf(f_temp, ',""Ydummy"":[');
    for i = 1:length(Ydummy)
        if (i == length(Ydummy)) then
            mfprintf(f_temp, '%.17g', Ydummy(i));
        else
            mfprintf(f_temp, '%.17g,', Ydummy(i));
        end
    end
    mfprintf(f_temp, ']');
    mfprintf(f_temp, ',""orpar"":[');
    for i = 1:length(orpar)
        if (i == length(orpar)) then
            mfprintf(f_temp, '%d', orpar(i));
        else
            mfprintf(f_temp, '%d,', orpar(i));
        end
    end
    mfprintf(f_temp, ']');
    mfprintf(f_temp, '}');
endfunction