OpenBLAS's transpose needs float and double pointers instead of std::…

…complex.

dace/libraries/standard/nodes/transpose.py

@@ -142,6 +142,7 @@ class ExpandTransposeOpenBLAS(ExpandTransformation):
     def expansion(node, state, sdfg):
         node.validate(sdfg, state)
         dtype = node.dtype
+        cast = ""
         if dtype == dace.float32:
             func = "somatcopy"
             alpha = "1.0f"
@@ -150,19 +151,21 @@ def expansion(node, state, sdfg):
             alpha = "1.0"
         elif dtype == dace.complex64:
             func = "comatcopy"
-            alpha = "dace::blas::BlasConstants::Get().Complex64Pone()"
+            cast = "(float*)"
+            alpha = f"{cast}dace::blas::BlasConstants::Get().Complex64Pone()"
         elif dtype == dace.complex128:
             func = "zomatcopy"
-            alpha = "dace::blas::BlasConstants::Get().Complex128Pone()"
+            cast = "(double*)"
+            alpha = f"{cast}dace::blas::BlasConstants::Get().Complex128Pone()"
         else:
             raise ValueError("Unsupported type for OpenBLAS omatcopy extension: " + str(dtype))
         # TODO: Add stride support
         _, _, (m, n), _ = _get_transpose_input(node, state, sdfg)
         # Adaptations for BLAS API
         order = 'CblasRowMajor'
         trans = 'CblasTrans'
-        code = ("cblas_{f}({o}, {t}, {m}, {n}, {a}, _inp, "
-                "{n}, _out, {m});").format(f=func, o=order, t=trans, m=m, n=n, a=alpha)
+        code = ("cblas_{f}({o}, {t}, {m}, {n}, {a}, {c}_inp, "
+                "{n}, {c}_out, {m});").format(f=func, o=order, t=trans, m=m, n=n, a=alpha, c=cast)
         tasklet = dace.sdfg.nodes.Tasklet(node.name,
                                           node.in_connectors,
                                           node.out_connectors,