Commit babbf4e8 authored by ulrich_y's avatar ulrich_y

Filled test blackout

parent 77a919ae
......@@ -104,7 +104,7 @@ CONTAINS
end subroutine test_one_flat
subroutine do_GPL_tests()
complex(kind=prec) :: ref
complex(kind=prec) :: ref, res
real(kind=prec) :: z, xchen
print*, 'doing GPL tests...'
......@@ -191,6 +191,51 @@ CONTAINS
ref = (-0.012539108315054982, -0.015414250168437678)
call test_one_flat(cmplx([0.01, 199.99499987499374, 0.01, 1.]),ref,'4.11')
! Increase test coverage
ref = (-1.2039728043259361, pi)
call test_one_flat(cmplx([0., -0.3]),ref,'5.1')
ref = (-0.5394048306859651, 1.0303768265243125)
call test_one_flat([(0.,0.), (0.3, 0.5)],ref,'5.2')
ref = (0.00003794895846844715,0.)
print*, ' ', 'testing GPL ', '5.3', ' ...'
res = G((/100., 100., 1., 0., 1./))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.4', ' ...'
res = G((/100,100,1,0,1/))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.5', ' ...'
res = G_superflatn(toinum((/100,100,1,0,1/)), 5)
call check(res,ref)
print*, ' ', 'testing GPL ', '5.6', ' ...'
res = G((/100.,100.,1.,0./), 1.)
call check(res,ref)
print*, ' ', 'testing GPL ', '5.7', ' ...'
res = G(cmplx((/100.,100.,1.,0./)), cmplx(1.))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.8', ' ...'
res = G( (/1,1,1,1/) , (/ 100., 100., 1., 0. /), 1.)
call check(res,ref)
!ref = cmplx(0.01592795952537145)
ref = cmplx(0.048503553116818435, - 2.8232688511893116)
print*, ' ', 'testing GPL ', '5.9', ' ...'
res = G( (/ 3, 2 /), toinum((/ 1.3, 1.1 /)), toinum(4.) )
call check(res,ref)
print*, ' ', 'testing GPL ', '5.10', ' ...'
res = G( (/ 3, 2 /), (/ 1.3, 1.1 /), 4. )
call check(res,ref)
print*, ' ', 'testing GPL ', '5.11', ' ...'
res = G( (/ 3, 2 /), cmplx((/ 1.3, 1.1 /)), cmplx(4.) )
call check(res,ref)
end subroutine do_GPL_tests
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment