1 : C ACMO SOURCE CHAT 05/01/12 21:15:56 5004
2 : SUBROUTINE ACMO(ITABLE,MOTI,TYPI,IOBJ)
3 : C-----------------------------------------------------------------------
4 : C Récupération de l'objet stocké à un indice de type MOT d'une TABLE.
5 : C On peut préciser le type de l'objet souhaité dans TYPI.
6 : C-----------------------------------------------------------------------
7 : C En retour, TYPI contient le type de l'objet effectivement lu.
8 : C Le pointeur IOBJ n'est pas utilisable si TYPI est ENTIER, FLOTTANT
9 : C ou MOT. Dans ce cas, utiliser ACME, ACMF ou ACMM.
10 : C-----------------------------------------------------------------------
11 : C
12 : C------------------------
13 : C Opérandes et résultat :
14 : C------------------------
15 : C
16 : C E/ ITABLE : Table
17 : C E/ MOTI : Indice de type MOT indexant l'objet cherché
18 : C E/S TYPI : Type de l'objet
19 : C /S IOBJ : Objet contenu dans la table ITABLE à l'indice mot MOTI
20 : C
21 : C-----------------------------------------------------------------------
22 : C ATTENTION : L'indice de type MOT MOTI doit avoir au plus 8 caractères
23 : C (sinon, utiliser ACCTAB) et les blancs en fin de mot sont
24 : C ignorés ('mot sb ' est transformé en 'mot sb').
25 : C-----------------------------------------------------------------------
26 : IMPLICIT INTEGER(I-N)
27 : IMPLICIT REAL*8(A-H,O-Z)
28 : LOGICAL LOGI
29 : CHARACTER*(*) MOTI
30 : CHARACTER*8 BLAN,MOT,TYPE,TYPI,MOTE
31 : DATA BLAN/' '/
32 : C
33 : MOT = MOTI
34 : TYPE = BLAN
35 : TYPE = TYPI
35 : CALL LENCHA(MOT,LC)
35 : CALL ACCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),LOGI,0,
36 : 1 TYPE,IENT,XVAL,MOTE,LOGI,IOBJ)
37 : TYPI = ' '
38 : TYPI = TYPE
39 : RETURN
40 : END
41 :
42 :
© Cast3M 2003 - All rights reserved.
Disclaimer