pcgb – OPENQP

public subroutine pcgb(pk, r, xm_in)

Uses

- precision
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Arguments

Type	Intent		Name
real(kind=dp),	intent(out)	::	pk(:)
real(kind=dp),	intent(in)	::	r(:)
real(kind=dp),	intent(in)	::	xm_in(:)

Source Code

  subroutine pcgb(pk,r,xm_in)
    use precision, only: dp

    implicit none

    real(kind=dp), intent(out) :: pk(:)
    real(kind=dp), intent(in) :: r(:)
    real(kind=dp), intent(in) :: xm_in(:)

    real(kind=dp) :: beta

    beta = 1.0_dp/sum(r*r*xm_in)

  ! pk ini
    pk = pk + beta*xm_in*r

  end subroutine pcgb

pcgb Subroutine

Contents

Source Code

public subroutine pcgb(pk, r, xm_in)

Uses

Arguments

Source Code