addmast10.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	addmast10 (icnds10, ms)

Function/Subroutine Documentation

addmast10()

subroutine addmast10	(	integer, dimension(3,ns10e), intent(in)	icnds10,
		intent(inout)	ms )

Definition at line 28 of file addmast10.F.

C=======================================================================
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, DIMENSION(3,NS10E) ,INTENT(IN):: ICNDS10
      my_real, DIMENSION(NUMNOD)  ,INTENT(INOUT):: ms
C     REAL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,ND,N1,N2
C     REAL
      my_real
     .   facirot,masd
C-----------------------------------------------
        facirot = nine + third
        DO i=1,ns10e
          nd = icnds10(1,i)
          n1 = icnds10(2,i)
          n2 = icnds10(3,i)
          masd = half*ms(nd)
          ms(n1) = ms(n1) + masd
          ms(n2) = ms(n2) + masd
          ms(nd) = ms(nd) *facirot
        END DO
C=======================================================================
      RETURN