Esope source files

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