Télécharger cmerig.eso

Retour à la liste

Numérotation des lignes :

  1. C CMERIG SOURCE GF238795 15/04/23 21:15:22 8502
  2. subroutine cmerig(pRigi,nbInt,nbFloa,nbChar)
  3. C=======================================================================
  4. C COLlaborateur MEsure RIGidite
  5. C Mesure de la taille d'un matrice de rigidite en nombre d'entier,
  6. C de flottant et de caractere
  7. C=======================================================================
  8. integer nbInt,nbFloa,nbChar
  9. integer nrigel,nligrd,nligrp,nelrig
  10. integer jrigel
  11. -INC SMRIGID
  12. pointeur pRigi.MRIGID
  13. pointeur pXmatr.XMATRI
  14. C write(ioimp,*) 'Entre dans CMERIG'
  15. if (pRigi.ne.0) then
  16. segact pRigi
  17. nrigel=pRigi.coerig(/1)
  18. nbInt=2+nrigel*6
  19. nbFloa=nrigel
  20. nbChar=8
  21. do jrigel=1,nrigel
  22. pXmatr=pRigi.irigel(4,jrigel)
  23. segact pXmatr
  24. nligrd = pXmatr.re(/1)
  25. nligrp = pXmatr.re(/2)
  26. nelrig = pXmatr.re(/3)
  27. nbInt=nbInt+3+nligrp+nligrd
  28. nbFloa=nbFloa+nligrp*nligrd*nelrig
  29. nbChar=nbChar+4*(nligrp+nligrd)
  30. segdes pXmatr
  31. enddo
  32. segdes pRigi
  33. else
  34. nbInt=0
  35. nbFloa=0
  36. nbChar=0
  37. return
  38. endif
  39. C write(ioimp,*) 'Sortie de CMERIG'
  40. end
  41.  
  42.  
  43.  

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