p_dot.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\p_dot.f
00002 !
00058                      DOUBLE PRECISION FUNCTION P_DOT
00059 !                    *******************************
00060 !
00061      &(NPOIN,X,Y,FAC)
00062 !
00063 !***********************************************************************
00064 ! BIEF   V6P1                                   21/08/2010
00065 !***********************************************************************
00066 !
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !| FAC            |-->| FAC=1/(NUMBER OF NEIGHBOURING SUB-DOMAINS)
00074 !| NPOIN          |-->| SIZE OF X AND Y
00075 !| X              |-->| VECTOR
00076 !| Y              |-->| VECTOR
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !
00079       USE BIEF, EX_P_DOT => P_DOT
00080 !
00081       IMPLICIT NONE
00082       INTEGER LNG,LU
00083       COMMON/INFO/LNG,LU
00084 !
00085 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00086 !
00087       INTEGER, INTENT(IN) :: NPOIN
00088 !
00089       DOUBLE PRECISION, INTENT(IN) :: X(NPOIN),Y(NPOIN),FAC(NPOIN)
00090 !
00091 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00092 !
00093       INTEGER I
00094 !
00095 !-----------------------------------------------------------------------
00096 !
00097       P_DOT = 0.D0
00098 !
00099       DO I = 1 , NPOIN
00100         P_DOT = P_DOT + X(I) * Y(I) * FAC(I)
00101       ENDDO ! I
00102 !
00103 !-----------------------------------------------------------------------
00104 !
00105       RETURN
00106       END

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