Sources Esope | Cast3M

cmerig
C CMERIG    SOURCE    GF238795  15/04/23    21:15:22     8502
      subroutine cmerig(pRigi,nbInt,nbFloa,nbChar)
C=======================================================================
C     COLlaborateur MEsure RIGidite
C     Mesure de la taille d'un matrice de rigidite en nombre d'entier,
C     de flottant et de caractere
C=======================================================================
      integer nbInt,nbFloa,nbChar
      integer nrigel,nligrd,nligrp,nelrig
      integer jrigel
-INC SMRIGID
      pointeur pRigi.MRIGID
      pointeur pXmatr.XMATRI
C      write(ioimp,*) 'Entre dans CMERIG'
      if (pRigi.ne.0) then
         segact pRigi
         nrigel=pRigi.coerig(/1)
         nbInt=2+nrigel*6
         nbFloa=nrigel
         nbChar=8
         do jrigel=1,nrigel
            pXmatr=pRigi.irigel(4,jrigel)
            segact pXmatr
            nligrd = pXmatr.re(/1)
            nligrp = pXmatr.re(/2)
            nelrig = pXmatr.re(/3)
            nbInt=nbInt+3+nligrp+nligrd
            nbFloa=nbFloa+nligrp*nligrd*nelrig
            nbChar=nbChar+4*(nligrp+nligrd)
            segdes pXmatr
         enddo
         segdes pRigi
      else
         nbInt=0
         nbFloa=0
         nbChar=0
         return
      endif
C      write(ioimp,*) 'Sortie de CMERIG'
      end