Télécharger la plaquette Cast3M


fr en

Télécharger cupnod.eso

Retour à la liste

Numérotation des lignes : 

cupnod

  1. C CUPNOD    SOURCE    PV        20/03/30    21:17:06     10567          
  2.       subroutine cupnod(bu,bufPos,pNoeud,pConfi)
  3. C=======================================================================
  4. C  Sous-programme cupnod (COLlaborateur UnPAquettage NOeuD)
  5. C=======================================================================
  6.       integer i,nbpts
  7.       integer bufPos
  8.       integer lonBuf
  9.       integer posXco
  10.       integer iDiDis,iDiUt
  11.       integer pNoeud
  12.       real*8 coorLu(4)
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMCOORD
  17.       segment BUFFER
  18.          character ffer(lonBuf)
  19.       endsegment
  20.       pointeur bu.BUFFER
  21.       pointeur pConfi.MCOORD
  22. C      write(ioimp,*) 'Entree dans CUPNOD'
  23.       nbpts = pConfi.xcoor(/1)/(idim+1)
  24.       if(pNoeud .eq. 0) then
  25.          nbpts=nbpts+1
  26.          segadj pConfi
  27.          pNoeud = nbpts
  28.       else
  29.          if(pNoeud.gt.nbpts) then
  30.             nbpts=pNoeud
  31.             segadj pConfi
  32.          endif
  33.       endif
  34.       lonBuf=bu.ffer(/2)
  35.       call mpiupI( iDiDis,1,bu,bufPos)
  36.       call mpiupR( coorLu(1),iDiDis+1,bu,bufPos)
  37.       iDiUt=min(idim,iDiDis)
  38.       posXco= (IDIM+1)*(pNoeud-1)
  39.       do i=1,iDiUt
  40.          pConfi.xcoor(posXco+i)=coorlu(i)
  41.       enddo
  42.       pConfi.xcoor(posXco+idim+1)=coorlu(iDiDis+1)
  43.       end
  44.  
  45.  
  46.  
  47.  
  48.  

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