Sources Esope | Cast3M

clicfg
C CLICFG    SOURCE    PV        20/03/24    21:15:50     10554          
      subroutine clicfg(pConfi,jcolac)
C=======================================================================
C     COLlaborateur LIer ConFiGuration
C     Renumerote correctement la configuration pConfi et recupere les
C     noeuds manquants depuis la configuration actuelle
C=======================================================================
      integer nNoCo,iNoCo,iNoLo,i
      integer posXco,posXlo
      integer iDiDis,bkidim
      integer nbpts
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
-INC TMCOLAC
C-INC SMELEME
      pointeur pConfi.MCOORD
      pointeur tempC.MCOORD
      pointeur jcolac.ICOLAC
      pointeur pile.ITLACC
C      write(ioimp,*) 'Entre dans CLICFG'
      if (pConfi.ne.0) then
         segini,tempC=pConfi
         segact mcoord
         segadj pConfi
         segact,pConfi=mcoord
         segdes mcoord
         segdes pConfi
         segact pConfi*mod
         pile=jcolac.kcola(32)
         nNoCo=pile.itlac(/1)
         do iNoCo=1,nNoCo
            iNoLo=pile.itlac(iNoCo)
            posXlo=(IDIM+1)*(iNoLo-1)
            posXco=(IDIM+1)*(InoCo-1)
            do i=1,IDIM+1
               pConfi.xcoor(posXlo+i)=tempC.xcoor(posXco+i)
            enddo
         enddo
         segsup tempC
         segdes pConfi
      else
         write(ioimp,*) 'Erreur: pointeur vers un objet CONFIGUR nul'
         call erreur(5)
      endif
C      write(ioimp,*) 'Sortie de CLICFG'
      end