C CMECHM    SOURCE    GF238795  15/04/23    21:15:15     8502
      subroutine cmechm(pChelm,nbInt,nbFloa,nbChar)
C=======================================================================
C     COLlaborateur MEsure CHamp par eleMent
C     Mesure de la taille d'un Chelm en nombre d'entier, de flottant et
C     de caractere
C=======================================================================
      integer nbInt,nbFloa,nbChar
      integer nbComp,iComp
      integer longTit,longConch
      integer nbNoEl,nbEl
      integer nbCons,iCons
      integer nbInf
      integer nconch
-INC SMCHAML
      pointeur pChelm.MCHELM
      pointeur pChaml.MCHAML
      pointeur pElval.MELVAL
C      write(ioimp,*) 'Entre dans CMECHM'
      if (pChelm.ne.0) then
         segact pChelm
         nbCons=pChelm.ichaml(/1)
         longTit=pChelm.titche(/1)
         longConch=pChelm.conche(/1)
         nbInf=pChelm.infche(/2)
C         write(ioimp,*) 'tailles chaml',nbCons,longTit,longConch,nbInf
         nbInt=5+nbCons*(nbInf+1)
         nbFloa=0
         nbChar=longTit+nbCons*longConch
C        Boucle sur les chaml
         do iCons=1,nbCons
            pChaml=pChelm.ichaml(iCons)
            segact pChaml
            nbComp =pChaml.ielval(/1)
            nbChar=nbChar+(8+16)*nbComp
            nbInt=nbInt+1
C            write(ioimp,*) 'nbComp',nbComp
            do iComp=1,nbComp
               nbInt=nbInt+4
               pElval=pChaml.ielval(iComp)
               segact pElval
               nbNoEl=pElval.ielche(/1)
               nbEl=pElval.ielche(/2)
C               write(ioimp,*) 'nbNoEl*nbEl',nbNoEl,nbEl
               nbInt=nbInt+nbNoEl*nbEl
               nbNoEl=pElval.velche(/1)
               nbEl=pElval.velche(/2)
C               write(ioimp,*) 'nbNoEl*nbEl',nbNoEl,nbEl
               nbFloa=nbFloa+nbNoEl*nbEl
               segdes pElval
            enddo
            segdes pChaml
         enddo
         segdes pChelm
      else
         nbInt=0
         nbFloa=0
         nbChar=0
         return
      endif
C      write(ioimp,*) 'Sortie de CMECHM'

      end