1 |       program testgeneb
   2 | 
   3 | c declaration
   4 | c appel a biblio
   5 | c     neant
   6 | c variables
   7 |       implicit none
   8 | c     par fichier
   9 |       include 'cecile.inc'
  10 | c     a cause ngaz_mx utilise dans propradia.inc
  11 |       include 'propradia.inc'
  12 | c     par variables
  13 |       double precision num(1:40000)
  14 |       integer i, numi
  15 | 
  16 | 
  17 | 
  18 | c corps debut
  19 |      
  20 | c      print *,'Il y a: ', nbande , ' bandes.'
  21 | c      print *
  22 |       numi = 0
  23 |       do i=1,40000
  24 |          print *,'tirage n~:', i
  25 |          call genere_b(1,numi)
  26 |          print *,'tirage n~:', i,'  num de la bande: ', numi
  27 | c         read (*,*)
  28 | c         test pour reconstituer la loi de proba
  29 | c         recensement du nombre de tirages par canal
  30 |       enddo
  31 |          
  32 |       
  33 |       end