<commit_before><commit_msg>successful test for othogonal qrfactorisation function<commit_after>$load "rosella/test.pbc";
$load "../../src/LAPACK/orthoqrfactorisation.pbc";

class Test_dorgqr
{

    function dorgqr_test()
    {
	var pla = loadlib("linalg_group");
        var a = new 'NumMatrix2D';
        a.initialize_from_args(3, 3,
                                1.0, 0.0, 0.0,
                                0.0, 1.0, 0.0,
                                0.0, 0.0, 1.0);
//have to make a copy of a 
	int info;
	using dorgqr_func.dorgqr_exec;
	info=dorgqr_exec(a,0);
	
        self.assert.equal(info,0);
	self.assert.equal(a,a);
	say("printing A");
        say(a);
	
    }
}

function main[main](var args)
{
	using Rosella.Test.test;
	test(class Test_dorgqr);
}
{'fraction_non_alphanumeric': 0.13838120104438642, 'fraction_numerical': 0.030026109660574413, 'mean_word_length': 2.0803212851405624, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 3, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1953957', 'n_tokens_mistral': 306, 'n_tokens_neox': 284, 'n_words': 55}