Télécharger acmo.eso

Retour à la liste

Numérotation des lignes :

  1. C ACMO SOURCE CHAT 05/01/12 21:15:56 5004
  2. SUBROUTINE ACMO(ITABLE,MOTI,TYPI,IOBJ)
  3. C-----------------------------------------------------------------------
  4. C Récupération de l'objet stocké à un indice de type MOT d'une TABLE.
  5. C On peut préciser le type de l'objet souhaité dans TYPI.
  6. C-----------------------------------------------------------------------
  7. C En retour, TYPI contient le type de l'objet effectivement lu.
  8. C Le pointeur IOBJ n'est pas utilisable si TYPI est ENTIER, FLOTTANT
  9. C ou MOT. Dans ce cas, utiliser ACME, ACMF ou ACMM.
  10. C-----------------------------------------------------------------------
  11. C
  12. C------------------------
  13. C Opérandes et résultat :
  14. C------------------------
  15. C
  16. C E/ ITABLE : Table
  17. C E/ MOTI : Indice de type MOT indexant l'objet cherché
  18. C E/S TYPI : Type de l'objet
  19. C /S IOBJ : Objet contenu dans la table ITABLE à l'indice mot MOTI
  20. C
  21. C-----------------------------------------------------------------------
  22. C ATTENTION : L'indice de type MOT MOTI doit avoir au plus 8 caractères
  23. C (sinon, utiliser ACCTAB) et les blancs en fin de mot sont
  24. C ignorés ('mot sb ' est transformé en 'mot sb').
  25. C-----------------------------------------------------------------------
  26. IMPLICIT INTEGER(I-N)
  27. IMPLICIT REAL*8(A-H,O-Z)
  28. LOGICAL LOGI
  29. CHARACTER*(*) MOTI
  30. CHARACTER*8 BLAN,MOT,TYPE,TYPI,MOTE
  31. DATA BLAN/' '/
  32. C
  33. MOT = MOTI
  34. TYPE = BLAN
  35. TYPE = TYPI
  36. CALL LENCHA(MOT,LC)
  37. CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),LOGI,0,
  38. 1 TYPE,IENT,XVAL,MOTE,LOGI,IOBJ)
  39. TYPI = ' '
  40. TYPI = TYPE
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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