Esope source files

   1 : C RESULE    SOURCE    CHAT      05/01/13    02:54:45     5004           
   2 :       SUBROUTINE RESULE(MLENT1,LENTI1)
   3 : C====================================================================           
   4 : C                                                                               
   5 : C    EFFECTUE LA SOMME DES VALEURS CONTENUES DANS UN LISTENTI
   6 : C                                                                               
   7 : C    ENTREE : MLENT1 POINTEUR SUR UN LISTENTI
   8 : C    SORTIE : LENTI1  ENTIER
   9 : C                                                                               
  10 : C=====================================================================          
  11 : C
  12 :       IMPLICIT INTEGER(I-N)
  13 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  14 : C
  15 : -INC SMLENTI
  16 : -INC CCOPTIO
  17 : C
  18 :       SEGACT MLENT1
  19 :       LENTI1=0
  20 :       JG1=MLENT1.LECT(/1)
  21 :       DO 1 IG1=1,JG1
  22 :         LENTI1 = LENTI1 + MLENT1.LECT(IG1)
  23 :     1 CONTINUE
  24 :       SEGDES MLENT1
  25 : C
  26 :       RETURN                                                                    
  27 :       END                                                                       
  28 :  
  29 :