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

preparing more tests

This commit is contained in:
Martin Diehl 2019-09-22 22:08:19 -07:00
parent 0655ef2c90
commit bbb2441cc2
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/quaternions.f90
View File

@ -484,6 +484,21 @@ subroutine unitTest
call random_number(qu)
q = qu
q_2 = q + q
write(6,*) q_2%asArray() == 2.0_pReal*qu
q_2 = q - q
write(6,*) q_2%asArray() == [0.0_pReal,0.0_pReal,0.0_pReal,0.0_pReal]
q_2 = q * 5.0_preal
write(6,*) q_2%asArray() == 5.0_pReal*qu
q_2 = q / 0.5_preal
write(6,*) q_2%asArray() == 2.0_pReal*qu
q_2 = q
write(6,*) q_2 == q
write(6,*) q%asArray() == qu
write(6,*) q%real() == qu(1)
@ -498,6 +513,7 @@ subroutine unitTest
q_2 = conjg(q)
write(6,*) q_2%real() == q%real()
write(6,*) q_2%aimag() == q%aimag()*(-1.0_pReal)
end subroutine unitTest