1      SUBROUTINE PARAMSOMBRE(NBC,IMUL,SOMBRE)
2      INCLUDE 'Parametres.f'
3      nbcoldebase = NBC
4      nbcoldebase2 = NBC+16
5      nbsoustable = IMUL
6      sombremini  = SOMBRE
7      do i=0,nbcoldebase2
8        couleurtrouvee(i) = .true.
9      enddo
10      do i=nbcoldebase2+1,nbcoldebase2+imul*nbc
11        couleurtrouvee(i) = .false.
12      enddo
13      END
14