223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

tests now operational

This commit is contained in:
Martin Diehl 2019-09-23 00:11:45 -07:00
parent 285dab4451
commit da15ff85f3
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/quaternions.f90
View File

@ -35,6 +35,7 @@
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
module quaternions module quaternions
use prec use prec
use IO
implicit none implicit none
public public
@ -486,33 +487,33 @@ subroutine unitTest
q = qu q = qu
q_2 = q + q q_2 = q + q
write(6,*) q_2%asArray() == 2.0_pReal*qu if(any(q_2%asArray() /= 2.0_pReal*qu)) call IO_error(401,ext_msg='add__')
q_2 = q - q q_2 = q - q
write(6,*) q_2%asArray() == [0.0_pReal,0.0_pReal,0.0_pReal,0.0_pReal] if(any(q_2%asArray() /= [0.0_pReal,0.0_pReal,0.0_pReal,0.0_pReal])) &
call IO_error(401,ext_msg='sub__')
q_2 = q * 5.0_preal q_2 = q * 5.0_preal
write(6,*) q_2%asArray() == 5.0_pReal*qu if(any(q_2%asArray() /= 5.0_pReal*qu)) call IO_error(401,ext_msg='mul__')
q_2 = q / 0.5_preal q_2 = q / 0.5_preal
write(6,*) q_2%asArray() == 2.0_pReal*qu if(any(q_2%asArray() /= 2.0_pReal*qu)) call IO_error(401,ext_msg='div__')
q_2 = q q_2 = q
write(6,*) q_2 == q if(q_2 /= q) call IO_error(401,ext_msg='eq__')
write(6,*) q%asArray() == qu if(any(q%asArray() /= qu)) call IO_error(401,ext_msg='eq__')
write(6,*) q%real() == qu(1) if(q%real() /= qu(1)) call IO_error(401,ext_msg='real()')
write(6,*) q%aimag() == qu(2:4) if(any(q%aimag() /= qu(2:4))) call IO_error(401,ext_msg='aimag()')
q_2 = q%homomorphed() q_2 = q%homomorphed()
write(6,*) q == q_2*(-1.0_pReal) if(q /= q_2*(-1.0_pReal)) call IO_error(401,ext_msg='homomorphed')
write(6,*) q_2%real() == qu(1)*(-1.0_pReal) if(q_2%real() /= qu(1)*(-1.0_pReal)) call IO_error(401,ext_msg='homomorphed/real')
write(6,*) q_2%aimag() == qu(2:4)*(-1.0_pReal) if(any(q_2%aimag() /= qu(2:4)*(-1.0_pReal))) call IO_error(401,ext_msg='homomorphed/aimag')
q_2 = conjg(q) q_2 = conjg(q)
write(6,*) q_2%real() == q%real() if(q_2%real() /= q%real()) call IO_error(401,ext_msg='conjg/real')
write(6,*) q_2%aimag() == q%aimag()*(-1.0_pReal) if(any(q_2%aimag() /= q%aimag()*(-1.0_pReal))) call IO_error(401,ext_msg='conjg/aimag')
end subroutine unitTest end subroutine unitTest