The TELEMAC-MASCARET system  trunk
global_to_local_point.f
Go to the documentation of this file.
1 ! **************************************
2  INTEGER FUNCTION global_to_local_point
3 ! **************************************
4 !
5  &(ipoin,mesh)
6 !
7 !***********************************************************************
8 ! BIEF V6P2 21/08/2010
9 !***********************************************************************
10 !
11 !brief In parallel, returns the local value of a point given in
12 !+ global value. 0 is returned if point not in subdomain. In scalar
13 !+ mode returns IPOIN. This function replaces array MESH%KNOGL%I
14 !
15 !warning Naive programming with a mere loop, will be optimised
16 !+ in further versions. Only linear points are considered.
17 !
18 !history J-M HERVOUET (LNHE)
19 !+ 30/07/2012
20 !+ V6P2
21 !+
22 !
23 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
24 !| IPOIN |-->| THE POINT NUMBER IN ORIGINAL SCALAR MESH
25 !| MESH |-->| MESH STRUCTURE
26 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
27 !
28  USE bief, ex_global_to_local_point => global_to_local_point
29 !
31  IMPLICIT NONE
32 !
33 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
34 !
35  INTEGER , INTENT(IN) :: IPOIN
36  TYPE(bief_mesh) , INTENT(IN) :: MESH
37 !
38 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
39 !
40  INTEGER I
41 !
42 !-----------------------------------------------------------------------
43 !
44  IF(ncsize.GT.1) THEN
46  DO i=1,mesh%NPOIN
47  IF(mesh%KNOLG%I(i).EQ.ipoin) THEN
49  ENDIF
50  ENDDO
51  ELSE
53  ENDIF
54 !
55 !-----------------------------------------------------------------------
56 !
57  RETURN
58  END
integer function global_to_local_point(IPOIN, MESH)
Definition: bief.f:3