| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | module callback | ||
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | logical :: output_error = .False. | ||
| 6 | logical :: output_orbits_macrostep = .False. | ||
| 7 | |||
| 8 | public :: set_output_orbits_macrostep | ||
| 9 | public :: get_output_orbits_macrostep | ||
| 10 | |||
| 11 | contains | ||
| 12 | |||
| 13 | ✗ | subroutine set_output_orbits_macrostep(flag) | |
| 14 | logical, intent(in) :: flag | ||
| 15 | ✗ | output_orbits_macrostep = flag | |
| 16 | ✗ | end subroutine set_output_orbits_macrostep | |
| 17 | |||
| 18 | ✗ | logical function get_output_orbits_macrostep() | |
| 19 | ✗ | get_output_orbits_macrostep = output_orbits_macrostep | |
| 20 | ✗ | end function get_output_orbits_macrostep | |
| 21 | |||
| 22 | end module callback | ||
| 23 |