Télécharger cmearg.eso

Retour à la liste

Numérotation des lignes :

  1. C CMEARG SOURCE PV 16/11/26 21:15:18 9205
  2. subroutine cmearg (argume,taiTot)
  3. C=======================================================================
  4. C Sous-programme cmearg (COLlaborateur MESure ARgument)
  5. C Mesure de la place necessaire pour envoyer la liste d'arguments
  6. C=======================================================================
  7. integer nbInTo,nbChTo
  8. integer taiTot,taille
  9. -INC TMCOLAC
  10. segment LISARG
  11. character*8 nom(nArg)
  12. integer adress(nArg)
  13. endsegment
  14. pointeur argume.LISARG
  15. C write(ioimp,*) 'Entree dans CMEARG'
  16. nbChTo=argume.adress(/1)
  17. nbInTo=argume.adress(/1)+1
  18. nbChTo=8*(nbInTo-1)
  19. C On ajoute 1 pour prevenir de la taille des listes
  20. C write(ioimp,*) "Taille comptee (int/char)",
  21. C & nbInTo,nbChTo
  22. taiTot=0
  23. call mpipme(nbInTo,'INTE',taille)
  24. taiTot = taiTot + taille
  25. call mpipme(nbChTo,'CHAR',taille)
  26. taiTot = taiTot + taille
  27. C write(ioimp,*) 'Sortie de CMEARG'
  28. end
  29.  
  30.  
  31.  
  32.  

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