Télécharger la plaquette Cast3M


fr en

Télécharger clinin.eso

Retour à la liste

Numérotation des lignes : 

clinin

  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