Télécharger la plaquette Cast3M


fr en

Télécharger acml.eso

Retour à la liste

Numérotation des lignes : 

acml

  1. C ACML      SOURCE    CHAT      05/01/12    21:15:50     5004
  2.       SUBROUTINE ACML(ITABLE,MOTI,XLOGI)
  3. C-----------------------------------------------------------------------
  4. C Récupération d'un LOGIQUE 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 XLOGI  : LOGIQUE contenu dans la table ITABLE à l'indice MOT MOTI
  14. C
  15. C-----------------------------------------------------------------------
  16. C ATTENTION : L'indice MOTI est un mot d'au plus
  17. C             8 caractères (sinon voir ACCTAB). Les blancs à la fin de
  18. C             MOTI sont 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 TYPE,MOT1
  25. C
  26. C      MOT  = MOTI
  27.       TYPE = 'LOGIQUE '
  28.       CALL LENCHA(MOTI,LC)
  29.       CALL ACCTAB(ITABLE,'MOT     ',0,0.D0,MOTI(1:LC),XLOGI,0,
  30.      1                    TYPE,IENT,XVAL,MOT1,XLOGI,IRET)
  31.       RETURN
  32.       END
  33.  
  34.  
  35.  

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