testQuaternion_prg Program

  1. testQuaternion.f90
  2. testQuaternion_prg
program~~testquaternion_prg~~UsesGraph program~testquaternion_prg testQuaternion_prg module~kinds_mod kinds_mod module~kinds_mod->program~testquaternion_prg module~quaternion_mod quaternion_mod module~kinds_mod->module~quaternion_mod module~tensor_mod tensor_mod module~kinds_mod->module~tensor_mod module~quaternion_mod->program~testquaternion_prg module~tensor_mod->module~quaternion_mod
Help


Test program for quaternion_mod

Calls

program~~testquaternion_prg~~CallsGraph program~testquaternion_prg testQuaternion_prg proc~testbasic testBasic program~testquaternion_prg->proc~testbasic proc~vector vector proc~testbasic->proc~vector proc~scaler scaler proc~testbasic->proc~scaler
Help

Subroutines

Source Code

testQuaternion_prg

Subroutines

subroutine testBasic()

Arguments

None

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 Programs