Array of particle combinations
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | allocatable | :: | ia(:) |
index of particle 'a' |
||
integer, | public, | allocatable | :: | ib(:) |
index of particle 'b' |
||
real(kind=rk), | public, | allocatable | :: | weight(:) |
weight of 'a+b' assigned to pivot |
Allocate combarray
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(combarray), | intent(inout) | :: | self |
object |
||
integer, | intent(in) | :: | n |
array size |
Size of combarray
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(combarray), | intent(in) | :: | self |
object |
type :: combarray !! Array of particle combinations integer, allocatable :: ia(:) !! index of particle 'a' integer, allocatable :: ib(:) !! index of particle 'b' real(rk), allocatable :: weight(:) !! weight of 'a+b' assigned to pivot contains procedure, pass(self) :: alloc => array_alloc procedure, pass(self) :: size => array_size end type combarray