Add plasma_ prefix to external names (and some internal)

icl-utk-edu · Sep 30, 2018 · 73bb455 · 73bb455
1 parent ba0636a
commit 73bb455
Show file tree

Hide file tree

Showing 116 changed files with 877 additions and 876 deletions.
diff --git a/compute/pclag2z.c b/compute/pclag2z.c
@@ -39,7 +39,7 @@ void plasma_pclag2z(plasma_desc_t As, plasma_desc_t A,
             int ldb = plasma_tile_mmain(A,  m);
             for (int n = 0; n < As.nt; n++) {
                 int an = plasma_tile_nview(As, n);
-                core_omp_clag2z(
+                plasma_core_omp_clag2z(
                     am, an,
                     As(m, n), lda,
                     A(m, n),  ldb,
@@ -56,7 +56,7 @@ void plasma_pclag2z(plasma_desc_t As, plasma_desc_t A,
             for (int m = m_start; m <= m_end; m++) {
                 int ldam = plasma_tile_mmain_band(A, m, n);
                 int mvam = plasma_tile_mview(A, m);
-                core_omp_clag2z(
+                plasma_core_omp_clag2z(
                     mvam, nvan,
                     As(m, n), ldam,
                     A(m, n), ldam,

diff --git a/compute/pdzamax.c b/compute/pdzamax.c
@@ -39,15 +39,15 @@ void plasma_pdzamax(plasma_enum_t colrow,
             int ldam = plasma_tile_mmain(A, m);
             for (int n = 0; n < A.nt; n++) {
                 int nvan = plasma_tile_nview(A, n);
-                core_omp_dzamax(PlasmaColumnwise,
+                plasma_core_omp_dzamax(PlasmaColumnwise,
                                 mvam, nvan,
                                 A(m, n), ldam,
                                 &work[A.n*m+n*A.nb],
                                 sequence, request);
             }
         }
         #pragma omp taskwait
-        core_omp_damax(PlasmaRowwise,
+        plasma_core_omp_damax(PlasmaRowwise,
                        A.n, A.mt,
                        work, A.n,
                        values,
@@ -62,15 +62,15 @@ void plasma_pdzamax(plasma_enum_t colrow,
             int ldam = plasma_tile_mmain(A, m);
             for (int n = 0; n < A.nt; n++) {
                 int nvan = plasma_tile_nview(A, n);
-                core_omp_dzamax(PlasmaRowwise,
+                plasma_core_omp_dzamax(PlasmaRowwise,
                                 mvam, nvan,
                                 A(m, n), ldam,
                                 &work[A.m*n+m*A.mb],
                                 sequence, request);
             }
         }
         #pragma omp taskwait
-        core_omp_damax(PlasmaRowwise,
+        plasma_core_omp_damax(PlasmaRowwise,
                        A.m, A.nt,
                        work, A.m,
                        values,

diff --git a/compute/pzdesc2ge.c b/compute/pzdesc2ge.c
@@ -46,7 +46,7 @@ void plasma_pzdesc2ge(plasma_desc_t A,
             f77 = &pA[(size_t)A.nb*lda*n + (size_t)A.mb*m];
             bdl = (plasma_complex64_t*)plasma_tile_addr(A, m, n);
 
-            core_omp_zlacpy(PlasmaGeneral, PlasmaNoTrans,
+            plasma_core_omp_zlacpy(PlasmaGeneral, PlasmaNoTrans,
                             y2-y1, x2-x1,
                             &(bdl[x1*A.nb+y1]), ldt,
                             &(f77[x1*lda+y1]), lda,

diff --git a/compute/pzdesc2pb.c b/compute/pzdesc2pb.c
@@ -52,7 +52,7 @@ void plasma_pzdesc2pb(plasma_desc_t A,
         {
             int mb = imin(A.mb, A.m-m*A.mb);
             int nb = imin(A.nb, A.n-n*A.nb);
-            core_omp_zlacpy_tile2lapack_band(
+            plasma_core_omp_zlacpy_tile2lapack_band(
                    A.uplo, m, n,
                    mb, nb, A.mb, A.kl, A.ku,
                    tileA(m, n), plasma_tile_mmain_band(A, m, n),

diff --git a/compute/pzdesc2tr.c b/compute/pzdesc2tr.c
@@ -42,7 +42,7 @@ void plasma_pzdesc2tr(plasma_desc_t A,
             plasma_complex64_t *bdl =
                 (plasma_complex64_t*)plasma_tile_addr(A, m, n);
 
-            core_omp_zlacpy(PlasmaGeneral, PlasmaNoTrans,
+            plasma_core_omp_zlacpy(PlasmaGeneral, PlasmaNoTrans,
                             y2-y1, x2-x1,
                             &(bdl[x1*A.nb+y1]), ldt,
                             &(f77[x1*lda+y1]), lda,

diff --git a/compute/pzgbtrf.c b/compute/pzgbtrf.c
@@ -81,7 +81,7 @@ void plasma_pzgbtrf(plasma_desc_t A, int *ipiv,
                             A, (A.kut-1)*A.mb, k*A.nb, mak, nvak);
                         view.type = PlasmaGeneral;
 
-                        core_zgetrf(view, &ipiv[k*A.mb], ib,
+                        plasma_core_zgetrf(view, &ipiv[k*A.mb], ib,
                                     rank, num_panel_threads,
                                     max_idx, max_val, &info,
                                     &barrier);
@@ -122,11 +122,11 @@ void plasma_pzgbtrf(plasma_desc_t A, int *ipiv,
                                         (A.kut-1 + k-n)*A.mb, n*A.nb,
                                          mak, nvan);
                     view.type = PlasmaGeneral;
-                    core_zgeswp(
+                    plasma_core_zgeswp(
                         PlasmaRowwise, view, 1, k2-k1+1, &ipiv[k*A.mb], 1);
 
                     // trsm
-                    core_ztrsm(PlasmaLeft, PlasmaLower,
+                    plasma_core_ztrsm(PlasmaLeft, PlasmaLower,
                                PlasmaNoTrans, PlasmaUnit,
                                mvak, nvan,
                                1.0, A(k, k), ldak,
@@ -138,7 +138,7 @@ void plasma_pzgbtrf(plasma_desc_t A, int *ipiv,
 
                         #pragma omp task priority(n == k+1)
                         {
-                            core_zgemm(
+                            plasma_core_zgemm(
                                 PlasmaNoTrans, PlasmaNoTrans,
                                 mvam, nvan, A.nb,
                                 -1.0, A(m, k), plasma_tile_mmain_band(A, m, k),

diff --git a/compute/pzge2desc.c b/compute/pzge2desc.c
@@ -46,7 +46,7 @@ void plasma_pzge2desc(plasma_complex64_t *pA, int lda,
             f77 = &pA[(size_t)A.nb*lda*n + (size_t)A.mb*m];
             bdl = (plasma_complex64_t*)plasma_tile_addr(A, m, n);
 
-            core_omp_zlacpy(PlasmaGeneral, PlasmaNoTrans,
+            plasma_core_omp_zlacpy(PlasmaGeneral, PlasmaNoTrans,
                             y2-y1, x2-x1,
                             &(f77[x1*lda+y1]), lda,
                             &(bdl[x1*A.nb+y1]), ldt,

diff --git a/compute/pzgeadd.c b/compute/pzgeadd.c
@@ -44,7 +44,7 @@ void plasma_pzgeadd(plasma_enum_t transa,
             int ldbm = plasma_tile_mmain(B, m);
             for (int n = 0; n < B.nt; n++) {
                 int nvbn = plasma_tile_nview(B, n);
-                core_omp_zgeadd(
+                plasma_core_omp_zgeadd(
                     transa, mvbm, nvbn,
                     alpha, A(m, n), ldam,
                     beta,  B(m, n), ldbm,
@@ -62,7 +62,7 @@ void plasma_pzgeadd(plasma_enum_t transa,
             for (int n = 0; n < B.nt; n++) {
                 int nvbn = plasma_tile_nview(B, n);
                 int ldan = plasma_tile_mmain(A, n);
-                core_omp_zgeadd(
+                plasma_core_omp_zgeadd(
                     transa, mvbm, nvbn,
                     alpha, A(n, m), ldan,
                     beta,  B(m, n), ldbm,

diff --git a/compute/pzgelqf.c b/compute/pzgelqf.c
@@ -40,7 +40,7 @@ void plasma_pzgelqf(plasma_desc_t A, plasma_desc_t T,
         int mvak = plasma_tile_mview(A, k);
         int nvak = plasma_tile_nview(A, k);
         int ldak = plasma_tile_mmain(A, k);
-        core_omp_zgelqt(
+        plasma_core_omp_zgelqt(
             mvak, nvak, ib,
             A(k, k), ldak,
             T(k, k), T.mb,
@@ -50,7 +50,7 @@ void plasma_pzgelqf(plasma_desc_t A, plasma_desc_t T,
         for (int m = k+1; m < A.mt; m++) {
             int mvam = plasma_tile_mview(A, m);
             int ldam = plasma_tile_mmain(A, m);
-            core_omp_zunmlq(
+            plasma_core_omp_zunmlq(
                 PlasmaRight, Plasma_ConjTrans,
                 mvam, nvak, imin(mvak, nvak), ib,
                 A(k, k), ldak,
@@ -61,7 +61,7 @@ void plasma_pzgelqf(plasma_desc_t A, plasma_desc_t T,
         }
         for (int n = k+1; n < A.nt; n++) {
             int nvan = plasma_tile_nview(A, n);
-            core_omp_ztslqt(
+            plasma_core_omp_ztslqt(
                 mvak, nvan, ib,
                 A(k, k), ldak,
                 A(k, n), ldak,
@@ -72,7 +72,7 @@ void plasma_pzgelqf(plasma_desc_t A, plasma_desc_t T,
             for (int m = k+1; m < A.mt; m++) {
                 int mvam = plasma_tile_mview(A, m);
                 int ldam = plasma_tile_mmain(A, m);
-                core_omp_ztsmlq(
+                plasma_core_omp_ztsmlq(
                     PlasmaRight, Plasma_ConjTrans,
                     mvam, A.nb, mvam, nvan, mvak, ib,
                     A(m, k), ldam,

diff --git a/compute/pzgelqf_tree.c b/compute/pzgelqf_tree.c
@@ -56,7 +56,7 @@ void plasma_pzgelqf_tree(plasma_desc_t A, plasma_desc_t T,
 
         if (kernel == PlasmaGeKernel) {
             // triangularization
-            core_omp_zgelqt(
+            plasma_core_omp_zgelqt(
                 mvaj, nvak, ib,
                 A(j, k), ldaj,
                 T(j, k), T.mb,
@@ -67,7 +67,7 @@ void plasma_pzgelqf_tree(plasma_desc_t A, plasma_desc_t T,
                 int mvajj = plasma_tile_mview(A, jj);
                 int ldajj = plasma_tile_mmain(A, jj);
 
-                core_omp_zunmlq(
+                plasma_core_omp_zunmlq(
                     PlasmaRight, Plasma_ConjTrans,
                     mvajj, nvak, imin(mvaj, nvak), ib,
                     A(j,  k), ldaj,
@@ -81,7 +81,7 @@ void plasma_pzgelqf_tree(plasma_desc_t A, plasma_desc_t T,
             // elimination of the tile
             int nvakpiv = plasma_tile_nview(A, kpiv);
 
-            core_omp_zttlqt(
+            plasma_core_omp_zttlqt(
                 mvaj, nvak, ib,
                 A(j,  kpiv), ldaj,
                 A(j,  k),    ldaj,
@@ -93,7 +93,7 @@ void plasma_pzgelqf_tree(plasma_desc_t A, plasma_desc_t T,
                 int mvajj = plasma_tile_mview(A, jj);
                 int ldajj = plasma_tile_mmain(A, jj);
 
-                core_omp_zttmlq(
+                plasma_core_omp_zttmlq(
                     PlasmaRight, Plasma_ConjTrans,
                     mvajj, nvakpiv, mvajj, nvak, imin(mvaj, nvakpiv+nvak), ib,
                     A(jj, kpiv), ldajj,
@@ -108,7 +108,7 @@ void plasma_pzgelqf_tree(plasma_desc_t A, plasma_desc_t T,
             // elimination of the tile
             int nvakpiv = plasma_tile_nview(A, kpiv);
 
-            core_omp_ztslqt(
+            plasma_core_omp_ztslqt(
                 mvaj, nvak, ib,
                 A(j,  kpiv), ldaj,
                 A(j,  k),    ldaj,
@@ -120,7 +120,7 @@ void plasma_pzgelqf_tree(plasma_desc_t A, plasma_desc_t T,
                 int mvajj = plasma_tile_mview(A, jj);
                 int ldajj = plasma_tile_mmain(A, jj);
 
-                core_omp_ztsmlq(
+                plasma_core_omp_ztsmlq(
                     PlasmaRight, Plasma_ConjTrans,
                     mvajj, nvakpiv, mvajj, nvak, imin(mvaj, nvakpiv+nvak), ib,
                     A(jj, kpiv), ldajj,

diff --git a/compute/pzgemm.c b/compute/pzgemm.c
@@ -50,7 +50,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                 if (alpha == 0.0 || inner_k == 0) {
                     int ldam = imax(1, plasma_tile_mmain(A, 0));
                     int ldbk = imax(1, plasma_tile_mmain(B, 0));
-                    core_omp_zgemm(
+                    plasma_core_omp_zgemm(
                         transa, transb,
                         mvcm, nvcn, 0,
                         alpha, A(0, 0), ldam,
@@ -68,7 +68,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                             int nvak = plasma_tile_nview(A, k);
                             int ldbk = plasma_tile_mmain(B, k);
                             plasma_complex64_t zbeta = k == 0 ? beta : 1.0;
-                            core_omp_zgemm(
+                            plasma_core_omp_zgemm(
                                 transa, transb,
                                 mvcm, nvcn, nvak,
                                 alpha, A(m, k), ldam,
@@ -85,7 +85,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                         for (int k = 0; k < A.nt; k++) {
                             int nvak = plasma_tile_nview(A, k);
                             plasma_complex64_t zbeta = k == 0 ? beta : 1.0;
-                            core_omp_zgemm(
+                            plasma_core_omp_zgemm(
                                 transa, transb,
                                 mvcm, nvcn, nvak,
                                 alpha, A(m, k), ldam,
@@ -105,7 +105,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                             int ldak = plasma_tile_mmain(A, k);
                             int ldbk = plasma_tile_mmain(B, k);
                             plasma_complex64_t zbeta = k == 0 ? beta : 1.0;
-                            core_omp_zgemm(
+                            plasma_core_omp_zgemm(
                                 transa, transb,
                                 mvcm, nvcn, mvak,
                                 alpha, A(k, m), ldak,
@@ -123,7 +123,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                             int mvak = plasma_tile_mview(A, k);
                             int ldak = plasma_tile_mmain(A, k);
                             plasma_complex64_t zbeta = k == 0 ? beta : 1.0;
-                            core_omp_zgemm(
+                            plasma_core_omp_zgemm(
                                 transa, transb,
                                 mvcm, nvcn, mvak,
                                 alpha, A(k, m), ldak,
@@ -149,7 +149,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                 if (alpha == 0.0 || inner_k == 0) {
                     int ldam = imax(1, plasma_tile_mmain(A, 0));
                     int ldbk = imax(1, plasma_tile_mmain(B, 0));
-                    core_omp_zgemm(
+                    plasma_core_omp_zgemm(
                         transa, transb,
                         mvcm, nvcn, 0,
                         alpha, A(0, 0), ldam,
@@ -172,7 +172,7 @@ void plasma_pzgemm(plasma_enum_t transa, plasma_enum_t transb,
                             int ldbk = plasma_tile_mmain(B, k);
                             plasma_complex64_t zbeta = k == 0 ? beta : 1.0;
 
-                            core_omp_zgemm(
+                            plasma_core_omp_zgemm(
                                 transa, transb,
                                 mvcm, nvcn, nvak,
                                 alpha, A(m, k), ldam,

diff --git a/compute/pzgeqrf.c b/compute/pzgeqrf.c
@@ -40,7 +40,7 @@ void plasma_pzgeqrf(plasma_desc_t A, plasma_desc_t T,
         int mvak = plasma_tile_mview(A, k);
         int nvak = plasma_tile_nview(A, k);
         int ldak = plasma_tile_mmain(A, k);
-        core_omp_zgeqrt(
+        plasma_core_omp_zgeqrt(
             mvak, nvak, ib,
             A(k, k), ldak,
             T(k, k), T.mb,
@@ -49,7 +49,7 @@ void plasma_pzgeqrf(plasma_desc_t A, plasma_desc_t T,
 
         for (int n = k+1; n < A.nt; n++) {
             int nvan = plasma_tile_nview(A, n);
-            core_omp_zunmqr(
+            plasma_core_omp_zunmqr(
                 PlasmaLeft, Plasma_ConjTrans,
                 mvak, nvan, imin(mvak, nvak), ib,
                 A(k, k), ldak,
@@ -61,7 +61,7 @@ void plasma_pzgeqrf(plasma_desc_t A, plasma_desc_t T,
         for (int m = k+1; m < A.mt; m++) {
             int mvam = plasma_tile_mview(A, m);
             int ldam = plasma_tile_mmain(A, m);
-            core_omp_ztsqrt(
+            plasma_core_omp_ztsqrt(
                 mvam, nvak, ib,
                 A(k, k), ldak,
                 A(m, k), ldam,
@@ -71,7 +71,7 @@ void plasma_pzgeqrf(plasma_desc_t A, plasma_desc_t T,
 
             for (int n = k+1; n < A.nt; n++) {
                 int nvan = plasma_tile_nview(A, n);
-                core_omp_ztsmqr(
+                plasma_core_omp_ztsmqr(
                     PlasmaLeft, Plasma_ConjTrans,
                     A.mb, nvan, mvam, nvan, nvak, ib,
                     A(k, n), ldak,

diff --git a/compute/pzgeqrf_tree.c b/compute/pzgeqrf_tree.c
@@ -53,7 +53,7 @@ void plasma_pzgeqrf_tree(plasma_desc_t A, plasma_desc_t T,
 
         if (kernel == PlasmaGeKernel) {
             // triangularization
-            core_omp_zgeqrt(
+            plasma_core_omp_zgeqrt(
                 mvak, nvaj, ib,
                 A(k, j), ldak,
                 T(k, j), T.mb,
@@ -63,7 +63,7 @@ void plasma_pzgeqrf_tree(plasma_desc_t A, plasma_desc_t T,
             for (int jj = j + 1; jj < A.nt; jj++) {
                 int nvajj = plasma_tile_nview(A, jj);
 
-                core_omp_zunmqr(
+                plasma_core_omp_zunmqr(
                     PlasmaLeft, Plasma_ConjTrans,
                     mvak, nvajj, imin(mvak, nvaj), ib,
                     A(k, j), ldak,
@@ -78,7 +78,7 @@ void plasma_pzgeqrf_tree(plasma_desc_t A, plasma_desc_t T,
             int mvakpiv = plasma_tile_mview(A, kpiv);
             int ldakpiv = plasma_tile_mmain(A, kpiv);
 
-            core_omp_zttqrt(
+            plasma_core_omp_zttqrt(
                 mvak, nvaj, ib,
                 A(kpiv, j), ldakpiv,
                 A(k,  j),   ldak,
@@ -89,7 +89,7 @@ void plasma_pzgeqrf_tree(plasma_desc_t A, plasma_desc_t T,
             for (int jj = j + 1; jj < A.nt; jj++) {
                 int nvajj = plasma_tile_nview(A, jj);
 
-                core_omp_zttmqr(
+                plasma_core_omp_zttmqr(
                     PlasmaLeft, Plasma_ConjTrans,
                     mvakpiv, nvajj, mvak, nvajj, imin(mvakpiv+mvak, nvaj), ib,
                     A(kpiv, jj), ldakpiv,
@@ -105,7 +105,7 @@ void plasma_pzgeqrf_tree(plasma_desc_t A, plasma_desc_t T,
             int mvakpiv = plasma_tile_mview(A, kpiv);
             int ldakpiv = plasma_tile_mmain(A, kpiv);
 
-            core_omp_ztsqrt(
+            plasma_core_omp_ztsqrt(
                 mvak, nvaj, ib,
                 A(kpiv, j), ldakpiv,
                 A(k,  j),   ldak,
@@ -116,7 +116,7 @@ void plasma_pzgeqrf_tree(plasma_desc_t A, plasma_desc_t T,
             for (int jj = j + 1; jj < A.nt; jj++) {
                 int nvajj = plasma_tile_nview(A, jj);
 
-                core_omp_ztsmqr(
+                plasma_core_omp_ztsmqr(
                     PlasmaLeft, Plasma_ConjTrans,
                     mvakpiv, nvajj, mvak, nvajj, imin(mvakpiv+mvak, nvaj), ib,
                     A(kpiv, jj), ldakpiv,