Commit 33d58e4f authored by Matthias Redies's avatar Matthias Redies

fix format types_mpi

parent fab927d5
......@@ -4,18 +4,18 @@
! of the MIT license as expressed in the LICENSE file in more detail.
!--------------------------------------------------------------------------------
MODULE m_types_mpi
TYPE t_mpi
!k-point parallelism
INTEGER :: mpi_comm !< replaces MPI_COMM_WORLD
INTEGER :: irank !< rank of task in mpi_comm
INTEGER :: isize !< no of tasks in mpi_comm
INTEGER,ALLOCATABLE :: k_list(:)
!Eigenvalue parallelism
INTEGER :: sub_comm !< Sub-Communicator for eigenvalue parallelization (all PE working on same k-point)
INTEGER :: n_rank !< rank in sub_comm
INTEGER :: n_size !< PE per kpoint, i.e. "isize" for eigenvalue parallelization
INTEGER,ALLOCATABLE :: ev_list(:)
!Communicator for PE on same node
INTEGER :: mpi_comm_same_node
END TYPE t_mpi
TYPE t_mpi
!k-point parallelism
INTEGER :: mpi_comm !< replaces MPI_COMM_WORLD
INTEGER :: irank !< rank of task in mpi_comm
INTEGER :: isize !< no of tasks in mpi_comm
INTEGER, ALLOCATABLE :: k_list(:)
!Eigenvalue parallelism
INTEGER :: sub_comm !< Sub-Communicator for eigenvalue parallelization (all PE working on same k-point)
INTEGER :: n_rank !< rank in sub_comm
INTEGER :: n_size !< PE per kpoint, i.e. "isize" for eigenvalue parallelization
INTEGER, ALLOCATABLE :: ev_list(:)
!Communicator for PE on same node
INTEGER :: mpi_comm_same_node
END TYPE t_mpi
END MODULE m_types_mpi
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