get_equilibrium_distribution Subroutine

  1. korc_simple_equilibrium_pdf.f90
  2. korc_simple_equilibrium_pdf
  3. get_equilibrium_distribution

public subroutine get_equilibrium_distribution(params, eta, go, etao)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
real(kind=rp), intent(inout), DIMENSION(:), ALLOCATABLE:: eta
real(kind=rp), intent(in) :: go
real(kind=rp), intent(out) :: etao

Contents

Source Code

get_equilibrium_distribution

Source Code

SUBROUTINE get_equilibrium_distribution(params,eta,go,etao)
	TYPE(KORC_PARAMS), INTENT(IN) :: params
	REAL(rp), DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: eta
	REAL(rp), INTENT(IN) :: go
	REAL(rp), INTENT(OUT) :: etao

	call initialize_params(params,go)

	call save_params(params)

	call sample_distribution(params,eta,etao)
END SUBROUTINE get_equilibrium_distribution