Sources Esope | Cast3M

cmemin
C CMEMIN    SOURCE    GF238795  15/04/23    21:15:18     8502
      subroutine cmemin(pMinte,nbInt,nbFloa,nbChar)
C=======================================================================
C     COLlaborateur MEsure MINte
C     Mesure de la taille d'un segment minte en nombre d'entier, de
C     flottant et de caractere
C=======================================================================
      integer nbInt,nbFloa,nbChar
      integer nbno, nbpgau
-INC SMINTE
      pointeur pMinte.MINTE
C      write(ioimp,*) 'Entre dans CMEMIN'
      if (pMinte.ne.0) then
         segact pMinte
         nbno     =pMinte.shptot(/2)
         nbpgau   =pMinte.shptot(/3)
         nbInt=2
         nbFloa  =nbpgau*(6*nbno+4)
         nbChar   =0
         segdes pMinte
      else
         nbInt=0
         nbFloa=0
         nbChar=0
         return
      endif
C      write(ioimp,*) 'Sortie de CMEMIN'
      end