Télécharger iniali.eso

Retour à la liste

Numérotation des lignes :

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

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