Skip to content

Commit fefb259

Browse files
committed
A bit more documentation
1 parent a891f56 commit fefb259

4 files changed

Lines changed: 8 additions & 8 deletions

File tree

src/Fortran/dynamic_load_balancer.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,9 +8,9 @@ module SLB4MPI_dynamic_load_balancer_m
88

99
type, extends(load_balancer_t) :: dynamic_load_balancer_t
1010
#ifdef SLB4MPI_WITH_MPI
11-
integer(MPI_INTEGER_KIND) :: window
11+
integer(MPI_INTEGER_KIND) :: window !< sync window
1212
#else
13-
integer(MPI_INTEGER_KIND) :: counter
13+
integer(MPI_INTEGER_KIND) :: counter !< evaluation index
1414
#endif
1515
contains
1616
procedure :: initialize

src/Fortran/guided_load_balancer.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,9 +8,9 @@ module SLB4MPI_guided_load_balancer_m
88

99
type, extends(load_balancer_t) :: guided_load_balancer_t
1010
#ifdef SLB4MPI_WITH_MPI
11-
integer(MPI_INTEGER_KIND) :: window
11+
integer(MPI_INTEGER_KIND) :: window !< sync window
1212
#else
13-
integer(MPI_INTEGER_KIND) :: counter
13+
integer(MPI_INTEGER_KIND) :: counter !< evaluation index
1414
#endif
1515
contains
1616
procedure :: initialize

src/Fortran/runtime_load_balancer.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ module SLB4MPI_runtime_load_balancer_m
1717
integer :: load_balancer_type = ENV_LOAD_BALANCER
1818

1919
type, extends(load_balancer_t) :: runtime_load_balancer_t
20-
class(load_balancer_t), allocatable :: balancer
20+
class(load_balancer_t), allocatable :: balancer !< actual load balancer
2121
contains
2222
procedure :: initialize
2323
procedure :: get_range

src/Fortran/work_stealing_load_balancer.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -12,10 +12,10 @@ module SLB4MPI_work_stealing_load_balancer_m
1212
integer(MPI_INTEGER_KIND) :: window_bounds !< lower and upper bounds of rank
1313
integer(MPI_INTEGER_KIND) :: window_actual_rank !< actual rank to compute (for fast look up)
1414
integer(MPI_INTEGER_KIND) :: window_done !< status of thread
15-
integer(MPI_INTEGER_KIND) :: actual_rank
16-
logical :: done = .false.
15+
integer(MPI_INTEGER_KIND) :: actual_rank !< value of actual rank
16+
logical :: done = .false. !< task completed?
1717
#else
18-
integer(MPI_INTEGER_KIND) :: counter
18+
integer(MPI_INTEGER_KIND) :: counter !< evaluation index
1919
#endif
2020
contains
2121
procedure :: initialize

0 commit comments

Comments
 (0)