assve1i8.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\assve1i8.f
00002 !
00039                      SUBROUTINE ASSVE1I8
00040 !                    *******************
00041 !
00042      &(IX, IKLE,IW,NELEM)
00043 !
00044 !***********************************************************************
00045 ! BIEF   V7P0                                   13/01/2014
00046 !***********************************************************************
00047 !
00048 !
00049 !
00050 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00051 !| IKLE           |-->| CONNECTIVITY TABLE
00052 !| NELEM          |-->| NUMBER OF ELEMENTS IN THE MESH
00053 !| IW             |-->| WORK ARRAY WITH A NON ASSEMBLED FORM OF THE
00054 !|                |   | RESULT
00055 !| IX             |<->| ASSEMBLED VECTOR
00056 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00057 !
00058       USE DECLARATIONS_SPECIAL
00059 !
00060       IMPLICIT NONE
00061       INTEGER LNG,LU
00062       COMMON/INFO/LNG,LU
00063 !
00064 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00065 !
00066       INTEGER(KIND=K8), INTENT(INOUT) :: IX(*)
00067       INTEGER         , INTENT(IN)    :: NELEM
00068       INTEGER         , INTENT(IN)    :: IKLE(NELEM)
00069       INTEGER(KIND=K8), INTENT(IN)    :: IW(NELEM)
00070 !
00071 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00072 !
00073       INTEGER IELEM
00074 !
00075 !-----------------------------------------------------------------------
00076 !
00077       DO IELEM = 1 , NELEM
00078         IX(IKLE(IELEM)) = IX(IKLE(IELEM)) + IW(IELEM)
00079       ENDDO
00080 !
00081 !-----------------------------------------------------------------------
00082 !
00083       RETURN
00084       END

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