vc00aa.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\vc00aa.f
00002 !
00055                      SUBROUTINE VC00AA
00056 !                    *****************
00057 !
00058      &(XMUL,SURFAC,NELEM,NELMAX,W1,W2,W3)
00059 !
00060 !***********************************************************************
00061 ! BIEF   V6P1                                   21/08/2010
00062 !***********************************************************************
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !| NELEM          |-->| NUMBER OF ELEMENTS
00071 !| NELMAX         |-->| MAXIMUM NUMBER OF ELEMENTS
00072 !| SURFAC         |-->| AREA OF TRIANGLES
00073 !| W1             |<--| RESULT IN NON ASSEMBLED FORM
00074 !| W2             |<--| RESULT IN NON ASSEMBLED FORM
00075 !| W3             |<--| RESULT IN NON ASSEMBLED FORM
00076 !| XMUL           |-->| MULTIPLICATION COEFFICIENT
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00084 !
00085       INTEGER, INTENT(IN) :: NELEM,NELMAX
00086 !
00087       DOUBLE PRECISION, INTENT(INOUT) :: W1(NELMAX)
00088       DOUBLE PRECISION, INTENT(INOUT) :: W2(NELMAX)
00089       DOUBLE PRECISION, INTENT(INOUT) :: W3(NELMAX)
00090       DOUBLE PRECISION, INTENT(IN)    :: SURFAC(NELMAX)
00091       DOUBLE PRECISION, INTENT(IN)    :: XMUL
00092 !
00093 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00094 !
00095       INTEGER IELEM
00096 !
00097       DOUBLE PRECISION XSUR3,COEF
00098 !
00099 !-----------------------------------------------------------------------
00100 !
00101       XSUR3 = XMUL / 3.D0
00102 !
00103 !-----------------------------------------------------------------------
00104 !
00105       DO IELEM = 1 , NELEM
00106 !
00107         COEF = XSUR3 * SURFAC(IELEM)
00108 !
00109         W1(IELEM) = COEF
00110         W2(IELEM) = COEF
00111         W3(IELEM) = COEF
00112 !
00113       ENDDO ! IELEM
00114 !
00115 !-----------------------------------------------------------------------
00116 !
00117       RETURN
00118       END

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