Commit d34aec18 authored by Andreas Marek's avatar Andreas Marek

Some intendation

parent a5710519
......@@ -51,7 +51,7 @@
#include "../general/sanity.F90"
subroutine trans_ev_band_to_full_&
subroutine trans_ev_band_to_full_&
&MATH_DATATYPE&
&_&
&PRECISION &
......@@ -64,39 +64,39 @@
)
#endif
!-------------------------------------------------------------------------------
! trans_ev_band_to_full_real/complex:
! Transforms the eigenvectors of a band matrix back to the eigenvectors of the original matrix
!
! Parameters
!
! na Order of matrix a_mat, number of rows of matrix q_mat
!
! nqc Number of columns of matrix q_mat
!
! nblk blocksize of cyclic distribution, must be the same in both directions!
!
! nbw semi bandwith
!
! a_mat(lda,matrixCols) Matrix containing the Householder vectors (i.e. matrix a_mat after bandred_real/complex)
! Distribution is like in Scalapack.
!
! lda Leading dimension of a_mat
! matrixCols local columns of matrix a_mat and q_mat
!
! tmat(nbw,nbw,numBlocks) Factors returned by bandred_real/complex
!
! q_mat On input: Eigenvectors of band matrix
! On output: Transformed eigenvectors
! Distribution is like in Scalapack.
!
! ldq Leading dimension of q_mat
!
! mpi_comm_rows
! mpi_comm_cols
! MPI-Communicators for rows/columns
!
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
! trans_ev_band_to_full_real/complex:
! Transforms the eigenvectors of a band matrix back to the eigenvectors of the original matrix
!
! Parameters
!
! na Order of matrix a_mat, number of rows of matrix q_mat
!
! nqc Number of columns of matrix q_mat
!
! nblk blocksize of cyclic distribution, must be the same in both directions!
!
! nbw semi bandwith
!
! a_mat(lda,matrixCols) Matrix containing the Householder vectors (i.e. matrix a_mat after bandred_real/complex)
! Distribution is like in Scalapack.
!
! lda Leading dimension of a_mat
! matrixCols local columns of matrix a_mat and q_mat
!
! tmat(nbw,nbw,numBlocks) Factors returned by bandred_real/complex
!
! q_mat On input: Eigenvectors of band matrix
! On output: Transformed eigenvectors
! Distribution is like in Scalapack.
!
! ldq Leading dimension of q_mat
!
! mpi_comm_rows
! mpi_comm_cols
! MPI-Communicators for rows/columns
!
!-------------------------------------------------------------------------------
use precision
use cuda_functions
use iso_c_binding
......@@ -149,7 +149,7 @@
&PRECISION&
&_&
&MATH_DATATYPE
integer(kind=ik) :: blocking_factor, error
integer(kind=ik) :: blocking_factor, error, blk_end
if(useGPU) then
gpuString = "_gpu"
......@@ -273,7 +273,8 @@
endif
l_cols = local_index(nqc, my_pcol, np_cols, nblk, -1) ! Local columns of q_mat
do istep=1,((na-1)/nbw-1)/blocking_factor + 1
blk_end = ((na-1)/nbw-1)/blocking_factor + 1
do istep=1, blk_end
! This the call when using na >= ((blocking_factor+1)*nbw)
! n_cols = MIN(na,istep*cwy_blocking+nbw) - (istep-1)*cwy_blocking - nbw
......@@ -542,8 +543,8 @@
&PRECISION_SUFFIX //&
gpuString)
end subroutine trans_ev_band_to_full_&
&MATH_DATATYPE&
end subroutine trans_ev_band_to_full_&
&MATH_DATATYPE&
&_&
&PRECISION
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment