inepri.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	inepri (xi, bm)

Function/Subroutine Documentation

inepri()

subroutine inepri	(		xi,
			bm )

Definition at line 32 of file inepri.F.

C------------------------------------
C     CALCUL INERTIES ET REPERE PRINCIPAL
C------------------------------------
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-----------------------------------------------
      my_real xi(3), bm(3,3)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J
      my_real xt(3,3), vp(3,3)
C-----------------------------------------------
      xt(1,1)=bm(1,1)
      xt(2,1)=bm(1,2)
      xt(3,1)=bm(2,2)
      xt(1,2)=bm(1,3)
      xt(2,2)=bm(2,3)
      xt(3,2)=bm(3,3)
      xt(1,3)=bm(1,3)
      xt(2,3)=bm(2,3)
      xt(3,3)=bm(3,3)
      DO i=1,3
        DO j=1,3
          vp(i,j)=0.
        ENDDO
      ENDDO
      CALL valpr(xt,vp,3,0)
      xi(1)=xt(1,1)
      xi(2)=xt(3,1)
      xi(3)=xt(3,2)
      DO i=1,3
        DO j=1,3
          bm(i,j)=vp(i,j)
        ENDDO
      ENDDO
      RETURN