asspar_sub_poff.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	asspar_sub_poff (a, nodft, nodlt, posi, sizea, nthread)

Function/Subroutine Documentation

asspar_sub_poff()

subroutine asspar_sub_poff	(		a,
		integer	nodft,
		integer	nodlt,
		integer, dimension(*)	posi,
		integer	sizea,
		integer	nthread )

Definition at line 28 of file asspar_sub_poff.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 NODFT,NODLT,POSI(*),NTHREAD
      INTEGER SIZEA
      my_real 
     .   a(sizea,nthread)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER K,NN,NPOS,NDDL,J
C
      ! Loop over threads
      DO k = 2,nthread
        DO nn = nodft, nodlt                              ! Loop over the nodes of the subset
          npos = posi(nn)                                 !   Position of its first d.o.f in A
          nddl = posi(nn+1) - npos                        !   Number of additional degrees of freedom
          DO j = 1,nddl                                   !   Loop over additional d.o.fs
            a(npos+j-1,1) = a(npos+j-1,1) + a(npos+j-1,k) !     Assembling acceleration on threads
            a(npos+j-1,k) = zero                          !     Setting to zero the acceleration on the secnd thread
          ENDDO
        ENDDO
      ENDDO
C
      RETURN