anchor.diff:              let arg_ldb = m
               cblas_somatcopy(arg_ordering, arg_trans, arg_rows, arg_cols, arg_alpha, arg_a.Ptr, arg_lda, arg_b.Ptr, arg_ldb)
   
  -        [<SuppressUnmanagedCodeSecurity>]
           [<DllImport("libopenblas", EntryPoint="cblas_dimatcopy")>]
           extern void cblas_dimatcopy(int ordering, int trans, int rows, int cols, float alpha, float *a, int lda, int ldb)
   
  -        [<SuppressUnmanagedCodeSecurity>]
           [<DllImport("libopenblas", EntryPoint="cblas_domatcopy")>]
           extern void cblas_domatcopy(int ordering, int trans, int rows, int cols, float alpha, float *a, int lda, float *b, int ldb)
   
  
positive.code:             dgemv_(&&arg_trans, &&arg_m, &&arg_n, &&arg_alpha, arg_a.Ptr, &&arg_lda, arg_x.Ptr, &&arg_incx, &&arg_beta, arg_y.Ptr, &&arg_incy)
  
      module BLASExtensions =
          [<SuppressUnmanagedCodeSecurity>]
          [<DllImport("libopenblas", EntryPoint="cblas_simatcopy")>]
          extern void cblas_simatcopy(int ordering, int trans, int rows, int cols, float32 alpha, float32 *a, int lda, int ldb)
  
          [<SuppressUnmanagedCodeSecurity>]
          [<DllImport("libopenblas", EntryPoint="cblas_somatcopy")>]
          extern void cblas_somatcopy(int ordering, int trans, int rows, int cols, float32 alpha, float32 *a, int lda, float32 *b, int ldb)
  
  
negative.code:             else
                  None
  
          [<DllImport("libopenblas", EntryPoint="dgesv_")>]
          extern void dgesv_(int *n, int *nrhs, float *a, int *lda, int *ipiv, float *b, int *ldb, int *info)
  
          [<DllImport("libopenblas", EntryPoint="dsysv_")>]
          extern void dsysv_(char *uplo, int *n, int *nrhs, float *a, int *lda, int *ipiv, float *b, int *ldb, float *work, int *lwork, int *info)
  
          [<DllImport("libopenblas", EntryPoint="dgetrf_")>]
          extern void dgetrf_(int *m, int *n, float *a, int *lda, int *ipiv, int *info)
  
          [<DllImport("libopenblas", EntryPoint="dgetri_")>]
          extern void dgetri_(int *n, float *a, int *lda, int *ipiv, float *work, int *lwork, int *info)
  
  