Télécharger cpaplo.eso

Retour à la liste

Numérotation des lignes :

  1. C CPAPLO SOURCE GF238795 16/10/18 21:15:06 9131
  2. subroutine cpaplo(pilLoc,bu,bufPos)
  3. C=======================================================================
  4. C Sous-programme cpaplo (COLlaborateur PAquettage Piles LOcale)
  5. C Enregistre les piles de reels et de mots dans le buffer d'envoi
  6. C=======================================================================
  7. integer bufPos
  8. integer lonBuf
  9. integer nbRee,nbCha,nbMot
  10. segment BUFFER
  11. character*1 ffer(lonBuf)
  12. endsegment
  13. segment PILOC
  14. real*8 reel(nbRee)
  15. character*(nbCha) chara
  16. integer motdeb(nbMot+1)
  17. endsegment
  18. pointeur pilLoc.PILOC
  19. pointeur bu.BUFFER
  20. C write(ioimp,*) 'Entree dans CPAPLO'
  21.  
  22. lonBuf=bu.ffer(/2)
  23. nbRee=pilLoc.reel(/1)
  24. nbCha=pilLoc.chara(/1)
  25. nbMot=pilLoc.motdeb(/1)-1
  26. C write(ioimp,*)'Position du buffer',bufPos
  27. call mpipaI(nbRee,1,bu,bufPos)
  28. call mpipaI(nbCha,1,bu,bufPos)
  29. call mpipaI(nbMot,1,bu,bufPos)
  30. if(nbRee.gt.0) then
  31. call mpipaR(pilLoc.reel,nbRee,bu,bufPos)
  32. endif
  33. if(nbCha.gt.0) then
  34. call mpipaC(pilLoc.chara,nbCha,bu,bufPos)
  35. endif
  36. if(nbMot.gt.0) then
  37. call mpipaI(pilLoc.motdeb,nbMot+1,bu,bufPos)
  38. endif
  39. C write(ioimp,*)'Position du buffer',bufPos
  40. C write(ioimp,*) 'Sortie de CPAPLO'
  41. end
  42.  
  43.  
  44.  
  45.  

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