roto.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	roto (jft, jlt, sig, dir, nel)
subroutine	rotov (jft, jlt, sig, dir, nel)
subroutine	roto_sig (jft, jlt, sig, dir, nel)

Function/Subroutine Documentation

roto()

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

Definition at line 30 of file roto.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

roto_sig()

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

Definition at line 125 of file roto.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

rotov()

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

Definition at line 76 of file roto.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