19 lines
340 B
Fortran
19 lines
340 B
Fortran
!
|
|
! TESTBED FOR GENPLOTTING90
|
|
!
|
|
! this crapware is released by tTh under the
|
|
! DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
|
|
!
|
|
|
|
program testbed
|
|
use genplotting
|
|
use genp_tests
|
|
implicit none
|
|
|
|
call genp_init(0, "foo.scratch")
|
|
call genp_test_rotation()
|
|
! call genp_plot_axes(5.1)
|
|
call genp_end(0)
|
|
|
|
end program
|