39 lines
975 B
Fortran
39 lines
975 B
Fortran
!
|
|
! MODULE FOR TESTING THE GENPLOTTING MODULE
|
|
!
|
|
! this crapware is released by tTh under the
|
|
! DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
|
|
!
|
|
! new Sun May 17 11:21:39 AM UTC 2026
|
|
|
|
module genp_tests
|
|
use genplotting
|
|
implicit none
|
|
contains
|
|
! ---------------------------------------------------------
|
|
subroutine genp_test_rotation()
|
|
|
|
real :: mat(3, 3)
|
|
real :: pta(3), ptb(3)
|
|
integer :: pass, i, j
|
|
|
|
write(0, '("*** TEST ROTATION ***")' )
|
|
do pass=1, 90
|
|
call genp_set_rotation (real(pass)*0.10)
|
|
write(0, *) " * the matrix was : "
|
|
call genp_get_rot_matrix(mat)
|
|
! display the rotation matrix
|
|
do i=1, 3
|
|
do j=1, 3
|
|
write (0, '(" ", F8.5)', advance='no') mat(i,j)
|
|
end do
|
|
write(0, *)
|
|
end do
|
|
|
|
end do ! pass
|
|
|
|
end subroutine
|
|
! ---------------------------------------------------------
|
|
! ---------------------------------------------------------
|
|
end module
|