Télécharger cpanod.eso

Retour à la liste

Numérotation des lignes :

  1. C CPANOD SOURCE PV 17/12/05 21:15:37 9646
  2. subroutine cpanod(iNoeud,bu,bufPos)
  3. C=======================================================================
  4. C Sous-programme cpanod (COLlaborateur PAquettage NOeuD)
  5. C Creation d'un nouveau noeud communique. On recupere ses coordonnes
  6. C dans la configuration actuelle pour l'initialiser.
  7. C Il faut s'assurer au prealabe que la taille du buffer est
  8. C suffisante
  9. C=======================================================================
  10. integer bufPos
  11. integer lonBuf
  12. integer posXco
  13. integer iNoeud
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC TMCOLAC
  18. -INC SMCOORD
  19. segment BUFFER
  20. character ffer(lonBuf)
  21. endsegment
  22. segment LISNOD
  23. integer numero(nNoeud)
  24. endsegment
  25. pointeur bu.BUFFER
  26.  
  27. C write(ioimp,*) 'Entree dans CPANOD'
  28. if(iNoeud .ne. 0) then
  29. lonBuf=bu.ffer(/2)
  30. posXco= (IDIM+1)*(iNoeud-1)
  31. call mpipaI(IDIM,1,bu,bufPos)
  32. call mpipaR(mcoord.XCOOR(posXco+1),IDIM+1,bu,bufPos)
  33. else
  34. write(ioimp,*) 'Erreur: numero de noeud nul'
  35. call erreur(5)
  36. endif
  37. C write(ioimp,*) 'Sortie de CPANOD'
  38. end
  39.  
  40.  
  41.  
  42.  
  43.  

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