Télécharger cupplo.eso

Retour à la liste

Numérotation des lignes :

  1. C CUPPLO SOURCE GF238795 15/04/23 21:15:46 8502
  2. subroutine cupplo(bu,bufPos,pilLoc)
  3. C=======================================================================
  4. C Sous-programme cupplo (COLlaborateur UnPAQuettage Pile LOcale)
  5. C Lecture des listes de reels et mots
  6. C dans le buffer bu à la position bufPos
  7. C=======================================================================
  8. integer bufPos
  9. integer lonBuf
  10. integer nArg
  11. integer nbRee,nbCha,nbMot
  12. segment BUFFER
  13. character*1 ffer(lonBuf)
  14. endsegment
  15. segment PILOC
  16. real*8 reel(nbRee)
  17. character*(nbCha) chara
  18. integer motdeb(nbMot+1)
  19. endsegment
  20. pointeur pilLoc.PILOC
  21. pointeur bu.BUFFER
  22. C write(ioimp,*) 'Entree dans CUPPLO'
  23.  
  24. nbRee=0
  25. nbCha=0
  26. nbMot=0
  27. lonBuf=bu.ffer(/2)
  28. call mpiupI(nbRee,1,bu,bufPos)
  29. call mpiupI(nbCha,1,bu,bufPos)
  30. call mpiupI(nbMot,1,bu,bufPos)
  31. segadj pilLoc
  32. if(nbRee.gt.0) then
  33. call mpiupR(pilLoc.reel,nbRee,bu,bufPos)
  34. endif
  35. if(nbCha.gt.0) then
  36. call mpiupc(pilLoc.chara,nbCha,bu,bufPos)
  37. endif
  38. if(nbMot.gt.0) then
  39. call mpiupI(pilLoc.motDeb,nbMot+1,bu,bufPos)
  40. endif
  41. C write(ioimp,*) 'Sortie de CUPPLO'
  42. end
  43.  
  44.  
  45.  

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