C CUPNOD SOURCE PV 20/03/30 21:17:06 10567 subroutine cupnod(bu,bufPos,pNoeud,pConfi) C======================================================================= C Sous-programme cupnod (COLlaborateur UnPAquettage NOeuD) C======================================================================= integer i,nbpts integer bufPos integer lonBuf integer posXco integer iDiDis,iDiUt integer pNoeud real*8 coorLu(4) -INC PPARAM -INC CCOPTIO -INC SMCOORD segment BUFFER character ffer(lonBuf) endsegment pointeur bu.BUFFER pointeur pConfi.MCOORD C write(ioimp,*) 'Entree dans CUPNOD' nbpts = pConfi.xcoor(/1)/(idim+1) if(pNoeud .eq. 0) then nbpts=nbpts+1 segadj pConfi pNoeud = nbpts else if(pNoeud.gt.nbpts) then nbpts=pNoeud segadj pConfi endif endif lonBuf=bu.ffer(/2) call mpiupI( iDiDis,1,bu,bufPos) call mpiupR( coorLu(1),iDiDis+1,bu,bufPos) iDiUt=min(idim,iDiDis) posXco= (IDIM+1)*(pNoeud-1) do i=1,iDiUt pConfi.xcoor(posXco+i)=coorlu(i) enddo pConfi.xcoor(posXco+idim+1)=coorlu(iDiDis+1) end