1      SUBROUTINE CHERCHELACOUL(I)
2      INCLUDE 'Parametres.f'
3      j = i-16
4      II = mod(j,nbcoldebase)+16
5      IM = j/nbcoldebase
6      S = 1. + (SOMBREMINI-1.)*REAL(IM)/REAL(nbsoustable)
7      rouge = table_rouge(ii)*s
8      vert  = table_vert(ii)*s
9      bleu  = table_bleu(ii)*s
10      CALL x11trouvecouleur(ROUGE,VERT,BLEU,I)
11      couleurtrouvee(i) = .true.
12      END
13