c_dampvrel.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	c_dampvrel (dampr, igrnod, proc, idamp_vrel, ndamp_vrel_l, ngrnod, ndamp, nrdamp)

Function/Subroutine Documentation

c_dampvrel()

subroutine c_dampvrel	(	dimension(nrdamp,ndamp), intent(in)	dampr,
		type (group_), dimension(ngrnod), intent(in)	igrnod,
		integer, intent(in)	proc,
		integer, dimension(ndamp), intent(inout)	idamp_vrel,
		integer, intent(inout)	ndamp_vrel_l,
		integer, intent(in)	ngrnod,
		integer, intent(in)	ndamp,
		integer, intent(in)	nrdamp )

Definition at line 31 of file c_dampvrel.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE groupdef_mod     
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, INTENT(IN) :: PROC,NGRNOD,NDAMP,NRDAMP
      INTEGER, INTENT(INOUT) :: NDAMP_VREL_L,IDAMP_VREL(NDAMP)
      my_real, INTENT(IN) :: dampr(nrdamp,ndamp)
      TYPE (GROUP_),DIMENSION(NGRNOD),INTENT(IN) :: IGRNOD
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
      INTEGER  NLOCAL
      EXTERNAL nlocal       
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,IGR,CPT
C----------------------------------------------- 
C
      DO i=1,ndamp
        IF (nint(dampr(21,i)) == 2) THEN
          igr   = nint(dampr(2,i))
          cpt = 0
          DO j = 1,igrnod(igr)%NENTITY
            IF (nlocal(igrnod(igr)%ENTITY(j),proc)==1) THEN
               cpt = cpt + 1
            ENDIF        
          ENDDO
          IF (cpt > 0) THEN
            ndamp_vrel_l = ndamp_vrel_l +1  
            idamp_vrel(i) = ndamp_vrel_l
          ENDIF  
        ENDIF  
      ENDDO  
C                
! --------------------------------------
      RETURN