Télécharger la plaquette Cast3M


fr en

Télécharger acem.eso

Retour à la liste

Numérotation des lignes : 

acem

  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