source: trunk/pgm03/histog.f @ 1

Last change on this file since 1 was 1, checked in by cbipsl, 18 years ago

Geisa inital import
File size: 711 bytes
Line 
1C
2C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
3C     IH=NOMBRE DE CARACTERES A IMPRIMER
4C     IHH=FREQUENCE DE LA CLASSE
5C     VV=ALFMOY
6C     CALCUL DE LA HAUTEUR D'UNE CLASSE
7C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
8C
9      subroutine histog(hist,pas,xmin,k,lk,ll,ih,ihh,v,vv,ba,bl,ast)
10C
11      character*1 ba,bl,ast
12      integer   hist(lk,1)
13C
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
2310    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.