Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=c_int), | public | :: | comm | = | MPI_COMM_NULL | ||
logical(kind=c_bool), | public | :: | debug_mode | = | .false. | ||
logical(kind=c_bool), | public | :: | usempi | = | .false. |
type, public, bind(c) :: mpi_communicator integer(c_int) :: comm = MPI_COMM_NULL !< MPI communicator logical(c_bool) :: debug_mode = .false. logical(c_bool) :: usempi = .false. end type mpi_communicator