Télécharger cmemel.eso

Retour à la liste

Numérotation des lignes :

  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