Télécharger fillno.eso

Retour à la liste

Numérotation des lignes :

  1. C FILLNO SOURCE JC220346 18/12/04 21:15:24 9991
  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 CCNOYAU
  29. -INC TMCOLAC
  30. DIMENSION ILENA(1)
  31. SEGMENT ILISNB
  32. INTEGER ILISOB(MLON)
  33. CHARACTER*(LONOM) ILISNO(MLON)
  34. ENDSEGMENT
  35. C
  36. CHARACTER*(8) ITYPE
  37. C
  38. SEGACT ICOLAC
  39. NITLAC=ICOLA(/1)
  40. CALL LISTOB(ITYPE,MLON,ILENA,0)
  41. SEGINI ILISNB
  42.  
  43. C
  44. DO 600 IFILE=1,NITLAC
  45. ITITI=0
  46. ITLACC=KCOLA(IFILE)
  47. ISGTR=ICOLA(IFILE)
  48. IMAX1=ITLAC(/1)
  49. IF(IMAX1.NE.0) THEN
  50. ITYPE=' '
  51. CALL TYPFIL (ITYPE,IFILE)
  52. CALL FNOMOB (ITITI,ITLACC,ISGTR,ITYPE,ILISNB)
  53. ENDIF
  54. 600 CONTINUE
  55. SEGSUP ILISNB
  56. SEGDES ICOLAC
  57. RETURN
  58. END
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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