1 : C ACME SOURCE CHAT 05/01/12 21:15:43 5004
2 : SUBROUTINE ACME(ITABLE,MOTI,IVAL)
3 : C-----------------------------------------------------------------------
4 : C Récupération de l'ENTIER 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 IVAL : ENTIER contenu dans la table ITABLE à l'indice MOT MOTI
14 : C
15 : C-----------------------------------------------------------------------
16 : C ATTENTION : L'indice de type MOT MOTI doit avoir au plus 8 caractères
17 : C (sinon, utiliser ACCTAB) et les blancs en fin de mot sont
18 : C 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 BLAN,MOT,TYPE
25 : DATA BLAN/' '/
26 : C
27 : MOT = MOTI
27 : CALL LENCHA(MOT,LC)
28 : TYPE = 'ENTIER '
28 : CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),.TRUE.,0,
29 : 1 TYPE,IVAL,XVAL,BLAN,XLOGI,IRET)
30 : RETURN
31 : END
32 :
33 :
© Cast3M 2003 - All rights reserved.
Disclaimer