transa := "ConjugateTranspose":
transb := "ConjugateTranspose":
m := 9:
n := 9:
k := 9:
alpha := 0.7:
tda := 20:
tdb := 20:
beta := 1.3:
tdc := 20:
a := Matrix([[-0.4525474525474525, 0.3466533466533466, -0.02297702297702298, 0, 0.3366633366633366, 0.06693306693306693, -0.1328671328671329, 0.2967032967032967, 0.4265734265734266, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.3766233766233766, -0.2927072927072927, -0.4925074925074925, 0, 0.2667332667332667, -0.3026973026973027, -0.1728271728271728, -0.3726273726273726, 0.4565434565434565, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.09290709290709291, -0.06293706293706294, -0.3326673326673327, 0, -0.1028971028971029, 0.02697302697302697, -0.1428571428571428, 0.3866133866133866, 0.1868131868131868, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.1368631368631369, -0.1328671328671329, 0.2967032967032967, 0.4265734265734266, 0.2267732267732268, 0.05694305694305694, -0.4125874125874126, -0.1828171828171828, -0.2527472527472527, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.06693306693306693, 0.4965034965034965, -0.3726273726273726, 0, -0.01298701298701299, -0.2127872127872128, 0.01698301698301698, -0.05294705294705294, -0.4225774225774226, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.02697302697302697, -0.1728271728271728, -0.3426573426573427, 0, 0.4165834165834166, 0.3466533466533466, 0.1468531468531468, -0.2227772227772228, 0.1068931068931069, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.05694305694305694, -0.4125874125874126, 0.3866133866133866, 0, -0.4525474525474525, 0.1768231768231768, -0.4925074925074925, 0.3066933066933067, 0.3366633366633366, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.2127872127872128, 0.01698301698301698, -0.05294705294705294, 0, 0.3766233766233766, -0.2927072927072927, -0.2627372627372627, 0.4665334665334666, 0.2667332667332667, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.2167832167832168, 0.1468531468531468, -0.2227772227772228, 0, -0.09290709290709291, -0.06293706293706294, -0.3326673326673327, 0.0969030969030969, 0.2267732267732268, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]], datatype=float[8], order='C_order'):
b := Matrix([[-0.4225774225774226, -0.09290709290709291, -0.2927072927072927, 0, 0.4665334665334666, -0.1028971028971029, 0.02697302697302697, -0.1728271728271728, -0.3426573426573427, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.1068931068931069, 0.1368631368631369, -0.1328671328671329, 0, 0.0969030969030969, 0.2267732267732268, 0.05694305694305694, -0.4125874125874126, 0.3866133866133866, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.3366633366633366, 0.06693306693306693, 0.4965034965034965, 0, 0.4265734265734266, 0.2567432567432568, -0.2127872127872128, 0.01698301698301698, -0.05294705294705294, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.2667332667332667, -0.3026973026973027, -0.1728271728271728, -0.3426573426573427, 0.1868131868131868, -0.01298701298701299, 0.2167832167832168, 0.1468531468531468, -0.2227772227772228, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.2267732267732268, 0.02697302697302697, -0.1428571428571428, 0, -0.3826173826173826, -0.4525474525474525, 0.3466533466533466, -0.02297702297702298, 0.3066933066933067, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.2567432567432568, -0.2127872127872128, -0.4125874125874126, 0, -0.2527472527472527, 0.3766233766233766, -0.2927072927072927, -0.4925074925074925, -0.4625374625374625, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.01298701298701299, 0.2167832167832168, 0.1468531468531468, 0, -0.4225774225774226, -0.09290709290709291, -0.06293706293706294, -0.3326673326673327, 0.4665334665334666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.4165834165834166, 0.3466533466533466, -0.02297702297702298, 0, 0.1068931068931069, 0.1368631368631369, -0.1328671328671329, 0.2967032967032967, 0.4265734265734266, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.4525474525474525, 0.1768231768231768, -0.4925074925074925, 0, 0.2667332667332667, 0.06693306693306693, 0.4965034965034965, -0.3726273726273726, 0.4565434565434565, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]], datatype=float[8], order='C_order'):
c := Matrix([[-0.1728271728271728, -0.3726273726273726, 0.4565434565434565, 0, 0.2167832167832168, 0.1468531468531468, -0.05294705294705294, -0.4225774225774226, -0.09290709290709291, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.1428571428571428, 0.3866133866133866, 0.1868131868131868, 0, 0.3466533466533466, -0.02297702297702298, 0.3066933066933067, 0.1068931068931069, 0.1368631368631369, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.4125874125874126, -0.1828171828171828, -0.2527472527472527, 0, 0.1768231768231768, -0.4925074925074925, -0.4625374625374625, 0.2667332667332667, 0.06693306693306693, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.01698301698301698, -0.05294705294705294, -0.4225774225774226, -0.09290709290709291, -0.2927072927072927, -0.2627372627372627, 0.4665334665334666, -0.1028971028971029, 0.02697302697302697, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.1468531468531468, -0.2227772227772228, 0.1068931068931069, 0, -0.1328671328671329, -0.3326673326673327, 0.0969030969030969, 0.2267732267732268, 0.05694305694305694, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.4925074925074925, 0.3066933066933067, 0.3366633366633366, 0, 0.4965034965034965, -0.3726273726273726, 0.4265734265734266, 0.2567432567432568, -0.2127872127872128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.2627372627372627, 0.4665334665334666, 0.2667332667332667, 0, -0.1728271728271728, -0.3426573426573427, 0.1868131868131868, -0.01298701298701299, 0.2167832167832168, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [-0.3326673326673327, 0.0969030969030969, 0.2267732267732268, 0, -0.1428571428571428, 0.3866133866133866, -0.3826173826173826, -0.4525474525474525, 0.3466533466533466, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0.2967032967032967, 0.4265734265734266, 0.2567432567432568, 0, -0.4125874125874126, -0.1828171828171828, -0.2527472527472527, 0.3766233766233766, -0.2927072927072927, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]], datatype=float[8], order='C_order'):
NAG:-f06yac(transa, transb, k, alpha, a, b, beta, c, 'm' = m, 'n' = n, 'tda' = tda, 'tdb' = tdb, 'tdc' = tdc):

c;