OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
BI_ivmcopy.c File Reference
#include "Bdef.h"

Go to the source code of this file.

Functions

void BI_ivmcopy (Int m, Int n, Int *A, Int lda, Int *buff)

Function Documentation

◆ BI_ivmcopy()

void BI_ivmcopy ( Int m,
Int n,
Int * A,
Int lda,
Int * buff )

Definition at line 3 of file BI_ivmcopy.c.

7{
8 Int i, j;
9
10 if ( (m == lda) || (n == 1) )
11 {
12 m = n * m;
13 for (i=0; i < m; i++) A[i] = buff[i];
14 }
15 else if (m == 1)
16 {
17 for (j=0; j < n; j++) A[j*lda] = buff[j];
18 }
19 else
20 {
21 for (j=0; j< n; j++)
22 {
23 for (i=0; i < m; i++) A[i] = buff[i];
24 A += lda;
25 buff += m;
26 }
27 }
28}
#define Int
Definition Bconfig.h:22
n