C INIRED    SOURCE    CHAT      05/01/13    00:37:57     5004           
C  INITIALISATION DU SEGMENT REDLE
C
      SUBROUTINE INIRED(SREDLE)
      IMPLICIT INTEGER(I-N)
-INC CCREDLE
      SEGINI SREDLE
      SEPARA=.FALSE.
      MOT=' '
      NRAN=0
      ICOUR=2
      RETURN
      END