Télécharger la plaquette Cast3M


fr en

Télécharger cuprig.eso

Retour à la liste

Numérotation des lignes : 

cuprig

  1. C CUPRIG    SOURCE    CB215821  25/04/23    21:15:11     12247          
  2.       subroutine cuprig(bu,bufPos,pRigi)
  3. C=======================================================================
  4. C     COLlaborateur UnPAQuettage RIGidite
  5. C     Lecture de la rigidite pRigi dans le buffer d'envoi bu
  6. C=======================================================================
  7.       integer bufPos
  8.       integer lonBuf
  9.       integer nrigel,nligrd,nligrp,nelrig
  10.       integer jrigel
  11. -INC SMRIGID
  12. -INC SMCOORD
  13.       segment BUFFER
  14.          character ffer(lonBuf)
  15.       endsegment
  16.       pointeur bu.BUFFER
  17.       pointeur pRigi.MRIGID
  18.       pointeur pXmatr.XMATRI
  19.       pointeur pDescr.DESCR
  20.  
  21. C      write(ioimp,*) 'Entre dans CUPRIG'
  22. C      write(ioimp,*) 'Position du buffer',bufPos
  23.       lonBuf=bu.ffer(/2)
  24.  
  25.       call mpiupI(nrigel,1,bu,bufPos)
  26.       if (pRigi.ne.0) then
  27.          segact pRigi*mod
  28.          segadj pRigi
  29.       else
  30.          segini pRigi
  31.       endif
  32.       call mpiupC(pRigi.mtymat,8,bu,bufPos)
  33.       call mpiupI(pRigi.iforig,1,bu,bufPos)
  34.       if(nrigel.gt.0) then
  35.          call mpiupR( pRigi.coerig(1),nrigel,bu,bufPos)
  36.       endif
  37.       do jrigel=1,nrigel
  38.       call mpiupI( pRigi.irigel(1,jrigel) ,2,bu,bufPos)
  39.       call mpiupI( pRigi.irigel(5,jrigel) ,4,bu,bufPos)
  40.       enddo
  41.       do jrigel=1,nrigel
  42.       call mpiupI(nligrd,1,bu,bufPos)
  43.       call mpiupI(nligrp,1,bu,bufPos)
  44.       call mpiupI(nelrig,1,bu,bufPos)
  45.       segini pXmatr
  46.       segini pDescr
  47.       pRigi.irigel(3,jrigel)=pDescr
  48.       pRigi.irigel(4,jrigel)=pXmatr
  49.       call mpiupC( pDescr.lisinc(1),4*nligrp,bu,bufPos)
  50.       call mpiupC( pDescr.lisdua(1),4*nligrd,bu,bufPos)
  51.       call mpiupI( pDescr.noelep(1),nligrp,bu,bufPos)
  52.       call mpiupI( pDescr.noeled(1),nligrd,bu,bufPos)
  53.       call mpiupR( pXmatr.re(1,1,1),nligrd*nligrp*nelrig,bu,bufPos)
  54.       segdes pDescr
  55.       segdes pXmatr
  56.       enddo
  57.       segdes pRigi
  58. C      write(ioimp,*) 'Sortie de CUPRIG'
  59. C      write(ioimp,*) 'Position du buffer',bufPos
  60.       end
  61.  
  62.  
  63.  
  64.  
  65.  

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