check Subroutine

private subroutine check(self, pairs, particles)

检查是否粒子发生坍塌聚集

Type Bound

memory_type

Arguments

Type IntentOptional Attributes Name
class(memory_type), intent(inout) :: self
integer, intent(in) :: pairs
integer, intent(in) :: particles

Contents

Source Code

check

Source Code

    subroutine check(self, pairs, particles)
        class(memory_type), intent(inout) :: self
        integer, intent(in) :: pairs, particles

        if (pairs > self%maxpairs) then

            self%maxpairs = pairs
            if (pairs/particles > dim*8) then
                call terminal_obj%error('too many pairs, please check the model')
            end if

        end if

    end subroutine check