1 : C ACMF SOURCE CHAT 05/01/12 21:15:46 5004
2 : SUBROUTINE ACMF(ITABLE,MOTI,XVAL)
3 : C-----------------------------------------------------------------------
4 : C Récupération d'un FLOTTANT 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 XVAL : FLOTTANT 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 = 'FLOTTANT'
28 : CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),.TRUE.,0,
29 : 1 TYPE,IENT,XVAL,BLAN,XLOGI,IRET)
30 : RETURN
31 : END
32 :
33 :
© Cast3M 2003 - All rights reserved.
Disclaimer