uroto.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	uroto (jft, jlt, sig, dir, nel)
subroutine	urotov (jft, jlt, sig, dir, nel)
subroutine	uroto_sig (jft, jlt, sig, dir, nel)

Function/Subroutine Documentation

uroto()

subroutine uroto	(	integer	jft,
		integer	jlt,
			sig,
			dir,
		integer	nel )

Definition at line 28 of file uroto.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 JFT, JLT,NEL
      my_real
     .   sig(5,*), dir(nel,2)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      my_real s1, s2, s3, s4, s5
C-----------------------------------------------
      DO i=jft,jlt
       s1 = dir(i,1)*dir(i,1)*sig(1,i)
     .    + dir(i,2)*dir(i,2)*sig(2,i)
     .-two*dir(i,1)*dir(i,2)*sig(3,i)
       s2 = dir(i,2)*dir(i,2)*sig(1,i)
     .    + dir(i,1)*dir(i,1)*sig(2,i)
     .+two*dir(i,2)*dir(i,1)*sig(3,i)
       s3 = dir(i,1)*dir(i,2)*sig(1,i)
     .    - dir(i,2)*dir(i,1)*sig(2,i)
     .    +(dir(i,1)*dir(i,1)-dir(i,2)*dir(i,2))*sig(3,i)
       s4 = dir(i,2)*sig(5,i)+dir(i,1)*sig(4,i)
       s5 = dir(i,1)*sig(5,i)-dir(i,2)*sig(4,i)
       sig(1,i)=s1
       sig(2,i)=s2
       sig(3,i)=s3
       sig(4,i)=s4
       sig(5,i)=s5
      ENDDO
C
      RETURN

uroto_sig()

subroutine uroto_sig	(	integer	jft,
		integer	jlt,
			sig,
			dir,
		integer	nel )

Definition at line 124 of file uroto.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 JFT,JLT,NEL
      my_real sig(nel,5),dir(nel,2)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      my_real s1, s2, s3, s4, s5
C-----------------------------------------------
      DO i=jft,jlt
        s1 = dir(i,1)*dir(i,1)*sig(i,1)
     .     + dir(i,2)*dir(i,2)*sig(i,2)
     . -two*dir(i,1)*dir(i,2)*sig(i,3)
        s2 = dir(i,2)*dir(i,2)*sig(i,1)
     .     + dir(i,1)*dir(i,1)*sig(i,2)
     . +two*dir(i,2)*dir(i,1)*sig(i,3)
        s3 = dir(i,1)*dir(i,2)*sig(i,1)
     .     - dir(i,2)*dir(i,1)*sig(i,2)
     .     +(dir(i,1)*dir(i,1)-dir(i,2)*dir(i,2))*sig(i,3)
        s4 = dir(i,2)*sig(i,5)+dir(i,1)*sig(i,4)
        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
        sig(i,4)=s4
        sig(i,5)=s5
      ENDDO
C
      RETURN

urotov()

subroutine urotov	(	integer	jft,
		integer	jlt,
			sig,
			dir,
		integer	nel )

Definition at line 78 of file uroto.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER JFT, JLT,NEL
      my_real sig(mvsiz,5), dir(nel,2)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      my_real s1, s2, s3, s4, s5
C-----------------------------------------------
      DO i=jft,jlt
       s1 = dir(i,1)*dir(i,1)*sig(i,1)
     .    + dir(i,2)*dir(i,2)*sig(i,2)
     .-two*dir(i,1)*dir(i,2)*sig(i,3)
       s2 = dir(i,2)*dir(i,2)*sig(i,1)
     .    + dir(i,1)*dir(i,1)*sig(i,2)
     .+two*dir(i,2)*dir(i,1)*sig(i,3)
       s3 = dir(i,1)*dir(i,2)*sig(i,1)
     .    - dir(i,2)*dir(i,1)*sig(i,2)
     .    +(dir(i,1)*dir(i,1)-dir(i,2)*dir(i,2))*sig(i,3)
       s4 = dir(i,2)*sig(i,5)+dir(i,1)*sig(i,4)
       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
       sig(i,4)=s4
       sig(i,5)=s5
      ENDDO
C
      RETURN