corrected header for math_qRot

This commit is contained in:
Christoph Kords 2010-09-30 08:46:58 +00:00
parent b259fbd9c6
commit cb4b4afc88
1 changed files with 2 additions and 2 deletions

View File

@ -431,7 +431,7 @@ real(pReal), dimension(4,36), parameter :: math_symOperations = &
!**************************************************************************
! matrix multiplication 33x33 = 3x3
!**************************************************************************<EFBFBD>
!**************************************************************************
pure function math_mul33x33(A,B)
use prec, only: pReal, pInt
@ -659,7 +659,7 @@ real(pReal), dimension(4,36), parameter :: math_symOperations = &
!**************************************************************************
! quaternion inversion
! action of a quaternion on a vector (rotate vector v with Q)
!**************************************************************************
pure function math_qRot(Q,v)