      SUBROUTINE TROUVELACOUL(IC,INDEX)
      PARAMETER (NV=256,NR=2**16)
C
      ITR  = IC/NR
      ITVB = IC-ITR*NR
      ITV  = ITVB/NV
      ITB  = MOD(ITVB,NV)
      ROUGE = REAL(ITR)/255.
      VERT  = REAL(ITV)/255.
      BLEU  = REAL(ITB)/255.
      CALL x11trouvecouleur(ROUGE,VERT,BLEU,INDEX)
      END
