[u/mrichter/AliRoot.git] / MINICERN / hbcdf.F

      subroutine hbcdf(y,n,ia)
      character *132 string
      dimension ia(n)
      character*12 form
      write(form,'(''(F'',i3.3,''.3)'')') n
      write(string(1:n),form) y
      do k=n,n-2,-1
         if(string(k:k).eq.'0') then
            string(k:k)=' '
            if(k.eq.n-2) string(k-1:k-1)=' '
         endif
      enddo
      call uctoh1(string,ia,n)
      end
Commit	Line	Data
fe4da5cc	1	subroutine hbcdf(y,n,ia)
	2	character *132 string
	3	dimension ia(n)
	4	character*12 form
	5	write(form,'(''(F'',i3.3,''.3)'')') n
	6	write(string(1:n),form) y
	7	do k=n,n-2,-1
	8	if(string(k:k).eq.'0') then
	9	string(k:k)=' '
	10	if(k.eq.n-2) string(k-1:k-1)=' '
	11	endif
	12	enddo
	13	call uctoh1(string,ia,n)
	14	end