Télécharger la plaquette Cast3M


fr en

Télécharger acmo.eso

Retour à la liste

Numérotation des lignes : 

acmo

  1. C ACMO      SOURCE    CB215821  20/11/25    13:18:04     10792          
  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.  
  29.       LOGICAL LOGI
  30.       CHARACTER*(*) MOTI,TYPI
  31.       CHARACTER*8 BLAN,TYPE,MOTE
  32.       DATA BLAN/'        '/
  33. C
  34.       TYPE = TYPI
  35.       CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOTI,LOGI,0,
  36.      1                    TYPE,IENT,XVAL,MOTE,LOGI,IOBJ)
  37.       TYPI = TYPE
  38.       RETURN
  39.       END
  40.  
  41.  

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