assve1i8.f

Go to the documentation of this file.

!                   *******************
                    SUBROUTINE assve1i8
!                   *******************
!
     &(ix, ikle,iw,nelem)
!
!***********************************************************************
! BIEF   V7P0                                   13/01/2014
!***********************************************************************
!
!brief    Assembly loop for a vector of I8 integers.
!
!history  J-M HERVOUET (EDF R&D, LNHE)
!+        13/01/2014
!+        V7P0
!+   First version, inspired of assve1 (but masking not treated here)
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| IKLE           |-->| CONNECTIVITY TABLE
!| NELEM          |-->| NUMBER OF ELEMENTS IN THE MESH
!| IW             |-->| WORK ARRAY WITH A NON ASSEMBLED FORM OF THE
!|                |   | RESULT
!| IX             |<->| ASSEMBLED VECTOR
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER(KIND=K8), INTENT(INOUT) :: IX(*)
      INTEGER         , INTENT(IN)    :: NELEM
      INTEGER         , INTENT(IN)    :: IKLE(nelem)
      INTEGER(KIND=K8), INTENT(IN)    :: IW(nelem)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER IELEM
!
!-----------------------------------------------------------------------
!
      DO ielem = 1 , nelem
        ix(ikle(ielem)) = ix(ikle(ielem)) + iw(ielem)
      ENDDO
!
!-----------------------------------------------------------------------
!
      RETURN
      END