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