C
C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
C     IH=NOMBRE DE CARACTERES A IMPRIMER
C     IHH=FREQUENCE DE LA CLASSE
C     VV=ALFMOY
C     CALCUL DE LA HAUTEUR D'UNE CLASSE
C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
C
      subroutine histog(hist,pas,xmin,k,lk,ll,ih,ihh,v,vv,ba,bl,ast)
C
      character*1 ba,bl,ast
      integer   hist(lk,1)
C
      if(ll.gt.lk) go to 10
      ba=ast
      ih=hist(lk-ll+1,k+2)
      if(ih.eq.0) ba=bl
      ihh=hist(lk-ll+1,k)
      vv=v
      if(k.eq.1) v=v*pas
      if(k.eq.2) v=xmin+pas*(lk-ll)
      return
10    continue
      if(ll.gt.lk+1) return
      ba=bl
      ihh=0
      vv=xmin
      return
      end