Blas.Blas.sgemm: def of bend-blas-lapack@0.0.0.1
Import: import bend-blas-lapack@0.0.0.1/blas.bend as Blas
Lines 22-28 of bend-blas-lapack@0.0.0.1/blas.bend: https://jend.leeeet.dev/read.txt?path=bend-blas-lapack@0.0.0.1/blas.bend&start_line=22&end_line=28

import Base

# C = alpha op(A) op(B) + beta C. A is m x k as stored (k x m when ta = 1),
# B is k x n (n x k when tb = 1), C is m x n, all row-major. C is consumed
# and the updated copy answered; pass beta = 0 and any m x n block for a
# fresh product.
def Blas.sgemm(ta: U32, tb: U32, m: U32, n: U32, k: U32, alpha: F32, a: Array<F32>, b: Array<F32>, beta: F32, c: Array<F32>) -> IO(Result<&1, &1, U32 & String, Array<F32>>):
  import "./effs/blas_sgemm.c"
  import "./effs/blas_sgemm.js"

Uses (7):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=F32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32