Télécharger cmeplo.eso

Retour à la liste

Numérotation des lignes :

  1. C CMEPLO SOURCE GF238795 15/04/23 21:15:21 8502
  2. subroutine cmeplo (pilLoc,taiTot)
  3. C=======================================================================
  4. C Sous-programme cmeplo (COLlaborateur MESure Piles LOcales)
  5. C Mesure de la place necessaire pour envoyer les piles locales de
  6. C logiques, entiers, reels et mots
  7. C=======================================================================
  8. integer nbInTo,nbChTo
  9. integer nbReTo
  10. integer taiTot,taille
  11. segment PILOC
  12. real*8 reel(nbRee)
  13. character*(nbCha) chara
  14. integer motdeb(nbMot+1)
  15. endsegment
  16. pointeur pilLoc.PILOC
  17. C write(ioimp,*) 'Entree dans CMEPLO'
  18. nbChTo=pilLoc.chara(/1)
  19. nbInTo=3+pilLoc.motDeb(/1)
  20. nbReTo=pilLoc.reel(/1)
  21. taiTot=0
  22. call mpipme(nbInTo,'INTE',taille)
  23. taiTot = taiTot + taille
  24. call mpipme(nbReTo,'FLOT',taille)
  25. taiTot = taiTot + taille
  26. call mpipme(nbChTo,'CHAR',taille)
  27. taiTot = taiTot + taille
  28. C write(ioimp,*) 'Sortie de CMEPLO'
  29. end
  30.  
  31.  
  32.  

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