C INIALI    SOURCE    CHAT      11/05/04    21:16:36     6963           
C   INITIALISATION DES ALIAS et de quelques noms le premier appel a
C   nomcha  est obligatoire
C     
      SUBROUTINE INIALI
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C    Include contenant quelques constantes dont XPI :
-INC CCREEL
-INC CCREDLE
      DIMENSION ITMOT(2)
C  VARIABLES PREDEFINIES
      CALL NOMCHA(' ',' ')
      CALL NOMCHA('#1','#1')
      CALL NOMCHA('#2','#2')
      CALL NOMCHA('#3','#3')
      CALL NOMCHA('#4','#4')
      CALL NOMCHA('D','DROI')
      CALL NOMCHA('C','CERC')
      CALL NOMREE('PI',XPI)
      call nomcha('DEBP','DEBP')
      call nomcha ('DEBM','DEBM')
* on met dans la pile le point des tables et le % des objets
      sredle=iredle
      ire=6
*      write(6,*) ' iredle ', iredle
      call prenom(iplamo,0,iredle)
*      write(6,*) '  ire = 6 ', iplamo
      ire=7
      call prenom(iplamo,0,iredle)
*      write(6,*) '  ire = 7 ', iplamo
* mise dans la pile des logiques vrai et faux
      bool=.true.
      ire=5
      call prenom (iplamo,0,iredle)
*      write(6,*) '  ire = 5 vrai ', iplamo
      bool=.false.
      call prenom (iplamo,0,iredle)
*      write(6,*) '  ire = 5 faux ', iplamo
      
      END