mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-16 18:38:28 +02:00
Protected qmckldgemm stuff with ifdefs.
This commit is contained in:
parent
46a26c7028
commit
e822694a56
@ -889,7 +889,9 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
|
|||||||
m, n, k, alpha, A, LDA, B, LDB, beta, C, LDC) &
|
m, n, k, alpha, A, LDA, B, LDB, beta, C, LDC) &
|
||||||
result(info)
|
result(info)
|
||||||
use qmckl
|
use qmckl
|
||||||
|
#ifdef HAVE_LIBQMCKLDGEMM
|
||||||
use qmckl_dgemm_tiled_module
|
use qmckl_dgemm_tiled_module
|
||||||
|
#endif
|
||||||
implicit none
|
implicit none
|
||||||
integer(qmckl_context), intent(in) :: context
|
integer(qmckl_context), intent(in) :: context
|
||||||
character , intent(in) :: TransA, TransB
|
character , intent(in) :: TransA, TransB
|
||||||
@ -943,9 +945,7 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
|
|||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
!call dgemm(transA, transB, int(m,4), int(n,4), int(k,4), &
|
#ifdef HAVE_LIBQMCKLDGEMM
|
||||||
! alpha, A, int(LDA,4), B, int(LDB,4), beta, C, int(LDC,4))
|
|
||||||
|
|
||||||
! Copy A to A1
|
! Copy A to A1
|
||||||
allocate(A1(k,m))
|
allocate(A1(k,m))
|
||||||
do j=1,m
|
do j=1,m
|
||||||
@ -984,6 +984,11 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
|
|||||||
end do
|
end do
|
||||||
|
|
||||||
deallocate(A1,B1,C1)
|
deallocate(A1,B1,C1)
|
||||||
|
#else
|
||||||
|
call dgemm(transA, transB, int(m,4), int(n,4), int(k,4), &
|
||||||
|
alpha, A, int(LDA,4), B, int(LDB,4), beta, C, int(LDC,4))
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
end function qmckl_dgemm_f
|
end function qmckl_dgemm_f
|
||||||
#+end_src
|
#+end_src
|
||||||
|
Loading…
Reference in New Issue
Block a user