Rev | Line | |
---|
[1] | 1 | C |
---|
| 2 | C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * |
---|
| 3 | C IH=NOMBRE DE CARACTERES A IMPRIMER |
---|
| 4 | C IHH=FREQUENCE DE LA CLASSE |
---|
| 5 | C VV=ALFMOY |
---|
| 6 | C CALCUL DE LA HAUTEUR D'UNE CLASSE |
---|
| 7 | C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * |
---|
| 8 | C |
---|
| 9 | subroutine histog(hist,pas,xmin,k,lk,ll,ih,ihh,v,vv,ba,bl,ast) |
---|
| 10 | C |
---|
| 11 | character*1 ba,bl,ast |
---|
| 12 | integer hist(lk,1) |
---|
| 13 | C |
---|
| 14 | if(ll.gt.lk) go to 10 |
---|
| 15 | ba=ast |
---|
| 16 | ih=hist(lk-ll+1,k+2) |
---|
| 17 | if(ih.eq.0) ba=bl |
---|
| 18 | ihh=hist(lk-ll+1,k) |
---|
| 19 | vv=v |
---|
| 20 | if(k.eq.1) v=v*pas |
---|
| 21 | if(k.eq.2) v=xmin+pas*(lk-ll) |
---|
| 22 | return |
---|
| 23 | 10 continue |
---|
| 24 | if(ll.gt.lk+1) return |
---|
| 25 | ba=bl |
---|
| 26 | ihh=0 |
---|
| 27 | vv=xmin |
---|
| 28 | return |
---|
| 29 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.