Télécharger cpaarg.eso

Retour à la liste

Numérotation des lignes :

  1. C CPAARG SOURCE GF238795 15/04/23 21:15:24 8502
  2. subroutine cpaarg(argume,bu,bufPos)
  3. C=======================================================================
  4. C Sous-programme cpaarg (COLlaborateur PAQuettage ARgument)
  5. C Enregistre la liste d'argument dans le buffer d'envoi
  6. C Il faut de s'assurer au prealabe que la taille du buffer est
  7. C suffisante
  8. C=======================================================================
  9. integer bufPos
  10. integer lonBuf
  11. integer nArg
  12. segment BUFFER
  13. character*1 ffer(lonBuf)
  14. endsegment
  15. segment LISARG
  16. character*8 nom(nArg)
  17. integer adress(nArg)
  18. endsegment
  19. pointeur bu.BUFFER
  20. pointeur argume.LISARG
  21. C write(ioimp,*) 'Entree dans CAPARG'
  22.  
  23. nArg=argume.adress(/1)
  24. lonBuf=bu.ffer(/2)
  25. C write(ioimp,*)'Taille du buffer',lonBuf
  26. C Paquettage de la taille de la liste des arguments
  27. call mpipaI(nArg,1,bu,bufPos)
  28. C write(ioimp,*) 'Enregistrement des noms',nArg
  29. call mpipaC(argume.nom,nArg*8,bu,bufPos)
  30. C write(ioimp,*) 'Enregistrement des positions,'
  31. call mpipaI(argume.adress,nArg,bu,bufPos)
  32. C write(ioimp,*) 'Sortie de CAPARG'
  33. end
  34.  
  35.  
  36.  

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