Télécharger fillno.eso

Retour à la liste

Numérotation des lignes :

  1. C FILLNO SOURCE PV 16/11/26 21:15:52 9205
  2. SUBROUTINE FILLNO (ICOLAC)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C-----------------------------------------------------------------------
  6. C
  7. C BUT :VA A LA PECHE DES NOMS DES OBJETS
  8. C DEJA CONTENUS DANS LES PILES
  9. C LOGIQUE:
  10. C ON SE POINTE SUR UNE PILE
  11. C ON CREE LA TABLE DES OBJETS DU TYPE DE CETTE PILE
  12. C-- CAS GENERAL
  13. C ON TESTE SI LE POINTEUR DANS L OBJET EST DANS LA PILE
  14. C SI NON, ON PASSE A L OBJET SUIVANT.
  15. C SI OUI, ON MET LE NOM S IL N Y EST DEJA DANS LE ISGTR ASSOCIE
  16. C
  17. C PROGRAMME PAR : FARVACQUE-REPRIS PAR LENA
  18. C APPELE PAR : SAUV
  19. C APPELLE : FNOMOB ERREUR REPERT
  20. C
  21. C=======================================================================
  22. C TABLEAU KCOLA :
  23. C 1 MELEME 2 CHPOIN 3 MRIGID 4 MCHAFF 5 MCHELM 6 MCLSTR
  24. C 7 MELSTR 8 MSOLUT 9 MSTRUC 10 11 MAFFEC 12 MSOSTU
  25. C 13 IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL
  26. C 19 MLENTI 20 MCHARG 21 MODELE 22 MEVOLL
  27. C=======================================================================
  28. -INC TMCOLAC
  29. DIMENSION ILENA(1)
  30. SEGMENT ILISNB
  31. INTEGER ILISOB(MLON)
  32. CHARACTER*8 ILISNO(MLON)
  33. ENDSEGMENT
  34. C
  35. CHARACTER*(8) ITYPE
  36. C
  37. SEGACT ICOLAC
  38. NITLAC=ICOLA(/1)
  39. CALL LISTOB(ITYPE,MLON,ILENA,0)
  40. SEGINI ILISNB
  41.  
  42. C
  43. DO 600 IFILE=1,NITLAC
  44. ITITI=0
  45. ITLACC=KCOLA(IFILE)
  46. ISGTR=ICOLA(IFILE)
  47. IMAX1=ITLAC(/1)
  48. IF(IMAX1.NE.0) THEN
  49. ITYPE=' '
  50. CALL TYPFIL (ITYPE,IFILE)
  51. CALL FNOMOB (ITITI,ITLACC,ISGTR,ITYPE,ILISNB)
  52. ENDIF
  53. 600 CONTINUE
  54. SEGSUP ILISNB
  55. SEGDES ICOLAC
  56. RETURN
  57. END
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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