Esope source files

   1 : C SUITE     SOURCE    JC220346  12/08/08    21:15:01     7485           
   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 -INC CCOPTIO
  45 : c *
  46 : c       PARAMETER (NBRMOT = 1)
  47 : c *
  48 : c       CHARACTER*4 LISMOT(NBRMOT)
  49 : c *
  50 : c       DATA LISMOT/'CHPO'/
  51 : c *
  52 : c       ICODE = 0
  53 : c       NBMOT = NBRMOT
  53 : c       CALL LIRMOT (LISMOT,NBMOT,NUMLIS,ICODE)
  54 : c       IF (IERR .NE. 0) RETURN
  55 : c *
  56 : c       IF (NUMLIS .EQ. 1) THEN
  56 : c          CALL SUITE1
  57 : c **    ELSE IF (NUMLIS .EQ. 2) THEN
  57 : c **       CALL SUITE2
  58 : c       END IF
  59 : c *
  60 : 
  61 : c JCARDO => ancienne version en commentaires ci-dessus
  62 : c        => nouvelle version ci-dessous
  63 : -INC CCOPTIO
  64 :       CHARACTER*4 DUMMY
  65 : *     LIRCHA pour retro-compatibilite seulement...
  65 :       CALL LIRCHA(DUMMY,0,IRETOU)
  66 :       IF (IERR.NE.0) RETURN
  66 :       CALL SUITE1
  67 : 
  68 :       END
  69 : 
  70 :