global_to_local_point.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\global_to_local_point.f
00002 !
00049                      INTEGER FUNCTION GLOBAL_TO_LOCAL_POINT
00050 !                    **************************************
00051 !
00052      &(IPOIN,MESH)
00053 !
00054 !***********************************************************************
00055 ! BIEF   V6P2                                   21/08/2010
00056 !***********************************************************************
00057 !
00058 !
00059 !
00060 !
00061 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00062 !| IPOIN          |-->| THE POINT NUMBER IN ORIGINAL SCALAR MESH
00063 !| MESH           |-->| MESH STRUCTURE
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !
00066       USE BIEF, EX_GLOBAL_TO_LOCAL_POINT => GLOBAL_TO_LOCAL_POINT
00067 !
00068       IMPLICIT NONE
00069       INTEGER LNG,LU
00070       COMMON/INFO/LNG,LU
00071 !
00072 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00073 !
00074       INTEGER         , INTENT(IN) :: IPOIN
00075       TYPE(BIEF_MESH) , INTENT(IN) :: MESH
00076 !
00077 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00078 !
00079       INTEGER I
00080 !
00081 !-----------------------------------------------------------------------
00082 !
00083       IF(NCSIZE.GT.1) THEN
00084         GLOBAL_TO_LOCAL_POINT=0
00085         DO I=1,MESH%NPOIN
00086           IF(MESH%KNOLG%I(I).EQ.IPOIN) THEN
00087             GLOBAL_TO_LOCAL_POINT=I
00088           ENDIF
00089         ENDDO
00090       ELSE
00091         GLOBAL_TO_LOCAL_POINT=IPOIN
00092       ENDIF
00093 !
00094 !-----------------------------------------------------------------------
00095 !
00096       RETURN
00097       END

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