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:             use arg_y = new PinnedArray<float32>(y)
              sgemv_(&&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)
  
          [<DllImport("libopenblas", EntryPoint="idamax_")>]
          extern int idamax_(int *n, float *x, int *incx);
  
          [<DllImport("libopenblas", EntryPoint="daxpy_")>]
          extern void daxpy_(int *n, float *a, float *x, int *incx, float *y, int *incy);
  
          [<DllImport("libopenblas", EntryPoint="dscal_")>]
          extern void dscal_(int *n, float *alpha, float *x, int *incx)
  
          [<DllImport("libopenblas", EntryPoint="ddot_")>]
          extern float ddot_(int *n, float *x, int *incx, float *y, int *incy);
  
          [<DllImport("libopenblas", EntryPoint="dger_")>]
          extern void dger_(int *m, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda)
  
          [<DllImport("libopenblas", EntryPoint="dasum_")>]
          extern float dasum_(int *n, float *x, int *incx)
  
          [<DllImport("libopenblas", EntryPoint="dnrm2_")>]
          extern float dnrm2_(int *n, float *x, int *incx)
  
          [<DllImport("libopenblas", EntryPoint="dgemm_")>]
          extern void dgemm_(char *transa, char *transb, int *m, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc);
  
          [<DllImport("libopenblas", EntryPoint="dgemv_")>]
          extern void dgemv_(char *trans, int *m, int *n, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy)
  
  