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