| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public | :: | rank | = | 0_i32 | ||
| integer(kind=i32), | public | :: | size | = | 1_i32 | ||
| logical, | public | :: | enabled | = | .false. | ||
| integer(kind=i32), | public | :: | thread_level | = | 0_i32 |
|
type :: mpi_context integer(i32) :: rank = 0_i32 integer(i32) :: size = 1_i32 logical :: enabled = .false. !> `MPI_Init_thread` が返した thread support level(非 MPI build では 0)。 integer(i32) :: thread_level = 0_i32 #ifdef USE_MPI logical :: initialized_here = .false. #endif end type mpi_context