types_mpi.F90 999 Bytes
Newer Older
Daniel Wortmann's avatar
Daniel Wortmann committed
1 2 3 4 5 6 7
!--------------------------------------------------------------------------------
! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
! This file is part of FLEUR and available as free software under the conditions
! of the MIT license as expressed in the LICENSE file in more detail.
!--------------------------------------------------------------------------------
MODULE m_types_mpi
  TYPE t_mpi
8
     !k-point parallelism
Daniel Wortmann's avatar
Daniel Wortmann committed
9 10 11
     INTEGER :: mpi_comm !< replaces MPI_COMM_WORLD
     INTEGER :: irank    !< rank of task in mpi_comm
     INTEGER :: isize    !< no of tasks in mpi_comm
12 13
     INTEGER,ALLOCATABLE :: k_list(:)
     !Eigenvalue parallelism
Daniel Wortmann's avatar
Daniel Wortmann committed
14 15
     INTEGER :: sub_comm !< Sub-Communicator for eigenvalue parallelization (all PE working on same k-point)
     INTEGER :: n_rank   !< rank in sub_comm
16 17
     INTEGER :: n_size   !< PE per kpoint, i.e. "isize" for eigenvalue parallelization
     INTEGER,ALLOCATABLE :: ev_list(:)
Daniel Wortmann's avatar
Daniel Wortmann committed
18 19
  END TYPE t_mpi
END MODULE m_types_mpi