Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
289c35ac
Commit
289c35ac
authored
Jan 25, 2017
by
Andreas Marek
Browse files
Fix FULL_TO_BAND_BLOCKING
parent
3c546600
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/elpa2_trans_ev_band_to_full_template.X90
View file @
289c35ac
...
...
@@ -963,15 +963,31 @@
! tmp2 = tmp1
call timer%start("blas")
if (l_rows>0) then
#ifdef BAND_TO_FULL_BLOCKING
#if REALCASE == 1
call PRECISION_TRMM('L', 'U', 'T', 'N', n_cols, l_cols, ONE, tmat_complete, cwy_blocking, tmp1, n_cols)
call PRECISION_TRMM('L', 'U', 'T', 'N', &
#endif
#if COMPLEXCASE == 1
call PRECISION_TRMM('L', 'U', 'C', 'N', &
#endif
n_cols, l_cols, ONE, tmat_complete, cwy_blocking, tmp1, n_cols)
call PRECISION_GEMM('N', 'N', l_rows, l_cols, n_cols, -ONE, hvm, ubound(hvm,dim=1), tmp1, n_cols, ONE, q, ldq)
#else /* BAND_TO_FULL_BLOCKING */
#if REALCASE == 1
call PRECISION_TRMM('L', 'U', 'T', 'N', &
#endif
#if COMPLEXCASE == 1
call PRECISION_TRMM('L', 'U', 'C', 'N', n_cols, l_cols, ONE, tmat(1,1,istep), ubound(tmat,dim=1), tmp1, n_cols)
call PRECISION_TRMM('L', 'U', 'C', 'N', &
#endif
n_cols, l_cols, ONE, tmat(1,1,istep), ubound(tmat,dim=1), tmp1, n_cols)
call PRECISION_GEMM('N', 'N', l_rows, l_cols, n_cols, -ONE, hvm, ubound(hvm,dim=1), &
tmp1, n_cols, ONE, q, ldq)
#endif
#endif /* BAND_TO_FULL_BLOCKING */
endif
call timer%stop("blas")
#endif /* WITH_MPI */
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment