Télécharger acme.eso

Retour à la liste

Numérotation des lignes :

acme
  1. C ACME SOURCE CHAT 05/01/12 21:15:43 5004
  2. SUBROUTINE ACME(ITABLE,MOTI,IVAL)
  3. C-----------------------------------------------------------------------
  4. C Récupération de l'ENTIER 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 IVAL : ENTIER contenu dans la table ITABLE à l'indice MOT MOTI
  14. C
  15. C-----------------------------------------------------------------------
  16. C ATTENTION : L'indice de type MOT MOTI doit avoir au plus 8 caractères
  17. C (sinon, utiliser ACCTAB) et les blancs en fin de mot sont
  18. C 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
  24. CHARACTER*8 BLAN,MOT,TYPE
  25. DATA BLAN/' '/
  26. C
  27. MOT = MOTI
  28. CALL LENCHA(MOT,LC)
  29. TYPE = 'ENTIER '
  30. CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),.TRUE.,0,
  31. 1 TYPE,IVAL,XVAL,BLAN,XLOGI,IRET)
  32. RETURN
  33. END
  34.  
  35.  
  36.  

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