comp_fac.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\comp_fac.f
00002 !
00055                      SUBROUTINE COMP_FAC
00056 !                    *******************
00057 !
00058      &(ELTSEG,IFABOR,NELEM,NPOIN,FAC)
00059 !
00060 !***********************************************************************
00061 ! BIEF   V6P1                                   21/08/2010
00062 !***********************************************************************
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !| ELTSEG         |-->| GIVES THE SEGMENT NUMBER OF EDGES OF ELEMENTS
00070 !| FAC            |<->| COEFFICIENT FOR COMPUTING DOT PRODUCTS IN //
00071 !| IFABOR         |-->| -2 MEANS INTERFACE WITH ANOTHER SUB-DOMAIN
00072 !| NELEM          |-->| NUMBER OF ELEMENTS
00073 !| NPOIN          |-->| NUMBER OF POINTS
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !
00076       USE BIEF, EX_COMP_FAC => COMP_FAC
00077 !
00078       IMPLICIT NONE
00079       INTEGER LNG,LU
00080       COMMON/INFO/LNG,LU
00081 !
00082 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00083 !
00084       INTEGER, INTENT(IN)    :: NELEM,NPOIN
00085       INTEGER, INTENT(IN)    :: IFABOR(NELEM,3),ELTSEG(NELEM,3)
00086       TYPE(BIEF_OBJ), INTENT(INOUT) :: FAC
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090       INTEGER IELEM
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094       DO IELEM=1,NELEM
00095 !
00096         IF(IFABOR(IELEM,1).EQ.-2) FAC%R(NPOIN+ELTSEG(IELEM,1))=0.5D0
00097         IF(IFABOR(IELEM,2).EQ.-2) FAC%R(NPOIN+ELTSEG(IELEM,2))=0.5D0
00098         IF(IFABOR(IELEM,3).EQ.-2) FAC%R(NPOIN+ELTSEG(IELEM,3))=0.5D0
00099 !
00100       ENDDO
00101 !
00102 !-----------------------------------------------------------------------
00103 !
00104       RETURN
00105       END

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