Sources Esope | Cast3M

inired
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 PPARAM
-INC CCREDLE
 
      SEGINI,SREDLE
      SEPARA=.FALSE.
      MOT=' '
      NRAN =0
      ICOUR=2
      END