Lapack.Lapack.sgesvd: def of bend-blas-lapack@0.0.0.1
Import: import bend-blas-lapack@0.0.0.1/lapack.bend as Lapack
Lines 57-62 of bend-blas-lapack@0.0.0.1/lapack.bend: https://jend.leeeet.dev/read.txt?path=bend-blas-lapack@0.0.0.1/lapack.bend&start_line=57&end_line=62

import Base

# The thin SVD of an m x n row-major matrix (consumed): answers
# (s, (u, vt)) with s the min(m, n) singular values largest first, u
# m x k and vt k x n row-major, A = u diag(s) vt.
def Lapack.sgesvd(m: U32, n: U32, a: Array<F32>) -> IO(Result<&1, &1, U32 & String, Array<F32> & (Array<F32> & Array<F32>)>):
  import "./effs/lapack_sgesvd.c"
  import "./effs/lapack_sgesvd.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