Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions common_macro.h
Original file line number Diff line number Diff line change
Expand Up @@ -3159,6 +3159,8 @@ typedef struct {
#define NEG_TCOPY ZNEG_TCOPY
#define LARF_L ZLARF_L
#define LARF_R ZLARF_R
#define LAED3_SINGLE dlaed3_single
#define LAED3_PARALLEL dlaed3_parallel
#else
#define GETF2 CGETF2
#define GETRF CGETRF
Expand All @@ -3180,6 +3182,8 @@ typedef struct {
#define NEG_TCOPY CNEG_TCOPY
#define LARF_L CLARF_L
#define LARF_R CLARF_R
#define LAED3_SINGLE slaed3_single
#define LAED3_PARALLEL slaed3_parallel
#endif
#endif

Expand Down
4 changes: 2 additions & 2 deletions interface/Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -530,8 +530,8 @@ ifneq ($(NO_LAPACK), 1)
SBLASOBJS += $(SLAPACKOBJS)
DBLASOBJS += $(DLAPACKOBJS)
#QBLASOBJS += $(QLAPACKOBJS)
CBLASOBJS += $(CLAPACKOBJS)
ZBLASOBJS += $(ZLAPACKOBJS)
CBLASOBJS += $(CLAPACKOBJS) slaed3.$(SUFFIX)
ZBLASOBJS += $(ZLAPACKOBJS) dlaed3.$(SUFFIX)
#XBLASOBJS += $(XLAPACKOBJS)

endif
Expand Down
4 changes: 2 additions & 2 deletions lapack/laed3/Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -9,10 +9,10 @@ SBLASOBJS += slaed3_parallel.$(SUFFIX)
DBLASOBJS += dlaed3_parallel.$(SUFFIX)
endif

ifeq "$(or $(BUILD_SINGLE),$(BUILD_DOUBLE))" ""
ifeq "$(or $(BUILD_SINGLE),$(BUILD_COMPLEX))" ""
SBLASOBJS=
endif
ifneq ($(BUILD_DOUBLE),1)
ifeq "$(or $(BUILD_DOUBLE),$(BUILD_COMPLEX16))" ""
DBLASOBJS=
endif

Expand Down
18 changes: 17 additions & 1 deletion test/Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -246,15 +246,19 @@ endif
ifeq ($(BUILD_COMPLEX),1)
ifeq ($(SUPPORT_GEMM3M),1)
C3=cblat3 cblat3_3m
C3M=cblat3_3m
else
C3=cblat3
C3M=
endif
endif
ifeq ($(BUILD_COMPLEX16),1)
ifeq ($(SUPPORT_GEMM3M),1)
Z3=zblat3 zblat3_3m
Z3M=zblat3_3m
else
Z3=zblat3
Z3M=
endif
endif

Expand Down Expand Up @@ -342,28 +346,40 @@ endif
endif


level3_3m: zblat3_3m cblat3_3m
level3_3m: $(C3M) $(Z3M)
ifneq ($(CROSS), 1)
rm -f ?BLAT3_3M.SUMM
ifeq ($(BUILD_COMPLEX),1)
OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 ./cblat3_3m < ./cblat3_3m.dat
@$(GREP) -q FATAL CBLAT3_3M.SUMM && cat CBLAT3_3M.SUMM || exit 0
endif
ifeq ($(BUILD_COMPLEX16),1)
OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 ./zblat3_3m < ./zblat3_3m.dat
@$(GREP) -q FATAL ZBLAT3_3M.SUMM && cat ZBLAT3_3M.SUMM || exit 0
endif
ifdef SMP
rm -f ?BLAT3_3M.SUMM
ifeq ($(USE_OPENMP), 1)
ifeq ($(BUILD_COMPLEX),1)
OMP_NUM_THREADS=2 ./cblat3_3m < ./cblat3_3m.dat
@$(GREP) -q FATAL CBLAT3_3M.SUMM && cat CBLAT3_3M.SUMM || exit 0
endif
ifeq ($(BUILD_COMPLEX16),1)
OMP_NUM_THREADS=2 ./zblat3_3m < ./zblat3_3m.dat
@$(GREP) -q FATAL ZBLAT3_3M.SUMM && cat ZBLAT3_3M.SUMM || exit 0
endif
else
ifeq ($(BUILD_COMPLEX),1)
OPENBLAS_NUM_THREADS=2 ./cblat3_3m < ./cblat3_3m.dat
@$(GREP) -q FATAL CBLAT3_3M.SUMM && cat CBLAT3_3M.SUMM || exit 0
endif
ifeq ($(BUILD_COMPLEX16),1)
OPENBLAS_NUM_THREADS=2 ./zblat3_3m < ./zblat3_3m.dat
@$(GREP) -q FATAL ZBLAT3_3M.SUMM && cat ZBLAT3_3M.SUMM || exit 0
endif
endif
endif
endif



Expand Down
6 changes: 4 additions & 2 deletions utest/test_extensions/common.c
Original file line number Diff line number Diff line change
Expand Up @@ -50,6 +50,7 @@ void drand_generate(double *alpha, blasint n)
alpha[i] = (double)rand() / (double)RAND_MAX;
}

#if defined(BUILD_SINGLE) || defined(BUILD_COMPLEX)
/**
* Find difference between two rectangle matrix
* return norm of differences
Expand All @@ -76,7 +77,8 @@ float smatrix_difference(float *a, float *b, blasint cols, blasint rows, blasint
}
return norm/(float)(rows);
}

#endif
#if defined(BUILD_DOUBLE) || defined(BUILD_COMPLEX16)
double dmatrix_difference(double *a, double *b, blasint cols, blasint rows, blasint ld)
{
blasint i = 0;
Expand All @@ -99,7 +101,7 @@ double dmatrix_difference(double *a, double *b, blasint cols, blasint rows, blas
}
return norm/(double)(rows);
}

#endif
/**
* Complex conjugate operation for vector
*
Expand Down
Loading