histogram_get_value Function

function histogram_get_value(h, index) result(value)

Arguments

Type IntentOptional Attributes Name
type(histogram), intent(in) :: h
integer, intent(in) :: index

Return Value real(kind=8)


Calls

proc~~histogram_get_value~~CallsGraph proc~histogram_get_value histogram_get_value bin bin proc~histogram_get_value->bin

Source Code

function histogram_get_value(h,index) result(value)
  type(histogram),intent(in) :: h
  integer,intent(in)         :: index
  real(8)                    :: value
  if(index>=h%n)then
     print*,"error: *index lies outside valid range=0...n-1"
     stop
  endif
  value=h%bin(index)
end function histogram_get_value