Esope source files

   1 : C ACEM      SOURCE    CHAT      05/01/12    21:15:33     5004           
   2 :       SUBROUTINE ACEM(ITABLE,I,MOTO)
   3 : C-----------------------------------------------------------------------
   4 : C Récupération d'un MOT stocké à un indice ENTIER d'une TABLE.
   5 : C-----------------------------------------------------------------------
   6 : C
   7 : C------------------------
   8 : C Opérandes et résultat :
   9 : C------------------------
  10 : C
  11 : C E/  ITABLE : TABLE
  12 : C E/  I      : Indice ENTIER indexant l'objet cherché
  13 : C  /S MOTO   : MOT contenu dans la table ITABLE à l'indice ENTIER I
  14 : C
  15 : C-----------------------------------------------------------------------
  16 : C ATTENTION : Le résultat de type MOT doit avoir au plus 8 caractères
  17 : C             (sinon, utiliser ACCTAB).
  18 : C-----------------------------------------------------------------------
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)
  21 :       LOGICAL LOGI
  22 :       CHARACTER*8 MOTO,CHAI,TYPE
  23 : C
  24 :       TYPE = 'MOT     '
  24 :       CALL ACCTAB(ITABLE,'ENTIER',I,0.D0,CHAI,LOGI,0,
  25 :      1                    TYPE,IENT,XVAL,MOTO,LOGI,IRET)
  26 :       RETURN
  27 :       END
  28 :  
  29 :