]>
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 |