Télécharger la plaquette Cast3M


fr en

Télécharger iniali.eso

Retour à la liste

Numérotation des lignes : 

iniali

  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.  
  9. -INC PPARAM
  10. -INC CCREEL
  11. -INC CCREDLE
  12.  
  13.       DIMENSION ITMOT(2)
  14.  
  15. C  VARIABLES PREDEFINIES
  16.       CALL NOMCHA(' ',' ')
  17.       CALL NOMCHA('#1','#1')
  18.       CALL NOMCHA('#2','#2')
  19.       CALL NOMCHA('#3','#3')
  20.       CALL NOMCHA('#4','#4')
  21.       CALL NOMCHA('D','DROI')
  22.       CALL NOMCHA('C','CERC')
  23.       CALL NOMREE('PI',XPI)
  24.       call nomcha('DEBP','DEBP')
  25.       call nomcha ('DEBM','DEBM')
  26. * on met dans la pile le point des tables et le % des objets
  27.       sredle=iredle
  28.       ire=6
  29. *      write(6,*) ' iredle ', iredle
  30.       call prenom(iplamo,0,iredle)
  31. *      write(6,*) '  ire = 6 ', iplamo
  32.       ire=7
  33.       call prenom(iplamo,0,iredle)
  34. *      write(6,*) '  ire = 7 ', iplamo
  35. * mise dans la pile des logiques vrai et faux
  36.       bool=.true.
  37.       ire=5
  38.       call prenom (iplamo,0,iredle)
  39. *      write(6,*) '  ire = 5 vrai ', iplamo
  40.       bool=.false.
  41.       call prenom (iplamo,0,iredle)
  42. *      write(6,*) '  ire = 5 faux ', iplamo
  43.  
  44.       END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales