somme.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\somme.f
00002 !
00047                      DOUBLE PRECISION FUNCTION SOMME
00048 !                    *******************************
00049 !
00050      &( X , NPX )
00051 !
00052 !***********************************************************************
00053 ! BIEF   V6P1                                   21/08/2010
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| NPX            |-->| SIZE OF X
00062 !| X              |-->| ARRAY TO SUM
00063 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00064 !
00065       IMPLICIT NONE
00066       INTEGER LNG,LU
00067       COMMON/INFO/LNG,LU
00068 !
00069       INTEGER NPX,I
00070 !
00071       DOUBLE PRECISION X(*)
00072 !
00073 !-----------------------------------------------------------------------
00074 !
00075         SOMME = 0.D0
00076         DO I = 1 , NPX
00077           SOMME = SOMME + X(I)
00078         ENDDO ! I
00079 !
00080 !-----------------------------------------------------------------------
00081 !
00082       RETURN
00083       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0