Télécharger acem.eso

Retour à la liste

Numérotation des lignes :

  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 '
  25. CALL ACCTAB(ITABLE,'ENTIER',I,0.D0,CHAI,LOGI,0,
  26. 1 TYPE,IENT,XVAL,MOTO,LOGI,IRET)
  27. RETURN
  28. END
  29.  
  30.  
  31.  

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