init Subroutine

private subroutine init(self, n)

初始化内存空间

Type Bound

nnps_pairs_type

Arguments

Type IntentOptional Attributes Name
class(nnps_pairs_type), intent(inout) :: self
integer, intent(in) :: n

粒子对容量

Contents

Source Code

init

Source Code

    subroutine init(self, n)
        class(nnps_pairs_type), intent(inout) :: self
        integer, intent(in) :: n    !! 粒子对容量

        allocate (self%wdwdx(dim + 1, n))
        allocate (self%contact_type(n))
        self%cap = n

    end subroutine init