Sources Esope | Cast3M

cmeplo
C CMEPLO    SOURCE    GF238795  15/04/23    21:15:21     8502
      subroutine cmeplo (pilLoc,taiTot)
C=======================================================================
C  Sous-programme cmeplo (COLlaborateur MESure Piles LOcales)
C  Mesure de la place necessaire pour envoyer les piles locales de
C  logiques, entiers, reels et mots
C=======================================================================
      integer nbInTo,nbChTo
      integer nbReTo
      integer taiTot,taille
      segment PILOC
         real*8 reel(nbRee)
         character*(nbCha)  chara
         integer motdeb(nbMot+1)
      endsegment
      pointeur pilLoc.PILOC
C      write(ioimp,*) 'Entree dans CMEPLO'
      nbChTo=pilLoc.chara(/1)
      nbInTo=3+pilLoc.motDeb(/1)
      nbReTo=pilLoc.reel(/1)
      taiTot=0
      taille=0
      call mpipme(nbInTo,'INTE',taille)
      taiTot = taiTot + taille
      call mpipme(nbReTo,'FLOT',taille)
      taiTot = taiTot + taille
      call mpipme(nbChTo,'CHAR',taille)
      taiTot = taiTot + taille
C      write(ioimp,*) 'Sortie de CMEPLO'
      end