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 '
27 : CALL LENCHA(MOTI,LC)
27 : CALL ACCTAB(ITABLE,'MOT ',0,0.D0,MOTI(1:LC),XLOGI,0,
28 : 1 TYPE,IENT,XVAL,MOT1,XLOGI,IRET)
29 : RETURN
30 : END
31 :
32 :
© Cast3M 2003 - All rights reserved.
Disclaimer