Sources Esope | Cast3M

cmecpo
C CMECPO    SOURCE    CB215821  20/11/25    13:21:15     10792          
      subroutine cmecpo(pChpo,nbInt,nbFloa,nbChar)
C=======================================================================
C     COLlaborateur MEsure Champ par POint
C     Mesure de la taille d'un chpo en nombre d'entier, de flottant
C     et de caractere
C=======================================================================
      integer nbInt,nbFloa,nbChar
      integer nat,nComp,nNoeud
      integer iSoupo,nSoupo
-INC SMCHPOI
      pointeur pChpo.MCHPOI
      pointeur pSoupo.MSOUPO
      pointeur pPoval.MPOVAL
C      write(ioimp,*) 'Entre dans CMECPO'
      if (pChpo.ne.0) then
         segact pChpo
         nat=pChpo.jattri(/1)
         nbInt=nat+3
         nbFloa=0
         nbChar=80
         nSoupo=pChpo.ipchp(/1)
C        Boucle sur les soupo
         do iSoupo=1,nSoupo
            pSoupo=pChpo.ipchp(iSoupo)
            segact pSoupo
            nComp =pSoupo.noharm(/1)
            pPoval=pSoupo.ipoval
            segact pPoval
            nNoeud=pPoval.vpocha(/1)
            segdes pPoval
            nbInt=nbInt+3+nComp
            nbFloa=nbFloa+nNoeud*nComp
            nbChar=nbChar+20*nComp
            segdes pSoupo
         enddo
         segdes pChpo
      else
         nbInt=0
         nbFloa=0
         nbChar=0
         return
      endif
C      write(ioimp,*) 'Sortie de CMECPO'
      end