Télécharger la plaquette Cast3M


fr en

Télécharger cmemel.eso

Retour à la liste

Numérotation des lignes : 

cmemel

  1. C CMEMEL    SOURCE    GF238795  15/04/23    21:15:17     8502
  2.       subroutine cmemel(pMelem,nbInt,nbFloa,nbChar)
  3. C=======================================================================
  4. C     COLlaborateur MEsure MELeme
  5. C     Mesure de la taille d'un maillage en nombre d'entier, de flottant
  6. C     et de caractere
  7. C=======================================================================
  8.       integer nbInt,nbFloa,nbChar
  9.       integer nbnn, nbelem, nbsous, nbref
  10. -INC SMELEME
  11.       pointeur pMelem.MELEME
  12. C      write(ioimp,*) 'Entre dans CMEMEL'
  13.       if (pMelem.gt.0) then
  14.          segact pMelem
  15.          nbnn  =pMelem.num(/1)
  16.          nbelem=pMelem.num(/2)
  17.          nbsous=pMelem.lisous(/1)
  18.          nbref =pMelem.lisref(/1)
  19.          nbInt=5+nbsous+nbref+nbelem*(1+nbnn)
  20.          nbFloa=0
  21.          nbChar=0
  22.          segdes pMelem
  23.       else
  24.          nbInt=0
  25.          nbFloa=0
  26.          nbChar=0
  27.          return
  28.       endif
  29. C      write(ioimp,*) 'Sortie de CMEMEL'
  30.       end
  31.  
  32.  
  33.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales