Skip to content

Commit d71d972

Browse files
langoulangou
authored
Merge branch 'master' into gragghia/implicit_func
2 parents d26e1d7 + b702e68 commit d71d972

40 files changed

+860
-820
lines changed

‎.github/workflows/make.yml‎

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -34,10 +34,8 @@ jobs:
3434
- name: Setup MPI
3535
uses: mpi4py/setup-mpi@v1
3636

37-
- name: Install OpenBLAS
38-
run: |
39-
sudo apt-get update
40-
sudo apt-get -y install libopenblas0
37+
- name: Install BLAS and LAPACK
38+
run: sudo apt -y install libblas-dev liblapack-dev
4139

4240
- name: Build ScaLAPACK
4341
run: |

‎BLACS/SRC/Bdef.h‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -129,6 +129,15 @@ typedef void (*SDRVPTR)(BLACSCONTEXT *, Int, Int, BLACBUFF *);
129129
void BI_BlacsWarn(Int ConTxt, Int line, char *file, char *form, ...);
130130
void BI_BlacsErr(Int ConTxt, Int line, char *file, char *form, ...);
131131
Int BI_ContxtNum(BLACSCONTEXT *ctxt);
132+
void BI_TransDist(BLACSCONTEXT *ctxt, char scope, Int m, Int n, Int *rA,
133+
Int *cA, Int ldrc, BI_DistType *dist, Int rdest, Int cdest);
134+
void BI_dmvcopy(Int m, Int n, double *A, Int lda, double *buff);
135+
void BI_dvmcopy(Int m, Int n, double *A, Int lda, double *buff);
136+
void BI_imvcopy(Int m, Int n, Int *A, Int lda, Int *buff);
137+
void BI_ivmcopy(Int m, Int n, Int *A, Int lda, Int *buff);
138+
void BI_smvcopy(Int m, Int n, float *A, Int lda, float *buff);
139+
void BI_svmcopy(Int m, Int n, float *A, Int lda, float *buff);
140+
void Cblacs_pinfo(Int *mypnum, Int *nprocs);
132141

133142
/*
134143
* If we've got an ANSI standard C compiler, we can use void pointers...

‎BLACS/SRC/blacs_init_.c‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,12 @@ void Cblacs_gridinit(Int *ConTxt, char *order, Int nprow, Int npcol)
66
F_VOID_FUNC blacs_gridinit_(Int *ConTxt, F_CHAR order, Int *nprow, Int *npcol)
77
#endif
88
{
9+
#if (INTFACE == C_CALL)
910
void Cblacs_gridmap(Int *, Int *, Int, Int, Int);
11+
#else
12+
F_VOID_FUNC blacs_gridmap_(Int *ConTxt, Int *usermap, Int *ldup, Int *nprow0,
13+
Int *npcol0);
14+
#endif
1015
Int *tmpgrid, *iptr;
1116
Int i, j;
1217

‎BLACS/SRC/dgamn2d_.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -201,7 +201,7 @@ F_VOID_FUNC dgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
201201
bp = BI_GetBuff(i);
202202
bp2 = &BI_AuxBuff;
203203
bp2->Buff = &bp->Buff[length];
204-
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
204+
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
205205
/*
206206
* Fill in distance vector
207207
*/
@@ -254,7 +254,7 @@ F_VOID_FUNC dgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
254254
bp = BI_GetBuff(length*2);
255255
bp2 = &BI_AuxBuff;
256256
bp2->Buff = &bp->Buff[length];
257-
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
257+
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
258258
}
259259
bp->N = bp2->N = N;
260260
bp->dtype = bp2->dtype = MPI_DOUBLE;
@@ -280,7 +280,7 @@ F_VOID_FUNC dgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
280280
ctxt->scp->comm);
281281
if (ctxt->scp->Iam == dest)
282282
{
283-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
283+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp2->Buff);
284284
if (Mpval(ldia) != -1)
285285
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
286286
(BI_DistType *) &bp2->Buff[idist],
@@ -291,7 +291,7 @@ F_VOID_FUNC dgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
291291
{
292292
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, BlacComb,
293293
ctxt->scp->comm);
294-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
294+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp2->Buff);
295295
if (Mpval(ldia) != -1)
296296
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
297297
(BI_DistType *) &bp2->Buff[idist],
@@ -370,6 +370,6 @@ F_VOID_FUNC dgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
370370
/*
371371
* Unpack the amn array
372372
*/
373-
if (bp != &BI_AuxBuff) BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
373+
if (bp != &BI_AuxBuff) BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
374374
}
375375
}

‎BLACS/SRC/dgamx2d_.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -201,7 +201,7 @@ F_VOID_FUNC dgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
201201
bp = BI_GetBuff(i);
202202
bp2 = &BI_AuxBuff;
203203
bp2->Buff = &bp->Buff[length];
204-
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
204+
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
205205
/*
206206
* Fill in distance vector
207207
*/
@@ -254,7 +254,7 @@ F_VOID_FUNC dgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
254254
bp = BI_GetBuff(length*2);
255255
bp2 = &BI_AuxBuff;
256256
bp2->Buff = &bp->Buff[length];
257-
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
257+
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
258258
}
259259
bp->N = bp2->N = N;
260260
bp->dtype = bp2->dtype = MPI_DOUBLE;
@@ -280,7 +280,7 @@ F_VOID_FUNC dgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
280280
ctxt->scp->comm);
281281
if (ctxt->scp->Iam == dest)
282282
{
283-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
283+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp2->Buff);
284284
if (Mpval(ldia) != -1)
285285
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
286286
(BI_DistType *) &bp2->Buff[idist],
@@ -291,7 +291,7 @@ F_VOID_FUNC dgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
291291
{
292292
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, BlacComb,
293293
ctxt->scp->comm);
294-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
294+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp2->Buff);
295295
if (Mpval(ldia) != -1)
296296
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
297297
(BI_DistType *) &bp2->Buff[idist],
@@ -370,6 +370,6 @@ F_VOID_FUNC dgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
370370
/*
371371
* Unpack the amx array
372372
*/
373-
if (bp != &BI_AuxBuff) BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
373+
if (bp != &BI_AuxBuff) BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
374374
}
375375
}

‎BLACS/SRC/dgsum2d_.c‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -151,7 +151,7 @@ F_VOID_FUNC dgsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
151151
bp = BI_GetBuff(length*2);
152152
bp2 = &BI_AuxBuff;
153153
bp2->Buff = &bp->Buff[length];
154-
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
154+
BI_dmvcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
155155
}
156156
bp->dtype = bp2->dtype = MPI_DOUBLE;
157157
bp->N = bp2->N = N;
@@ -164,13 +164,13 @@ F_VOID_FUNC dgsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
164164
ierr=MPI_Reduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,
165165
dest, ctxt->scp->comm);
166166
if (ctxt->scp->Iam == dest)
167-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
167+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp2->Buff);
168168
}
169169
else
170170
{
171171
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,
172172
ctxt->scp->comm);
173-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
173+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp2->Buff);
174174
}
175175
if (BI_ActiveQ) BI_UpdateBuffs(NULL);
176176
return;
@@ -224,7 +224,7 @@ F_VOID_FUNC dgsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
224224
if (bp != &BI_AuxBuff)
225225
{
226226
if ( (ctxt->scp->Iam == dest) || (dest == -1) )
227-
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
227+
BI_dvmcopy(Mpval(m), Mpval(n), A, tlda, (double*)bp->Buff);
228228
BI_UpdateBuffs(bp);
229229
}
230230
else

‎BLACS/SRC/igamn2d_.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -198,7 +198,7 @@ F_VOID_FUNC igamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
198198
bp = BI_GetBuff(i);
199199
bp2 = &BI_AuxBuff;
200200
bp2->Buff = &bp->Buff[length];
201-
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
201+
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
202202
/*
203203
* Fill in distance vector
204204
*/
@@ -251,7 +251,7 @@ F_VOID_FUNC igamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
251251
bp = BI_GetBuff(length*2);
252252
bp2 = &BI_AuxBuff;
253253
bp2->Buff = &bp->Buff[length];
254-
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
254+
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
255255
}
256256
bp->N = bp2->N = N;
257257
bp->dtype = bp2->dtype = IntTyp;
@@ -277,7 +277,7 @@ F_VOID_FUNC igamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
277277
ctxt->scp->comm);
278278
if (ctxt->scp->Iam == dest)
279279
{
280-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
280+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
281281
if (Mpval(ldia) != -1)
282282
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
283283
(BI_DistType *) &bp2->Buff[idist],
@@ -288,7 +288,7 @@ F_VOID_FUNC igamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
288288
{
289289
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, BlacComb,
290290
ctxt->scp->comm);
291-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
291+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
292292
if (Mpval(ldia) != -1)
293293
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
294294
(BI_DistType *) &bp2->Buff[idist],
@@ -367,6 +367,6 @@ F_VOID_FUNC igamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
367367
/*
368368
* Unpack the amn array
369369
*/
370-
if (bp != &BI_AuxBuff) BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
370+
if (bp != &BI_AuxBuff) BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
371371
}
372372
}

‎BLACS/SRC/igamx2d_.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -198,7 +198,7 @@ F_VOID_FUNC igamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
198198
bp = BI_GetBuff(i);
199199
bp2 = &BI_AuxBuff;
200200
bp2->Buff = &bp->Buff[length];
201-
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
201+
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
202202
/*
203203
* Fill in distance vector
204204
*/
@@ -251,7 +251,7 @@ F_VOID_FUNC igamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
251251
bp = BI_GetBuff(length*2);
252252
bp2 = &BI_AuxBuff;
253253
bp2->Buff = &bp->Buff[length];
254-
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
254+
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
255255
}
256256
bp->N = bp2->N = N;
257257
bp->dtype = bp2->dtype = IntTyp;
@@ -277,7 +277,7 @@ F_VOID_FUNC igamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
277277
ctxt->scp->comm);
278278
if (ctxt->scp->Iam == dest)
279279
{
280-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
280+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
281281
if (Mpval(ldia) != -1)
282282
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
283283
(BI_DistType *) &bp2->Buff[idist],
@@ -288,7 +288,7 @@ F_VOID_FUNC igamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
288288
{
289289
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, BlacComb,
290290
ctxt->scp->comm);
291-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
291+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
292292
if (Mpval(ldia) != -1)
293293
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
294294
(BI_DistType *) &bp2->Buff[idist],
@@ -367,6 +367,6 @@ F_VOID_FUNC igamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
367367
/*
368368
* Unpack the amx array
369369
*/
370-
if (bp != &BI_AuxBuff) BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
370+
if (bp != &BI_AuxBuff) BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
371371
}
372372
}

‎BLACS/SRC/igsum2d_.c‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -151,7 +151,7 @@ F_VOID_FUNC igsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
151151
bp = BI_GetBuff(length*2);
152152
bp2 = &BI_AuxBuff;
153153
bp2->Buff = &bp->Buff[length];
154-
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
154+
BI_imvcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
155155
}
156156

157157
MPI_Type_match_size(MPI_TYPECLASS_INTEGER, sizeof(Int), &Dtype);
@@ -166,13 +166,13 @@ F_VOID_FUNC igsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
166166
ierr=MPI_Reduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,
167167
dest, ctxt->scp->comm);
168168
if (ctxt->scp->Iam == dest)
169-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
169+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
170170
}
171171
else
172172
{
173173
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,
174174
ctxt->scp->comm);
175-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
175+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
176176
}
177177
if (BI_ActiveQ) BI_UpdateBuffs(NULL);
178178
return;
@@ -226,7 +226,7 @@ F_VOID_FUNC igsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
226226
if (bp != &BI_AuxBuff)
227227
{
228228
if ( (ctxt->scp->Iam == dest) || (dest == -1) )
229-
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
229+
BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp->Buff);
230230
BI_UpdateBuffs(bp);
231231
}
232232
else

‎BLACS/SRC/sgamn2d_.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -201,7 +201,7 @@ F_VOID_FUNC sgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
201201
bp = BI_GetBuff(i);
202202
bp2 = &BI_AuxBuff;
203203
bp2->Buff = &bp->Buff[length];
204-
BI_smvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
204+
BI_smvcopy(Mpval(m), Mpval(n), A, tlda, (float*)bp->Buff);
205205
/*
206206
* Fill in distance vector
207207
*/
@@ -254,7 +254,7 @@ F_VOID_FUNC sgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
254254
bp = BI_GetBuff(length*2);
255255
bp2 = &BI_AuxBuff;
256256
bp2->Buff = &bp->Buff[length];
257-
BI_smvcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
257+
BI_smvcopy(Mpval(m), Mpval(n), A, tlda, (float*)bp->Buff);
258258
}
259259
bp->N = bp2->N = N;
260260
bp->dtype = bp2->dtype = MPI_FLOAT;
@@ -280,7 +280,7 @@ F_VOID_FUNC sgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
280280
ctxt->scp->comm);
281281
if (ctxt->scp->Iam == dest)
282282
{
283-
BI_svmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
283+
BI_svmcopy(Mpval(m), Mpval(n), A, tlda, (float*)bp2->Buff);
284284
if (Mpval(ldia) != -1)
285285
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
286286
(BI_DistType *) &bp2->Buff[idist],
@@ -291,7 +291,7 @@ F_VOID_FUNC sgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
291291
{
292292
ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, BlacComb,
293293
ctxt->scp->comm);
294-
BI_svmcopy(Mpval(m), Mpval(n), A, tlda, bp2->Buff);
294+
BI_svmcopy(Mpval(m), Mpval(n), A, tlda, (float*)bp2->Buff);
295295
if (Mpval(ldia) != -1)
296296
BI_TransDist(ctxt, tscope, Mpval(m), Mpval(n), rA, cA, tldia,
297297
(BI_DistType *) &bp2->Buff[idist],
@@ -370,6 +370,6 @@ F_VOID_FUNC sgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
370370
/*
371371
* Unpack the amn array
372372
*/
373-
if (bp != &BI_AuxBuff) BI_svmcopy(Mpval(m), Mpval(n), A, tlda, bp->Buff);
373+
if (bp != &BI_AuxBuff) BI_svmcopy(Mpval(m), Mpval(n), A, tlda, (float*)bp->Buff);
374374
}
375375
}

0 commit comments

Comments
 (0)