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