mt01oo.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\mt01oo.f
00002 !
00065                      SUBROUTINE MT01OO
00066 !                    *****************
00067 !
00068      &(A11,A12,A22,XMUL,LGSEG,NELEM,NELMAX)
00069 !
00070 !***********************************************************************
00071 ! BIEF   V6P1                                   21/08/2010
00072 !***********************************************************************
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !| A11            |<--| ELEMENTS OF MATRIX
00081 !| A12            |<--| ELEMENTS OF MATRIX
00082 !| A22            |<--| ELEMENTS OF MATRIX
00083 !| LGSEG          |-->| LENGTH OF SEGMENTS.
00084 !| NELEM          |-->| NUMBER OF ELEMENTS
00085 !| NELMAX         |-->| MAXIMUM NUMBER OF ELEMENTS
00086 !| XMUL           |-->| MULTIPLICATION FACTOR
00087 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00088 !
00089       USE BIEF, EX_MT01OO => MT01OO
00090 !
00091       IMPLICIT NONE
00092       INTEGER LNG,LU
00093       COMMON/INFO/LNG,LU
00094 !
00095 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00096 !
00097       INTEGER, INTENT(IN) :: NELEM,NELMAX
00098 !
00099       DOUBLE PRECISION, INTENT(INOUT) :: A11(NELMAX),A12(NELMAX)
00100       DOUBLE PRECISION, INTENT(INOUT) :: A22(NELMAX)
00101       DOUBLE PRECISION, INTENT(IN)    :: LGSEG(NELMAX)
00102 !
00103       DOUBLE PRECISION, INTENT(IN) :: XMUL
00104 !
00105 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00106 !
00107       INTEGER IELEM
00108       DOUBLE PRECISION XSUR6,DET1
00109 !
00110 !-----------------------------------------------------------------------
00111 !
00112       XSUR6  = XMUL/6.D0
00113 !
00114 !-----------------------------------------------------------------------
00115 !
00116       DO IELEM = 1 , NELEM
00117 !
00118         DET1 = LGSEG(IELEM) * XSUR6
00119         A11(IELEM) = DET1 + DET1
00120         A12(IELEM) = DET1
00121         A22(IELEM) = DET1 + DET1
00122 !
00123       ENDDO ! IELEM
00124 !
00125 !-----------------------------------------------------------------------
00126 !
00127       RETURN
00128       END

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