Télécharger acmm.eso

Retour à la liste

Numérotation des lignes :

  1. C ACMM SOURCE CHAT 05/01/12 21:15:53 5004
  2. SUBROUTINE ACMM(ITABLE,MOTI,MOT1)
  3. C-----------------------------------------------------------------------
  4. C Récupération d'un MOT stocké à un indice de type MOT 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/ MOTI : Indice de type MOT indexant l'objet cherché
  13. C /S MOT1 : MOT contenu dans la table ITABLE à l'indice MOT MOTI
  14. C
  15. C-----------------------------------------------------------------------
  16. C ATTENTION : Le résultat MOT1 et l'indice MOTI sont des mots d'au plus
  17. C 8 caractères (sinon voir ACCTAB). Les blancs à la fin de
  18. C MOTI sont ignorés ('mot sb ' est transformé en 'mot sb')
  19. C-----------------------------------------------------------------------
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8(A-H,O-Z)
  22. LOGICAL XLOGI
  23. CHARACTER*(*) MOTI,MOT1
  24. CHARACTER*8 TYPE
  25. C
  26. C MOT = MOTI
  27. TYPE = 'MOT '
  28. CALL LENCHA(MOTI,LC)
  29. CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOTI(1:LC), .TRUE.,0,
  30. 1 TYPE,IENT,XVAL,MOT1,XLOGI,IRET)
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  

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