1 : C ACMM SOURCE CHAT 05/01/12 21:15:53 5004
2 : SUBROUTINE ACMM(ITABLE,MOTI,MOT1)
3 : C-----------------------------------------------------------------------
4 : C Récupération d'un MOT 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 MOT1 : MOT contenu dans la table ITABLE à l'indice MOT MOTI
14 : C
15 : C-----------------------------------------------------------------------
16 : C ATTENTION : Le résultat MOT1 et l'indice MOTI sont des mots 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,MOT1
24 : CHARACTER*8 TYPE
25 : C
26 : C MOT = MOTI
27 : TYPE = 'MOT '
27 : CALL LENCHA(MOTI,LC)
27 : CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOTI(1:LC), .TRUE.,0,
28 : 1 TYPE,IENT,XVAL,MOT1,XLOGI,IRET)
29 : RETURN
30 : END
31 :
32 :
33 :
© Cast3M 2003 - All rights reserved.
Disclaimer