| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public | :: | rank | = | 0_i32 | ||
| integer(kind=i32), | public | :: | size | = | 1_i32 | ||
| logical, | public | :: | enabled | = | .false. |
type :: mpi_context integer(i32) :: rank = 0_i32 integer(i32) :: size = 1_i32 logical :: enabled = .false. #ifdef USE_MPI logical :: initialized_here = .false. #endif end type mpi_context