ps_Projector_Value Function

public function ps_Projector_Value(ps, i, r) result(val)

Arguments

Type IntentOptional Attributes Name
type(ps_t), intent(in) :: ps
integer, intent(in) :: i
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)


Contents

Source Code

ps_Projector_Value

Source Code

function ps_Projector_Value(ps,i,r) result(val)
!+ display: private
type(ps_t), intent(in) :: ps
integer,   intent(in)  :: i
real(dp),  intent(in)  :: r
real(dp)               :: val

call check_index(i,size(ps%nl_table),"proj")
val = ps_GetValue(ps%nl_table(i)%p%proj,r)

end function ps_Projector_Value