C RESULE SOURCE CHAT 05/01/13 02:54:45 5004 SUBROUTINE RESULE(MLENT1,LENTI1) C==================================================================== C C EFFECTUE LA SOMME DES VALEURS CONTENUES DANS UN LISTENTI C C ENTREE : MLENT1 POINTEUR SUR UN LISTENTI C SORTIE : LENTI1 ENTIER C C===================================================================== C IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) C -INC SMLENTI -INC PPARAM -INC CCOPTIO C SEGACT MLENT1 LENTI1=0 JG1=MLENT1.LECT(/1) DO 1 IG1=1,JG1 LENTI1 = LENTI1 + MLENT1.LECT(IG1) 1 CONTINUE SEGDES MLENT1 C RETURN END