q4kerot2.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	q4kerot2 (r22, r32, r23, r33, k11, k12, k13, k14, k22, k23, k24, k33, k34, k44, nel)

Function/Subroutine Documentation

q4kerot2()

subroutine q4kerot2	(		r22,
			r32,
			r23,
			r33,
			k11,
			k12,
			k13,
			k14,
			k22,
			k23,
			k24,
			k33,
			k34,
			k44,
		integer, intent(in)	nel )

Definition at line 30 of file q4kerot2.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   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      my_real
     .    r22(*), r23(*), r32(*), r33(*), 
     .    k11(2,2,*), k12(2,2,*), k13(2,2,*), k14(2,2,*), k22(2,2,*), 
     .    k23(2,2,*), k24(2,2,*), k33(2,2,*), k34(2,2,*), k44(2,2,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, ISYM
      my_real
     .   q(2,2,mvsiz)
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
      DO i=1,nel
        q(1,1,i)=r22(i)
        q(1,2,i)=r23(i)
        q(2,1,i)=r32(i)
        q(2,2,i)=r33(i)
      ENDDO
C
      isym = 1
      CALL systran2(1, nel, q, k11, isym)
      CALL systran2(1, nel, q, k22, isym)
      CALL systran2(1, nel, q, k33, isym)
      CALL systran2(1, nel, q, k44, isym)
      isym = 0
      CALL systran2(1, nel, q, k12, isym)
      CALL systran2(1, nel, q, k13, isym)
      CALL systran2(1, nel, q, k14, isym)
      CALL systran2(1, nel, q, k23, isym)
      CALL systran2(1, nel, q, k24, isym)
      CALL systran2(1, nel, q, k34, isym)
C
      RETURN