Télécharger cmecpo.eso

Retour à la liste

Numérotation des lignes :

  1. C CMECPO SOURCE GF238795 15/04/23 21:15:15 8502
  2. subroutine cmecpo(pChpo,nbInt,nbFloa,nbChar)
  3. C=======================================================================
  4. C COLlaborateur MEsure Champ par POint
  5. C Mesure de la taille d'un chpo en nombre d'entier, de flottant
  6. C et de caractere
  7. C=======================================================================
  8. integer nbInt,nbFloa,nbChar
  9. integer nat,nComp,nNoeud
  10. integer iSoupo,nSoupo
  11. -INC SMCHPOI
  12. pointeur pChpo.MCHPOI
  13. pointeur pSoupo.MSOUPO
  14. pointeur pPoval.MPOVAL
  15. C write(ioimp,*) 'Entre dans CMECPO'
  16. if (pChpo.ne.0) then
  17. segact pChpo
  18. nat=pChpo.jattri(/1)
  19. nbInt=nat+3
  20. nbFloa=0
  21. nbChar=80
  22. nSoupo=pChpo.ipchp(/1)
  23. C Boucle sur les soupo
  24. do iSoupo=1,nSoupo
  25. pSoupo=pChpo.ipchp(iSoupo)
  26. segact pSoupo
  27. nComp =pSoupo.noharm(/1)
  28. pPoval=pSoupo.ipoval
  29. segact pPoval
  30. nNoeud=pPoval.vpocha(/1)
  31. segdes pPoval
  32. nbInt=nbInt+3+nComp
  33. nbFloa=nbFloa+nNoeud*nComp
  34. nbChar=nbChar+20*nComp
  35. segdes pSoupo
  36. enddo
  37. segdes pChpo
  38. else
  39. nbInt=0
  40. nbFloa=0
  41. nbChar=0
  42. return
  43. endif
  44. C write(ioimp,*) 'Sortie de CMECPO'
  45. end
  46.  
  47.  
  48.  

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