19 integer,
parameter :: AERO_INFO_NONE = 0
21 integer,
parameter :: AERO_INFO_DILUTION = 1
23 integer,
parameter :: AERO_INFO_COAG = 2
25 integer,
parameter :: AERO_INFO_HALVED = 3
28 integer,
parameter :: AERO_INFO_WEIGHT = 4
94 aero_info_to%id = aero_info_from%id
95 aero_info_to%action = aero_info_from%action
96 aero_info_to%other_id = aero_info_from%other_id
109 aero_info%action = aero_info_none
110 aero_info%other_id = 0
122 integer :: total_size
138 character,
intent(inout) :: buffer(:)
140 integer,
intent(inout) :: position
145 integer :: prev_position
147 prev_position = position
163 character,
intent(inout) :: buffer(:)
165 integer,
intent(inout) :: position
170 integer :: prev_position
172 prev_position = position
subroutine aero_info_copy(aero_info_from, aero_info_to)
Copies aero_info_from to aero_info_to, both of which must already be allocated.
integer function pmc_mpi_pack_size_integer(val)
Determines the number of bytes required to pack the given value.
subroutine aero_info_deallocate(aero_info)
Deallocates.
integer function pmc_mpi_pack_size_aero_info(val)
Determines the number of bytes required to pack the given value.
subroutine aero_info_allocate(aero_info)
Allocates and initializes.
subroutine pmc_mpi_pack_integer(buffer, position, val)
Packs the given value into the buffer, advancing position.
Common utility subroutines.
subroutine pmc_mpi_unpack_integer(buffer, position, val)
Unpacks the given value from the buffer, advancing position.
The aero_info_t structure and associated subroutines.
Wrapper functions for MPI.
subroutine aero_info_zero(aero_info)
Resets an aero_info to contain zero particles.
subroutine pmc_mpi_unpack_aero_info(buffer, position, val)
Unpacks the given value from the buffer, advancing position.
subroutine pmc_mpi_pack_aero_info(buffer, position, val)
Packs the given value into the buffer, advancing position.
Reading formatted text input.
subroutine assert(code, condition_ok)
Errors unless condition_ok is true.
Information about removed particles describing the sink.