1 : C FNOMOB SOURCE CHAT 05/01/13 00:05:25 5004 2 : SUBROUTINE FNOMOB (ITITI,ITLACC,ISGTR,CTYP,ILISNB) 3 : C======================================================================= 4 : C A PARTIR D UNE TABLE DES OBJETS DU TYPE DONNE 5 : C 1-ON APPELLE SNOM2 POUR TESTER SI LE POINTEUR EST DANS LA PILE 6 : C ITLACC 7 : C 2-SI OUI, ON CHERCHE S IL EST DEJA DANS ISGTR ASSOCIE 8 : C 3-SI NON,ON AJOUTE NOM-NOM-INDICE DANS ISGTR ASSOCIE 9 : C 10 : C APPELE PAR : FILLNO HATRIG HATSTR 11 : C APPELE : SNOM1 12 : C : SNOM2 13 : C ---ATTENTION ---------1 TABLE EST DEFINIE PAR 6 VALEURS---------- 14 : C SI LA TABLE CHANGE, IL FAUT CHANGER LA VALEUR DU PAS 15 : C DANS LA BOUCLE (6) 16 : C======================================================================= 17 : IMPLICIT INTEGER(I-N) 18 : -INC CCOPTIO 19 : -INC TMCOLAC 20 : SEGMENT ILISNB 21 : INTEGER ILISOB(MLON) 22 : CHARACTER*8 ILISNO(MLON) 23 : ENDSEGMENT 24 : CHARACTER*(*) CTYP 25 : CHARACTER*(8) CNOM 26 : C 27 : ITITI=0 27 : CALL LISTNO(CTYP,ITITI,ILISNB) 28 : C 29 : IF (ITITI.EQ.0) GO TO 1 30 : DO 2 I=1,ITITI 31 : IP1=ILISOB(I) 31 : CALL SNOM2(IP1,ITLACC,K) 32 : IF (K.EQ.0) GO TO 2 33 : CNOM=ILISNO(I) 33 : CALL SNOM1 (CNOM,ISGTR,IRET) 34 : IF (IRET.GT.0) THEN 35 : ISGTRI(IRET)=K 36 : ELSE 37 : KS=ISGTRI(/1)+1 38 : SEGADJ ISGTR 39 : ISGTRC(KS)=CNOM 40 : ISGTRI(KS)=K 41 : ENDIF 42 : 2 CONTINUE 43 : 1 RETURN 44 : END 45 : 46 : 47 : 48 : 49 : 50 :
© Cast3M 2003 - All rights reserved.
Disclaimer