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