Télécharger la plaquette Cast3M


fr en

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