c3mcum3.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	c3mcum3 (jft, jlt, m, m11, m12, m13, m21, m22, m23, m31, m32, m33, e1x, e1y, e1z, e2x, e2y, e2z, e3x, e3y, e3z)
subroutine	c3mzcum3 (jft, jlt, mlz, e3x, e3y, e3z, m11, m12, m13, m21, m22, m23, m31, m32, m33)

Function/Subroutine Documentation

c3mcum3()

subroutine c3mcum3	(	integer	jft,
		integer	jlt,
			m,
			m11,
			m12,
			m13,
			m21,
			m22,
			m23,
			m31,
			m32,
			m33,
			e1x,
			e1y,
			e1z,
			e2x,
			e2y,
			e2z,
			e3x,
			e3y,
			e3z )

Definition at line 29 of file c3mcum3.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
      my_real m(3,*), 
     .     m11(mvsiz), m12(mvsiz), m13(mvsiz),
     .     m21(mvsiz), m22(mvsiz), m23(mvsiz),
     .     m31(mvsiz), m32(mvsiz), m33(mvsiz)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      my_real g11t, g21t, g12t, g22t, g13t, g23t
      my_real e1x(mvsiz), e1y(mvsiz), e1z(mvsiz),
     .        e2x(mvsiz), e2y(mvsiz), e2z(mvsiz),
     .        e3x(mvsiz), e3y(mvsiz), e3z(mvsiz)
C=======================================================================
      DO i=jft,jlt
        g11t  =m11(i)
        g21t  =m21(i)
        m11(i)=e1x(i)*g11t+e2x(i)*g21t
        m21(i)=e1y(i)*g11t+e2y(i)*g21t
        m31(i)=e1z(i)*g11t+e2z(i)*g21t
        g12t  =m12(i)
        g22t  =m22(i)
        m12(i)=e1x(i)*g12t+e2x(i)*g22t
        m22(i)=e1y(i)*g12t+e2y(i)*g22t
        m32(i)=e1z(i)*g12t+e2z(i)*g22t
        g13t  =m13(i)
        g23t  =m23(i)
        m13(i)=e1x(i)*g13t+e2x(i)*g23t
        m23(i)=e1y(i)*g13t+e2y(i)*g23t
        m33(i)=e1z(i)*g13t+e2z(i)*g23t
      ENDDO
C
      RETURN

c3mzcum3()

subroutine c3mzcum3	(	integer	jft,
		integer	jlt,
			mlz,
			e3x,
			e3y,
			e3z,
			m11,
			m12,
			m13,
			m21,
			m22,
			m23,
			m31,
			m32,
			m33 )

Definition at line 84 of file c3mcum3.F.

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
C        TRANSMET LES FORCES INTERNES LOCALES VF,VM ---> GLOBALES FIJ ,MIJ
C        ENTREES : 
C        SORTIES : FIJ,MIJ
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
#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
      my_real 
     .   e3x(*),e3y(*),e3z(*),mlz(mvsiz,3),
     .   m11(*), m12(*), m13(*), 
     .   m21(*), m22(*), m23(*), 
     .   m31(*), m32(*), m33(*)
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
      INTEGER  K
C=======================================================================
      DO k=jft,jlt
         m11(k)= m11(k)+ e3x(k)*mlz(k,1)
         m21(k)= m21(k)+ e3y(k)*mlz(k,1)
         m31(k)= m31(k)+ e3z(k)*mlz(k,1)
C
         m12(k)= m12(k)+ e3x(k)*mlz(k,2)
         m22(k)= m22(k)+ e3y(k)*mlz(k,2)
         m32(k)= m32(k)+ e3z(k)*mlz(k,2)
C
         m13(k)= m13(k)+ e3x(k)*mlz(k,3)
         m23(k)= m23(k)+ e3y(k)*mlz(k,3)
         m33(k)= m33(k)+ e3z(k)*mlz(k,3)
      ENDDO
c-----------
      RETURN