Télécharger la plaquette Cast3M


fr en

Télécharger climel.eso

Retour à la liste

Numérotation des lignes : 

climel

  1. C CLIMEL    SOURCE    PV        17/12/05    21:15:19     9646           
  2.       subroutine climel(pMelem,jcolac)
  3. C=======================================================================
  4. C     COLlaborateur LIer MELeme
  5. C     Restaure les pointeurs du maillage pMelem
  6. C=======================================================================
  7.       integer nbsous, nbref
  8.       integer iRef,iSous,nbnn,nbelem
  9.       integer ipoPi,iPoint
  10.       integer iNoeud,jNoeud
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMELEME
  15. -INC TMCOLAC
  16.       pointeur pMelem.MELEME
  17.       pointeur jcolac.ICOLAC
  18.       pointeur pile.ITLACC
  19. C      write(ioimp,*) 'Entre dans CLIMEL'
  20.       if (pMelem.ne.0) then
  21.          pile=jcolac.kcola(1)
  22.          segact pMelem*mod
  23.          nbsous=pMelem.lisous(/1)
  24. C            write(ioimp,*) 'nbsous: ',nbsous
  25.          nbref =pMelem.lisref(/1)
  26. C            write(ioimp,*) 'nbref: ',nbref
  27.          nbnn  =pMelem.num(/1)
  28.          nbelem=pMelem.num(/2)
  29.          do iSous=1,nbsous
  30. C            write(ioimp,*) 'Sous maillage :',iSous
  31.             iPoPi=pMelem.lisous(iSous)
  32. C            write(ioimp,*) 'Position dans la pile: ',iPoPi
  33.             iPoint=pile.itlac(iPoPi)
  34. C            write(ioimp,*) 'Pointeur: ',iPoint
  35.             pMelem.lisous(iSous)=iPoint
  36.          enddo
  37.          do iRef=1,nbref
  38. C            write(ioimp,*) 'Reference :',iRef
  39.             iPoPi=pMelem.lisref(iRef)
  40. C            write(ioimp,*) 'Position dans la pile: ',iPoPi
  41.             iPoint=pile.itlac(iPoPi)
  42. C            write(ioimp,*) 'Pointeur: ',iPoint
  43. C     &  pMelem.lisref(iRef)
  44.             pMelem.lisref(iRef)=iPoint
  45.          enddo
  46. c            write(ioimp,*) 'Traduction'
  47.          pile=jcolac.kcola(32)
  48.          do jNoeud=1,nbelem
  49.             do iNoeud=1,nbnn
  50. C              write(ioimp,*) 'element',jNoeud,'noeud',iNoeud
  51.                iPoPi=pMelem.num(iNoeud,jNoeud)
  52.                pMelem.num(iNoeud,jNoeud)=pile.itlac(iPoPi)
  53.             enddo
  54.          enddo
  55.          segdes pMelem
  56.       else
  57.          write(ioimp,*) 'Erreur: pointeur vers un objet MELEME nul'
  58.          call erreur(5)
  59.       endif
  60. C      write(ioimp,*) 'Sortie de CLIMEL'
  61.       end
  62.  
  63.  
  64.  
  65.  
  66.  

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