uroto_tens2d.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	uroto_tens2d (nel, sig, dir)

Function/Subroutine Documentation

uroto_tens2d()

subroutine uroto_tens2d	(	integer, intent(in)	nel,
		intent(inout)	sig,
		intent(in)	dir )

Definition at line 29 of file uroto_tens2d.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 ,INTENT(IN) :: NEL
      my_real ,DIMENSION(NEL,2) ,INTENT(IN)    :: dir
      my_real ,DIMENSION(NEL,3) ,INTENT(INOUT) :: sig
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: I
      my_real :: d11,d22,d12,s1,s2,s3
C-----------------------------------------------
      DO i = 1,nel
        d11 = dir(i,1)**2
        d22 = dir(i,2)**2
        d12 = dir(i,1)*dir(i,2)
        s1  = d11*sig(i,1) + d22*sig(i,2) - two*d12*sig(i,3)
        s2  = d22*sig(i,1) + d11*sig(i,2) + two*d12*sig(i,3)
        s3  = d12*(sig(i,1)-sig(i,2)) + (d11-d22)*sig(i,3)
c        S4 = DIR(I,2)*SIG(I,5)+DIR(I,1)*SIG(I,4)
c        S5 = DIR(I,1)*SIG(I,5)-DIR(I,2)*SIG(I,4)
        sig(i,1)=s1
        sig(i,2)=s2
        sig(i,3)=s3
c        SIG(I,4)=S4
c        SIG(I,5)=S5
      ENDDO
c-----------
      RETURN