Télécharger cpanod.eso

Retour à la liste

Numérotation des lignes :

  1. C CPANOD SOURCE PV 16/11/26 21:15:25 9205
  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. -INC CCOPTIO
  15. -INC TMCOLAC
  16. -INC SMCOORD
  17. segment BUFFER
  18. character ffer(lonBuf)
  19. endsegment
  20. segment LISNOD
  21. integer numero(nNoeud)
  22. endsegment
  23. pointeur bu.BUFFER
  24.  
  25. C write(ioimp,*) 'Entree dans CPANOD'
  26. if(iNoeud .ne. 0) then
  27. lonBuf=bu.ffer(/2)
  28. posXco= (IDIM+1)*(iNoeud-1)
  29. call mpipaI(IDIM,1,bu,bufPos)
  30. call mpipaR(mcoord.XCOOR(posXco+1),IDIM+1,bu,bufPos)
  31. else
  32. write(ioimp,*) 'Erreur: numero de noeud nul'
  33. call erreur(5)
  34. endif
  35. C write(ioimp,*) 'Sortie de CPANOD'
  36. end
  37.  
  38.  
  39.  
  40.  

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