Télécharger cuparg.eso

Retour à la liste

Numérotation des lignes :

  1. C CUPARG SOURCE GF238795 15/04/23 21:15:38 8502
  2. subroutine cuparg(bu,bufPos,argume)
  3. C=======================================================================
  4. C Sous-programme cuparg (COLlaborateur UnPAQuettage ARgument)
  5. C Initialisation et lecture de la liste des objets a renvoyer et leur
  6. C type dans le buffer bu à la position bufPos
  7. C=======================================================================
  8. integer bufPos
  9. integer lonBuf
  10. integer nArg
  11. C-INC CCOPTIO
  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 CUPARG'
  22.  
  23. nArg=0
  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 mpiupI(nArg,1,bu,bufPos)
  28. C write(ioimp,*)'Nombre d arguments lus',nArg
  29. segini argume
  30. call mpiupC(argume.nom,nArg*8,bu,bufPos)
  31. C write(ioimp,*)'Liste des noms lus',(argume.nom(i),i=1,nArg)
  32. call mpiupI(argume.adress,nArg,bu,bufPos)
  33. C write(ioimp,*)'Liste des positions lues',(argume.adress(i),i=1,nArg)
  34. C write(ioimp,*) 'Sortie de CUPARG'
  35. end
  36.  
  37.  
  38.  

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