histogram_print Subroutine

subroutine histogram_print(h, unit)

Arguments

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

Calls

proc~~histogram_print~~CallsGraph proc~histogram_print histogram_print histogram_get_range histogram_get_range proc~histogram_print->histogram_get_range histogram_get_value histogram_get_value proc~histogram_print->histogram_get_value

Source Code

subroutine histogram_print(h,unit)
  type(histogram),intent(in) :: h
  integer,intent(in)         :: unit
  integer                    :: i,n
  real(8)                    :: lower,upper,bin_value
  n=h%n
  call histogram_get_range(h,0,lower,upper)
  write(unit,"(2F12.7)")lower,0.d0
  do i=0,n-1
     call histogram_get_range(h,i,lower,upper)
     bin_value = histogram_get_value(h,i)
     write(unit,"(2F12.7)")lower,bin_value
     write(unit,"(2F12.7)")upper,bin_value
  enddo
  write(unit,"(2F12.7)")upper,0.d0
end subroutine histogram_print