initialize_params Subroutine

SUBROUTINE initialize_params(params,go)
	TYPE(KORC_PARAMS), INTENT(IN) :: params
	REAL(rp), INTENT(IN) :: go
	REAL(rp) :: max_pitch_angle
	REAL(rp) :: min_pitch_angle
	REAL(rp) :: Zeff
	REAL(rp) :: E
	REAL(rp) :: Bo
	REAL(rp) :: lambda
	NAMELIST /SimpleEquilibriumPDF/ max_pitch_angle,min_pitch_angle,Zeff,E,Bo,lambda

	open(unit=default_unit_open,file=TRIM(params%path_to_inputs),status='OLD',form='formatted')
	read(default_unit_open,nml=SimpleEquilibriumPDF)
	close(default_unit_open)

	pdf_params%max_pitch_angle = max_pitch_angle
	pdf_params%min_pitch_angle = min_pitch_angle
	pdf_params%Zeff = Zeff
	pdf_params%E = E
	pdf_params%Bo = Bo
	pdf_params%lambda = lambda

	pdf_params%po = sqrt(go**2 - 1.0_rp)
END SUBROUTINE initialize_params