Sources Esope | Cast3M

cmearg
C CMEARG    SOURCE    PV        17/12/05    21:15:25     9646           
      subroutine cmearg (argume,taiTot)
C=======================================================================
C  Sous-programme cmearg (COLlaborateur MESure ARgument)
C  Mesure de la place necessaire pour envoyer la liste d'arguments
C=======================================================================
      integer nbInTo,nbChTo
      integer taiTot,taille
-INC TMCOLAC
      segment LISARG
         character*8 nom(nArg)
         integer     adress(nArg)
      endsegment
      pointeur argume.LISARG
C      write(ioimp,*) 'Entree dans CMEARG'
      nbChTo=argume.adress(/1)
      nbInTo=argume.adress(/1)+1
      nbChTo=8*(nbInTo-1)
C     On ajoute 1 pour prevenir de la taille des listes
C      write(ioimp,*) "Taille comptee (int/char)",
C     &            nbInTo,nbChTo
      taiTot=0
      taille=0
      call mpipme(nbInTo,'INTE',taille)
      taiTot = taiTot + taille
      call mpipme(nbChTo,'CHAR',taille)
      taiTot = taiTot + taille
C      write(ioimp,*) 'Sortie de CMEARG'
      end