Moved from AliTransbit to AliL3Transbit.
[u/mrichter/AliRoot.git] / MINICERN / hbcdf.F
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