C ACMO      SOURCE    CHAT      05/01/12    21:15:56     5004           
      SUBROUTINE ACMO(ITABLE,MOTI,TYPI,IOBJ)
C-----------------------------------------------------------------------
C Récupération de l'objet stocké à un indice de type MOT d'une TABLE.
C On peut préciser le type de l'objet souhaité dans TYPI.
C-----------------------------------------------------------------------
C En retour, TYPI contient le type de l'objet effectivement lu.
C Le pointeur IOBJ n'est pas utilisable si TYPI est ENTIER, FLOTTANT
C ou MOT. Dans ce cas, utiliser ACME, ACMF ou ACMM.
C-----------------------------------------------------------------------
C
C------------------------
C Opérandes et résultat :
C------------------------
C
C E/  ITABLE : Table
C E/  MOTI   : Indice de type MOT indexant l'objet cherché
C E/S TYPI   : Type de l'objet
C  /S IOBJ   : Objet contenu dans la table ITABLE à l'indice mot MOTI
C
C-----------------------------------------------------------------------
C ATTENTION : L'indice de type MOT MOTI doit avoir au plus 8 caractères
C             (sinon, utiliser ACCTAB) et les blancs en fin de mot sont
C             ignorés ('mot sb  ' est transformé en 'mot sb').
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      LOGICAL LOGI
      CHARACTER*(*) MOTI
      CHARACTER*8 BLAN,MOT,TYPE,TYPI,MOTE
      DATA BLAN/'        '/
C
      MOT  = MOTI
      TYPE = BLAN
      TYPE = TYPI
      CALL LENCHA(MOT,LC)
      CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),LOGI,0,
     1                    TYPE,IENT,XVAL,MOTE,LOGI,IOBJ)
      TYPI = ' '
      TYPI = TYPE
      RETURN
      END