dot.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\dot.f
00002 !
00046                      DOUBLE PRECISION FUNCTION DOT
00047 !                    *****************************
00048 !
00049      &(NPOIN,X,Y)
00050 !
00051 !***********************************************************************
00052 ! BIEF   V6P1                                   21/08/2010
00053 !***********************************************************************
00054 !
00055 !
00056 !
00057 !
00058 !
00059 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00060 !| NPOIN          |-->| TAILLE DE X ET Y
00061 !| X              |-->| FIRST DOUBLE PRECISION VECTOR
00062 !| Y              |-->| SECOND DOUBLE PRECISION VECTOR
00063 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00064 !
00065       IMPLICIT NONE
00066       INTEGER LNG,LU
00067       COMMON/INFO/LNG,LU
00068 !
00069 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00070 !
00071       INTEGER, INTENT(IN) :: NPOIN
00072       DOUBLE PRECISION, INTENT(IN) :: X(NPOIN),Y(NPOIN)
00073 !
00074 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00075 !
00076       INTEGER I
00077 !
00078 !-----------------------------------------------------------------------
00079 !
00080       DOT = 0.D0
00081 !
00082       DO I = 1 , NPOIN
00083         DOT = DOT + X(I) * Y(I)
00084       ENDDO
00085 !
00086 !-----------------------------------------------------------------------
00087 !
00088       RETURN
00089       END

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