filp11.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\filp11.f
00002 !
00060                      SUBROUTINE FILP11
00061 !                    *****************
00062 !
00063      &( F , C , XSOM , YSOM , NSOM , X , Y , NPOIN )
00064 !
00065 !***********************************************************************
00066 ! BIEF   V6P1                                   21/08/2010
00067 !***********************************************************************
00068 !
00069 !
00070 !
00071 !
00072 !
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !| C              |-->| THE CONSTANT VALUE
00075 !| F              |<->| THE FUNCTION
00076 !| NPOIN          |-->| NUMBER OF POINTS
00077 !| NSOM           |-->| NUMBER OF VERTICES IN THE POLYGON
00078 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00079 !| XSOM           |-->| ABSCISSAE OF POINTS IN THE POLYGON
00080 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00081 !| YSOM           |-->| ORDINATES OF POINTS IN THE POLYGON
00082 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00083 !
00084       USE BIEF, EX_FILP11 => FILP11
00085 !
00086       IMPLICIT NONE
00087       INTEGER LNG,LU
00088       COMMON/INFO/LNG,LU
00089 !
00090 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00091 !
00092       INTEGER, INTENT(IN) :: NSOM , NPOIN
00093       DOUBLE PRECISION, INTENT(INOUT) :: F(*)
00094       DOUBLE PRECISION, INTENT(IN) :: X(*) , Y(*)
00095       DOUBLE PRECISION, INTENT(IN) :: XSOM(NSOM) , YSOM(NSOM) , C
00096 !
00097 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00098 !
00099       INTEGER I
00100 !
00101 !-----------------------------------------------------------------------
00102 !
00103       DO I = 1 , NPOIN
00104 !
00105         IF(INPOLY(X(I),Y(I),XSOM,YSOM,NSOM)) F(I) = C
00106 !
00107       ENDDO
00108 !
00109 !-----------------------------------------------------------------------
00110 !
00111       RETURN
00112       END

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