Sources Esope | Cast3M

clicpo
C CLICPO    SOURCE    CB215821  20/11/25    13:21:01     10792          
      subroutine clicpo(pChpo,jcolac)
C=======================================================================
C     COLlaborateur LIer CHamp par POint
C     Remplace dans un objet CHPO, les pointeurs vers la pile de
C     communication par les pointeurs esope correspondant.
C=======================================================================
      integer ipoPi,iPoint
      integer iSoupo,nbSoup
 
-INC PPARAM
-INC CCOPTIO
-INC SMCHPOI
-INC TMCOLAC
      pointeur pChpo.MCHPOI
      pointeur pSoupo.MSOUPO
      pointeur jcolac.ICOLAC
      pointeur pilMel.ITLACC
 
C      write(ioimp,*) 'Entre dans CLICPO'
      pilMel=jcolac.kcola(1)
      if (pChpo.ne.0) then
         segact pChpo
         nbSoup=pChpo.ipchp(/1)
C         write(ioimp,*) 'nbSoup',nbSoup
         do iSoupo=1,nbSoup
C         write(ioimp,*) 'iSoupo',iSoupo
            pSoupo=pChpo.ipchp(iSoupo)
C            write(ioimp,*) 'pSoupo',pSoupo
            segact pSoupo*mod
            iPoPi=pSoupo.igeoc
C            write(ioimp,*) 'Position dans la pile: ',iPoPi
            iPoint=pilMel.itlac(iPoPi)
C            write(ioimp,*) 'Pointeur: ',iPoint
            pSoupo.igeoc=iPoint
            segdes pSoupo
         enddo
         segdes pChpo
      else
         write(ioimp,*) 'Erreur: pointeur vers un objet MCHPOI nul'
         call erreur(5)
      endif
C      write(ioimp,*) 'Sortie de CLICPO'
      end