Esope source files

   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 :