Télécharger kplrvm.eso

Retour à la liste

Numérotation des lignes :

kplrvm
  1. C KPLRVM SOURCE CHAT 05/01/13 01:04:27 5004
  2. SUBROUTINE KPLRVM(MELEME,LRV,NBSOUS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMELEME
  6.  
  7. C --- CALCUL DU NOMBRE DE PAQUETS DE LRV ELEMENTS ---
  8.  
  9. SEGACT MELEME
  10. NBSOUS=0
  11. DO 7001 L=1,MAX(1,LISOUS(/1))
  12. IPT1=MELEME
  13. IF(LISOUS(/1).NE.0)IPT1=LISOUS(L)
  14. SEGACT IPT1
  15. NBELEM=IPT1.NUM(/2)
  16. NNN=MOD(NBELEM,LRV)
  17. IF(NNN.EQ.0) NPACK=NBELEM/LRV
  18. IF(NNN.NE.0) NPACK=1+(NBELEM-NNN)/LRV
  19. NBSOUS=NBSOUS+NPACK
  20. SEGDES IPT1
  21. 7001 CONTINUE
  22. SEGDES MELEME
  23.  
  24. RETURN
  25. END
  26.  
  27.  
  28.  
  29.  

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