testQuaternion.f90 Source File

  1. testQuaternion.f90

This File Depends On

sourcefile~~testquaternion.f90~~EfferentGraph sourcefile~testquaternion.f90 testQuaternion.f90 sourcefile~kinds.f90 kinds.f90 sourcefile~kinds.f90->sourcefile~testquaternion.f90 sourcefile~quaternion.f90 quaternion.f90 sourcefile~kinds.f90->sourcefile~quaternion.f90 sourcefile~tensor.f90 tensor.f90 sourcefile~kinds.f90->sourcefile~tensor.f90 sourcefile~quaternion.f90->sourcefile~testquaternion.f90 sourcefile~tensor.f90->sourcefile~quaternion.f90
Help

Programs

Source Code

testQuaternion.f90

Source Code

program testQuaternion_prg
	!! Test program for quaternion_mod
	!! @todo
	!! Add real tests
	use kinds_mod
	use quaternion_mod
	implicit none
	
	call testBasic
	
contains

	subroutine testBasic
		type(quat_t)::u,v,w
		
		u%s = 1.0_wp
		v%s = 2.0_wp
		
		w = u*v
		
		write(*,*) scaler(w),vector(w)
		write(*,*) w%getRotationMatrix()
	end subroutine testBasic

end program testQuaternion_prg

All Source Files