Sources Esope | Cast3M

clirig
C CLIRIG    SOURCE    PV        17/12/05    21:15:23     9646           
      subroutine clirig(pRigi,jcolac)
C=======================================================================
C     COLlaborateur LIer RIGidite
C     Restauration des liens entre la pile et les pointeurs esope
C=======================================================================
      integer ipoPi,iPoint
      integer nrigel
      integer jrigel
 
-INC PPARAM
-INC CCOPTIO
-INC SMRIGID
-INC TMCOLAC
      pointeur pRigi.MRIGID
      pointeur jcolac.ICOLAC
      pointeur pilMel.ITLACC
 
C      write(ioimp,*) 'Entre dans CLIRIG'
      pilMel=jcolac.kcola(1)
      if (pRigi.ne.0) then
         segact pRigi*mod
         nrigel=pRigi.coerig(/1)
         do jrigel=1,nrigel
            iPoPi=pRigi.irigel(1,jrigel)
            if(iPoPi.gt.0) then
               iPoint=pilMel.itlac(iPoPi)
            else
               iPoint=0
            endif
            pRigi.irigel(1,jrigel)=iPoint
            iPoPi=pRigi.irigel(2,jrigel)
            if(iPoPi.gt.0) then
               iPoint=pilMel.itlac(iPoPi)
            else
               iPoint=0
            endif
            pRigi.irigel(2,jrigel)=iPoint
         enddo
         segdes pRigi
      else
         write(ioimp,*) 'Erreur: pointeur vers un objet RIGIDITE nul'
         call erreur(5)
      endif
C      write(ioimp,*) 'Sortie de CLIRIG'
      end