s6ckgeo3.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	s6ckgeo3 (sig, vol, pxc1, pxc2, pxc3, pxc4, pyc1, pyc2, pyc3, pyc4, k11, k12, k13, k14, k15, k16, k22, k23, k24, k25, k26, k33, k34, k35, k36, k44, k45, k46, k55, k56, k66, nel)

Function/Subroutine Documentation

s6ckgeo3()

subroutine s6ckgeo3	(		sig,
			vol,
			pxc1,
			pxc2,
			pxc3,
			pxc4,
			pyc1,
			pyc2,
			pyc3,
			pyc4,
			k11,
			k12,
			k13,
			k14,
			k15,
			k16,
			k22,
			k23,
			k24,
			k25,
			k26,
			k33,
			k34,
			k35,
			k36,
			k44,
			k45,
			k46,
			k55,
			k56,
			k66,
		integer	nel )

Definition at line 30 of file s6ckgeo3.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 NEL
C     REAL
      my_real
     .   pxc1(*), pxc2(*), pxc3(*), pxc4(*),  
     .   pyc1(*), pyc2(*), pyc3(*), pyc4(*),  
     .   k11(9,*),k12(9,*),k13(9,*),k14(9,*) ,k15(9,*)   ,
     .   k16(9,*),k22(9,*) ,k23(9,*)  ,k24(9,*),k25(9,*),
     .   k26(9,*),k33(9,*),k34(9,*),k35(9,*),k36(9,*) ,
     .   k44(9,*),k45(9,*),k46(9,*) ,k55(9,*),k56(9,*),
     .   k66(9,*),vol(*),sig(nel,6)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J
C     REAL
      my_real
     .   fxx(mvsiz),fyy(mvsiz),fxy(mvsiz),
     .   px1(mvsiz),px2(mvsiz),px3(mvsiz),
     .   px4(mvsiz),px5(mvsiz),px6(mvsiz),
     .   py1(mvsiz),py2(mvsiz),py3(mvsiz),
     .   py4(mvsiz),py5(mvsiz),py6(mvsiz)
C-----------------------------------------------
       DO i=1,nel
        fxx(i)=sig(i,1)*vol(i)
        fyy(i)=sig(i,2)*vol(i)
        fxy(i)=sig(i,4)*vol(i)
       ENDDO
C ----------PXI,PYI,PZI-------------------------------------
      DO i=1,nel
       px1(i) = pxc1(i)-pxc4(i) 
       px2(i) = pxc2(i)-pxc4(i) 
       px3(i) = pxc3(i)-pxc4(i) 
       px4(i) = pxc1(i)+pxc4(i) 
       px5(i) = pxc2(i)+pxc4(i) 
       px6(i) = pxc3(i)+pxc4(i) 
      ENDDO
      DO i=1,nel
       py1(i) = pyc1(i)-pyc4(i) 
       py2(i) = pyc2(i)-pyc4(i)
       py3(i) = pyc3(i)-pyc4(i) 
       py4(i) = pyc1(i)+pyc4(i) 
       py5(i) = pyc2(i)+pyc4(i) 
       py6(i) = pyc3(i)+pyc4(i) 
      ENDDO
      CALL s6ckeh3(1,nel,
     .   px1, py1 ,px1, py1, fxx, fyy ,fxy,k11)
      CALL s6ckeh3(1,nel,
     .   px1, py1 ,px2, py2, fxx, fyy ,fxy,k12)
      CALL s6ckeh3(1,nel,
     .   px1, py1 ,px3, py3, fxx, fyy ,fxy,k13)
      CALL s6ckeh3(1,nel,
     .   px1, py1 ,px4, py4, fxx, fyy ,fxy,k14)
      CALL s6ckeh3(1,nel,
     .   px1, py1 ,px5, py5, fxx, fyy ,fxy,k15)
      CALL s6ckeh3(1,nel,
     .   px1, py1 ,px6, py6, fxx, fyy ,fxy,k16)
      CALL s6ckeh3(1,nel,
     .   px2, py2 ,px2, py2, fxx, fyy ,fxy,k22)
      CALL s6ckeh3(1,nel,
     .   px2, py2 ,px3, py3, fxx, fyy ,fxy,k23)
      CALL s6ckeh3(1,nel,
     .   px2, py2 ,px4, py4, fxx, fyy ,fxy,k24)
      CALL s6ckeh3(1,nel,
     .   px2, py2 ,px5, py5, fxx, fyy ,fxy,k25)
      CALL s6ckeh3(1,nel,
     .   px2, py2 ,px6, py6, fxx, fyy ,fxy,k26)
      CALL s6ckeh3(1,nel,
     .   px3, py3 ,px3, py3, fxx, fyy ,fxy,k33)
      CALL s6ckeh3(1,nel,
     .   px3, py3 ,px4, py4, fxx, fyy ,fxy,k34)
      CALL s6ckeh3(1,nel,
     .   px3, py3 ,px5, py5, fxx, fyy ,fxy,k35)
      CALL s6ckeh3(1,nel,
     .   px3, py3 ,px6, py6, fxx, fyy ,fxy,k36)
      CALL s6ckeh3(1,nel,
     .   px4, py4 ,px4, py4, fxx, fyy ,fxy,k44)
      CALL s6ckeh3(1,nel,
     .   px4, py4 ,px5, py5, fxx, fyy ,fxy,k45)
      CALL s6ckeh3(1,nel,
     .   px4, py4 ,px6, py6, fxx, fyy ,fxy,k46)
      CALL s6ckeh3(1,nel,
     .   px5, py5 ,px5, py5, fxx, fyy ,fxy,k55)
      CALL s6ckeh3(1,nel,
     .   px5, py5 ,px6, py6, fxx, fyy ,fxy,k56)
      CALL s6ckeh3(1,nel,
     .   px6, py6 ,px6, py6, fxx, fyy ,fxy,k66)
C
      RETURN