10
1
mirror of https://github.com/pfloos/quack synced 2024-10-31 03:03:49 +01:00
QuAcK/src/test/run_test.f90

67 lines
1.5 KiB
Fortran
Raw Normal View History

2023-11-11 16:16:57 +01:00
subroutine run_test(doRtest,doUtest,doGtest)
implicit none
! Input variables
logical,intent(in) :: doRtest
logical,intent(in) :: doUtest
logical,intent(in) :: doGtest
! Local variables
! Output variables
if(doRtest) then
write(*,*) '****************************************'
write(*,*) '* Testing Restricted Branch of QuAcK...*'
write(*,*) '****************************************'
write(*,*)
call check_test_value('R')
write(*,*)
write(*,*) '**************************'
write(*,*) '* End of Restricted Test *'
write(*,*) '**************************'
write(*,*)
end if
if(doUtest) then
write(*,*) '******************************************'
write(*,*) '* Testing Unrestricted Branch of QuAcK...*'
write(*,*) '******************************************'
write(*,*)
call check_test_value('U')
write(*,*)
write(*,*) '****************************'
write(*,*) '* End of Unrestricted Test *'
write(*,*) '****************************'
write(*,*)
end if
if(doGtest) then
write(*,*) '*****************************************'
write(*,*) '* Testing Generalized Branch of QuAcK...*'
write(*,*) '*****************************************'
write(*,*)
call check_test_value('G')
write(*,*)
write(*,*) '***************************'
write(*,*) '* End of Generalized Test *'
write(*,*) '***************************'
write(*,*)
end if
end subroutine