external_force_type Derived Type

type, private :: external_force_type

外力求解


Contents

Variables

Type-Bound Procedures

Source Code

external_force_type

Components

Type Visibility Attributes Name Initial
procedure(external_force_fcn), public, pointer :: run
real(kind=rk), public :: r0

排斥力半径
real(kind=rk), public :: dd

速度最大值的平方量级

Type-Bound Procedures

procedure, public, :: init

  • private subroutine init(self)

    初始化

    Arguments

    Type IntentOptional Attributes Name
    class(external_force_type), intent(inout) :: self

Source Code

    type external_force_type
        procedure(external_force_fcn), pointer :: run
        real(rk) :: r0  !! 排斥力半径
        real(rk) :: dd  !! 速度最大值的平方量级
    contains
        procedure :: init
    end type external_force_type