Télécharger cmemin.eso

Retour à la liste

Numérotation des lignes :

  1. C CMEMIN SOURCE GF238795 15/04/23 21:15:18 8502
  2. subroutine cmemin(pMinte,nbInt,nbFloa,nbChar)
  3. C=======================================================================
  4. C COLlaborateur MEsure MINte
  5. C Mesure de la taille d'un segment minte en nombre d'entier, de
  6. C flottant et de caractere
  7. C=======================================================================
  8. integer nbInt,nbFloa,nbChar
  9. integer nbno, nbpgau
  10. -INC SMINTE
  11. pointeur pMinte.MINTE
  12. C write(ioimp,*) 'Entre dans CMEMIN'
  13. if (pMinte.ne.0) then
  14. segact pMinte
  15. nbno =pMinte.shptot(/2)
  16. nbpgau =pMinte.shptot(/3)
  17. nbInt=2
  18. nbFloa =nbpgau*(6*nbno+4)
  19. nbChar =0
  20. segdes pMinte
  21. else
  22. nbInt=0
  23. nbFloa=0
  24. nbChar=0
  25. return
  26. endif
  27. C write(ioimp,*) 'Sortie de CMEMIN'
  28. end
  29.  
  30.  
  31.  

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