Télécharger cupnod.eso

Retour à la liste

Numérotation des lignes :

  1. C CUPNOD SOURCE GF238795 15/04/23 21:15:45 8502
  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. -INC CCOPTIO
  14. -INC SMCOORD
  15. segment BUFFER
  16. character ffer(lonBuf)
  17. endsegment
  18. pointeur bu.BUFFER
  19. pointeur pConfi.MCOORD
  20. C write(ioimp,*) 'Entree dans CUPNOD'
  21. nbpts = pConfi.xcoor(/1)/(idim+1)
  22. if(pNoeud .eq. 0) then
  23. nbpts=nbpts+1
  24. segadj pConfi
  25. pNoeud = nbpts
  26. else
  27. if(pNoeud.gt.nbpts) then
  28. nbpts=pNoeud
  29. segadj pConfi
  30. endif
  31. endif
  32. lonBuf=bu.ffer(/2)
  33. call mpiupI( iDiDis,1,bu,bufPos)
  34. call mpiupR( coorLu(1),iDiDis+1,bu,bufPos)
  35. iDiUt=min(idim,iDiDis)
  36. posXco= (IDIM+1)*(pNoeud-1)
  37. do i=1,iDiUt
  38. pConfi.xcoor(posXco+i)=coorlu(i)
  39. enddo
  40. pConfi.xcoor(posXco+idim+1)=coorlu(iDiDis+1)
  41. end
  42.  
  43.  
  44.  

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