Esope source files

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