Line data    Source code

       1             : module m_types_eigvec
       2             :    use m_types_mat 
       3             : 
       4             : #ifdef CPP_MPI
       5             :    use mpi
       6             : #endif
       7             :    implicit none
       8             :    private 
       9             :    type,public:: t_eigvec 
      10             :       logical     :: l_participate = .False. 
      11             :       logical     :: l_recv        = .False.
      12             :       integer     :: nk = -1, jsp = -1
      13             :       
      14             : #ifdef CPP_MPI
      15             :       integer                :: comm = MPI_COMM_NULL ! communicator for this t_eigvec
      16             : #else
      17             :       integer                :: comm = -1
      18             : #endif
      19             :       integer, allocatable :: root_pe(:)
      20             :       type(t_mat) :: mat
      21             :    end type t_eigvec 
      22             :    
      23           0 : end module m_types_eigvec