parcom_bord.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\parcom_bord.f
00002 !
00065                      SUBROUTINE PARCOM_BORD
00066 !                    **********************
00067 !
00068      &( X , ICOM , MESH )
00069 !
00070 !***********************************************************************
00071 ! BIEF   V6P1                                   21/08/2010
00072 !***********************************************************************
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !| ICOM           |-->| COMMUNICATION MODE
00081 !|                |   | = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE TAKEN
00082 !|                |   | = 2 : CONTRIBUTIONS ADDED
00083 !|                |   | = 3 : MAXIMUM CONTRIBUTION RETAINED
00084 !|                |   | = 4 : MINIMUM CONTRIBUTION RETAINED
00085 !| MESH           |-->| MESH STRUCTURE
00086 !| X              |<->| VECTOR OR BLOCK OF VECTORS
00087 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00088 !
00089       USE BIEF, EX_PARCOM_BORD => PARCOM_BORD
00090 !
00091       IMPLICIT NONE
00092       INTEGER LNG,LU
00093       COMMON/INFO/LNG,LU
00094 !
00095 !-----------------------------------------------------------------------
00096 !
00097       INTEGER, INTENT(IN) :: ICOM
00098 !
00099 !     STRUCTURES: VECTORS OR BLOCKS
00100 !
00101       TYPE(BIEF_MESH), INTENT(INOUT)  :: MESH
00102       DOUBLE PRECISION, INTENT(INOUT) :: X(*)
00103 !
00104 !-----------------------------------------------------------------------
00105 !
00106       INTEGER NPTFR,I,TELM,TDIM1,TDIM2,TDIMDISC
00107 !
00108 !***********************************************************************
00109 !
00110       NPTFR=BIEF_NBPTS(1,MESH)
00111 !
00112       TELM     = MESH%T%ELM
00113       TDIM1    = MESH%T%DIM1
00114       TDIM2    = MESH%T%DIM2
00115       TDIMDISC = MESH%T%DIMDISC
00116 !
00117       MESH%T%ELM     = 11
00118       MESH%T%DIM1    = BIEF_NBPTS(11,MESH)
00119       MESH%T%DIM2    = 1
00120       MESH%T%DIMDISC = 0
00121 !
00122       CALL OS('X=0     ',X=MESH%T)
00123 !
00124       DO I=1,NPTFR
00125         MESH%T%R(MESH%NBOR%I(I))=X(I)
00126       ENDDO
00127 !
00128       CALL PARCOM(MESH%T,ICOM,MESH)
00129 !
00130       DO I=1,NPTFR
00131         X(I)=MESH%T%R(MESH%NBOR%I(I))
00132       ENDDO
00133 !
00134       MESH%T%ELM     = TELM
00135       MESH%T%DIM1    = TDIM1
00136       MESH%T%DIM2    = TDIM2
00137       MESH%T%DIMDISC = TDIMDISC
00138 !
00139 !-----------------------------------------------------------------------
00140 !
00141       RETURN
00142       END

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