Télécharger clinin.eso

Retour à la liste

Numérotation des lignes :

  1. C CLININ SOURCE GF238795 15/04/23 21:15:11 8502
  2. subroutine clinin(liste,lisInv)
  3. C=======================================================================
  4. C Sous-programme clinin (COLlaborateur LIste Noeud INverse)
  5. C Construit la liste de noeud inverse
  6. C=======================================================================
  7. integer nNoDep
  8. integer iNoeud
  9. integer iNoArr,iNoDep
  10. segment LISNOD
  11. integer numero(nNoeud)
  12. endsegment
  13. pointeur liste.LISNOD
  14. pointeur lisInv.LISNOD
  15. nNoDep = liste.numero(/1)
  16. C write(ioimp,*)'Nombre de noeud de comm',nNoDep
  17. do iNoeud=1,nNoDep
  18. iNoDep = iNoeud
  19. iNoArr = liste.numero(iNoDep)
  20. C write(ioimp,*)'LisIn',iNoArr, '= ',iNoDep
  21. lisInv.numero(iNoArr) = iNoDep
  22. enddo
  23. end
  24.  
  25.  
  26.  

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