Module Blas_gen

module Blas_gen: sig .. end

type order = Blas.order =

`\|`	`RowMajor`
`\|`	`ColMajor`

type transpose = Blas.transpose =

`\|`	`NoTrans`
`\|`	`Trans`
`\|`	`ConjTrans`

type uplo = Blas.uplo =

`\|`	`Upper`
`\|`	`Lower`

type diag = Blas.diag =

`\|`	`NonUnit`
`\|`	`Unit`

type side = Blas.side =

`\|`	`Left`
`\|`	`Right`

val dot : [< Vectmat.vec ] -> [< Vectmat.vec ] -> float

val nrm2 : [< Vectmat.vec ] -> float

val asum : [< Vectmat.vec ] -> float

val iamax : [< Vectmat.vec ] -> int

val swap : [< Vectmat.vec ] -> [< Vectmat.vec ] -> unit

val copy : [< Vectmat.vec ] -> [< Vectmat.vec ] -> unit

val axpy : float -> [< Vectmat.vec ] -> [< Vectmat.vec ] -> unit

val rot : [< Vectmat.vec ] -> [< Vectmat.vec ] -> float -> float -> unit

val scal : float -> [< Vectmat.vec ] -> unit

val gemv : transpose ->
       alpha:float ->
       a:[< Vectmat.mat ] ->
       x:[< Vectmat.vec ] -> beta:float -> y:[< Vectmat.vec ] -> unit

val trmv : uplo ->
       transpose ->
       diag -> a:[< Vectmat.mat ] -> x:[< Vectmat.vec ] -> unit

val trsv : uplo ->
       transpose ->
       diag -> a:[< Vectmat.mat ] -> x:[< Vectmat.vec ] -> unit

val symv : uplo ->
       alpha:float ->
       a:[< Vectmat.mat ] ->
       x:[< Vectmat.vec ] -> beta:float -> y:[< Vectmat.vec ] -> unit

val dger : alpha:float ->
       x:[< Vectmat.vec ] -> y:[< Vectmat.vec ] -> a:[< Vectmat.mat ] -> unit

val syr : uplo ->
       alpha:float -> x:[< Vectmat.vec ] -> a:[< Vectmat.mat ] -> unit

val syr2 : uplo ->
       alpha:float ->
       x:[< Vectmat.vec ] -> y:[< Vectmat.vec ] -> a:[< Vectmat.mat ] -> unit

val gemm : ta:transpose ->
       tb:transpose ->
       alpha:float ->
       a:[< Vectmat.mat ] ->
       b:[< Vectmat.mat ] -> beta:float -> c:[< Vectmat.mat ] -> unit

val symm : side ->
       uplo ->
       alpha:float ->
       a:[< Vectmat.mat ] ->
       b:[< Vectmat.mat ] -> beta:float -> c:[< Vectmat.mat ] -> unit

val trmm : side ->
       uplo ->
       transpose ->
       diag ->
       alpha:float -> a:[< Vectmat.mat ] -> b:[< Vectmat.mat ] -> unit

val trsm : side ->
       uplo ->
       transpose ->
       diag ->
       alpha:float -> a:[< Vectmat.mat ] -> b:[< Vectmat.mat ] -> unit

val syrk : uplo ->
       transpose ->
       alpha:float -> a:[< Vectmat.mat ] -> beta:float -> c:[< Vectmat.mat ] -> unit

val syr2k : uplo ->
       transpose ->
       alpha:float ->
       a:[< Vectmat.mat ] ->
       b:[< Vectmat.mat ] -> beta:float -> c:[< Vectmat.mat ] -> unit

module Complex: sig .. end