Télécharger fnomob.eso

Retour à la liste

Numérotation des lignes :

  1. C FNOMOB SOURCE PV 16/11/26 21:15:55 9205
  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
  28. CALL LISTNO(CTYP,ITITI,ILISNB)
  29. C
  30. IF (ITITI.EQ.0) GO TO 1
  31. DO 2 I=1,ITITI
  32. IP1=ILISOB(I)
  33. CALL SNOM2(IP1,ITLACC,K)
  34. IF (K.EQ.0) GO TO 2
  35. CNOM=ILISNO(I)
  36. CALL SNOM1 (CNOM,ISGTR,IRET)
  37. IF (IRET.GT.0) THEN
  38. ISGTRI(IRET)=K
  39. ELSE
  40. KS=ISGTRI(/1)+1
  41. SEGADJ ISGTR
  42. ISGTRC(KS)=CNOM
  43. ISGTRI(KS)=K
  44. ENDIF
  45. 2 CONTINUE
  46. 1 RETURN
  47. END
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales