m24anim.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	m24anim (dam, ang, damglo, nel, r11, r12, r13, r21, r22, r23, r31, r32, r33)

Function/Subroutine Documentation

m24anim()

subroutine m24anim	(		dam,
			ang,
			damglo,
		integer	nel,
		intent(in)	r11,
		intent(in)	r12,
		intent(in)	r13,
		intent(in)	r21,
		intent(in)	r22,
		intent(in)	r23,
		intent(in)	r31,
		intent(in)	r32,
		intent(in)	r33 )

Definition at line 32 of file m24anim.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 NEL
      my_real
     .   damglo(nel,6), ang(nel,6), dam(nel,3)
      my_real, DIMENSION(NEL), INTENT(IN) :: r11,r12,r13,r21,r22,r23,r31,r32,r33
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C=======================================================================
      DO i=1,nel
         damglo(i,1)=dam(i,1)
         damglo(i,2)=dam(i,2)
         damglo(i,3)=dam(i,3)
         damglo(i,4)=zero
         damglo(i,5)=zero
         damglo(i,6)=zero
      ENDDO
c
      CALL udam24(damglo,ang,nel)
c
      CALL aglo24(nel,damglo,r11,r12,r13,
     .            r21,r22,r23,r31,r32,r33)
c-----------
      RETURN