Télécharger cupnod.eso

Retour à la liste

Numérotation des lignes :

  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