Télécharger suite.eso

Retour à la liste

Numérotation des lignes :

suite
  1. C SUITE SOURCE PV 20/04/10 12:45:15 10579
  2. SUBROUTINE SUITE
  3. ************************************************************************
  4. *
  5. * S U I T E
  6. * ---------
  7. *
  8. * SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "SUITE"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * CREATION D'UN OBJET DE TYPE LISTCHPO
  14. *
  15. *
  16. * PHRASE D'APPEL (EN GIBIANE):
  17. * ----------------------------
  18. *
  19. * LCHPO1 = SUITE (CHPO1 (CHPO2 ...)) ;
  20. *
  21. *
  22. * SOUS-PROGRAMMES APPELES:
  23. * ------------------------
  24. *
  25. * LIRMOT, SUITE1
  26. *
  27. *
  28. * AUTEUR, DATE DE CREATION:
  29. * -------------------------
  30. *
  31. * PASCAL MANIGOT 19 FEVRIER 1985
  32. * JCARDO 8/08/2012 => PLUS DE MOT-CLE ATTENDU PUISQUE SEULS DES
  33. * CHPOINT PEUVENT ETRE CREES...
  34. *
  35. * LANGAGE:
  36. * --------
  37. *
  38. * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  39. *
  40. ************************************************************************
  41. *
  42. IMPLICIT INTEGER(I-N)
  43. c
  44. c
  45. -INC PPARAM
  46. -INC CCOPTIO
  47. c *
  48. c PARAMETER (NBRMOT = 1)
  49. c *
  50. c CHARACTER*4 LISMOT(NBRMOT)
  51. c *
  52. c DATA LISMOT/'CHPO'/
  53. c *
  54. c ICODE = 0
  55. c NBMOT = NBRMOT
  56. c CALL LIRMOT (LISMOT,NBMOT,NUMLIS,ICODE)
  57. c IF (IERR .NE. 0) RETURN
  58. c *
  59. c IF (NUMLIS .EQ. 1) THEN
  60. c CALL SUITE1
  61. c ** ELSE IF (NUMLIS .EQ. 2) THEN
  62. c ** CALL SUITE2
  63. c END IF
  64. c *
  65.  
  66. c JCARDO => ancienne version en commentaires ci-dessus
  67. c => nouvelle version ci-dessous
  68.  
  69. CHARACTER*4 DUMMY
  70. * LIRCHA pour retro-compatibilite seulement...
  71. CALL LIRCHA(DUMMY,0,IRETOU)
  72. IF (IERR.NE.0) RETURN
  73. CALL SUITE1
  74.  
  75. END
  76.  
  77.  
  78.  
  79.  

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