cuts on Q out, side, long added
[u/mrichter/AliRoot.git] / MINICERN / hbcdf.F
CommitLineData
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