asspar_sub.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	asspar_sub (a, fsky, addcne, nodft_2, nodlt_2, posi, sizesub, sizea)

Function/Subroutine Documentation

asspar_sub()

subroutine asspar_sub	(		a,
			fsky,
		integer, dimension(*)	addcne,
		integer	nodft_2,
		integer	nodlt_2,
		integer, dimension(*)	posi,
		integer	sizesub,
		integer	sizea )

Definition at line 28 of file asspar_sub.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C----------------------------------------------
      INTEGER ADDCNE(*),NODFT_2,NODLT_2,POSI(*)
      INTEGER SIZESUB,SIZEA
      my_real 
     .   a(sizea),fsky(addcne(sizesub+1),*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER K,N,NCT,NC,NPOS,NDDL,J
C
      ! Loop over the current nodes
      DO n = nodft_2, nodlt_2
        nct  = addcne(n)-1                          ! First element attached to the node in FSKY
        nc   = addcne(n+1)-addcne(n)                ! Number of elements attached to the node
        npos = posi(n)                              ! Position of its first d.o.f in A
        nddl = posi(n+1) - npos                     ! Number of additional d.o.fs
        
        DO k = nct+1, nct+nc                        ! Loop over attached elements
          DO j = 1,nddl                             !   Loop over additional d.o.fs
            a(npos+j-1) = a(npos+j-1) + fsky(k,j)
            fsky(k,j) = zero
          ENDDO
        ENDDO
      ENDDO
C
      RETURN