C CLININ    SOURCE    GF238795  15/04/23    21:15:11     8502
      subroutine clinin(liste,lisInv)
C=======================================================================
C  Sous-programme clinin (COLlaborateur LIste Noeud INverse)
C      Construit la liste de noeud inverse
C=======================================================================
      integer nNoDep
      integer iNoeud
      integer iNoArr,iNoDep
      segment LISNOD
         integer numero(nNoeud)
      endsegment
      pointeur liste.LISNOD
      pointeur lisInv.LISNOD
      nNoDep = liste.numero(/1)
C      write(ioimp,*)'Nombre de noeud de comm',nNoDep
      do iNoeud=1,nNoDep
         iNoDep = iNoeud
         iNoArr = liste.numero(iNoDep)
C         write(ioimp,*)'LisIn',iNoArr, '= ',iNoDep
         lisInv.numero(iNoArr) = iNoDep
      enddo
      end