Télécharger la plaquette Cast3M


fr en

Télécharger clichm.eso

Retour à la liste

Numérotation des lignes : 

clichm

  1. C CLICHM    SOURCE    PV        17/12/05    21:15:16     9646           
  2.       subroutine clichm(pChelm,jcolac)
  3. C=======================================================================
  4. C     COLlaborateur LIer CHamp par eleMent
  5. C     Remplace dans un objet CHPO, les pointeurs vers la pile de
  6. C     communication par les pointeurs esope correspondant.
  7. C=======================================================================
  8.       integer ipoPi,iPoint
  9.       integer iCons,nbCons
  10.       integer nbComp,iComp
  11.       integer iNo,iEl,iTyp
  12.       integer nNoEli,nbEli
  13.       character*16 tyComp
  14.       character*8 typNom
  15.       integer nconch
  16.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19. -INC SMCHAML
  20. -INC TMCOLAC
  21.       pointeur pChelm.MCHELM
  22.       pointeur pChaml.MCHAML
  23.       pointeur pElval.MELVAL
  24.       pointeur jcolac.ICOLAC
  25.       pointeur pile.ITLACC
  26.  
  27. C      write(ioimp,*) 'Entre dans CLICHM'
  28.       if (pChelm.ne.0) then
  29.          segact pChelm*mod
  30.          nbCons=pChelm.imache(/1)
  31. C         write(ioimp,*) 'nbSoup',nbCons
  32. C        Restauration des maillages
  33.          pile=jcolac.kcola(1)
  34.          do iCons=1,nbCons
  35.             iPoPi=pChelm.imache(iCons)
  36. C            write(ioimp,*) 'Position dans la pile: ',iPoPi
  37.             iPoint=pile.itlac(iPoPi)
  38. C            write(ioimp,*) 'Pointeur: ',iPoint
  39.             pChelm.imache(iCons)=iPoint
  40.          enddo
  41.          pile=jcolac.kcola(40)
  42.          do iCons=1,nbCons
  43.             iPoPi=pChelm.infche(iCons,4)
  44. C            write(ioimp,*) 'Position dans la pile: ',iPoPi
  45.             iPoint=pile.itlac(iPoPi)
  46. C            write(ioimp,*) 'Pointeur: ',iPoint
  47.             pChelm.infche(iCons,4)=iPoint
  48.          enddo
  49.          do iCons=1,nbCons
  50.             pChaml=pChelm.ichaml(iCons)
  51. C            write(ioimp,*) 'pChaml',pChaml
  52.             segact pChaml
  53.             nbComp=pChaml.ielval(/1)
  54.             do iComp=1,nbComp
  55.                tyComp=pChaml.typche(iComp)
  56.                if(tyComp(1:6).ne.'real*8') then
  57.                   typNom(1:8)=tyComp(9:16)
  58.                   call typfil(typNom,iTyp)
  59.                   if(iTyp.gt.0) then
  60.                      pile=jcolac.kcola(iTyp)
  61.                      pElval= pChaml.ielval(iComp)
  62.                      segact pElval*mod
  63.                      nNoEli=pElval.ielche(/1)
  64.                      nbEli  =pElval.ielche(/2)
  65.                      do iEl=1,nbEli
  66.                         do iNo=1,nNoEli
  67.                            iPoPi=pElval.ielche(iNo,iEl)
  68.                            iPoint=pile.itlac(iPoPi)
  69.                            pElval.ielche(iNo,iEl)=iPoint
  70.                         enddo
  71.                      enddo
  72.                      segdes pElval
  73.                   endif
  74.                endif
  75.             enddo
  76.             segdes pChaml
  77.          enddo
  78.  
  79.          segdes pChelm
  80.       else
  81.          write(ioimp,*) 'Erreur: pointeur vers un objet CHEML nul'
  82.          call erreur(5)
  83.       endif
  84. C      write(ioimp,*) 'Sortie de CLICHM'
  85.       end
  86.  
  87.  
  88.  
  89.  
  90.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales