Commit f9fc7ef9 authored by ulrich_y's avatar ulrich_y

Renamed tests

parent 489f35f4
......@@ -195,134 +195,135 @@ CONTAINS
ref = (-0.0125391083150538283259376060156453327489_prec,-0.0154142501684376766660782277248386124052_prec)
call test_one_flat(cmplx([z, (1+sqrt(1-z**2))/z, z, 1._prec],kind=prec),ref,'4.11')
! Increase test coverage
ref = (-1.203972804325935992622746217761838502953611_prec, pi)
call test_one_flat((/ (0._prec,0.), (-0.3_prec,0.) /),ref,'5.1')
call test_one_flat((/ (0._prec,0.), (-0.3_prec,0.) /),ref,'E.1')
ref = (-0.539404830685964989184608085018712655769250_prec, 1.0303768265243124637877433270311515319634364_prec)
call test_one_flat([(0._prec,0._prec), (0.3_prec, 0.5_prec)],ref,'5.2')
call test_one_flat([(0._prec,0._prec), (0.3_prec, 0.5_prec)],ref,'E.2')
ref = (3.79489584700899518570534417045601144619E-5_prec,0.)
print*, ' ', 'testing GPL ', '5.3', ' ...'
print*, ' ', 'testing GPL ', 'E.3', ' ...'
res = G((/100._prec, 100._prec, 1._prec, 0._prec, 1._prec/))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.4', ' ...'
print*, ' ', 'testing GPL ', 'E.4', ' ...'
res = G((/100,100,1,0,1/))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.5', ' ...'
print*, ' ', 'testing GPL ', 'E.5', ' ...'
res = G_superflatn(toinum((/100,100,1,0,1/)), 5)
call check(res,ref)
print*, ' ', 'testing GPL ', '5.6', ' ...'
print*, ' ', 'testing GPL ', 'E.6', ' ...'
res = G((/100._prec,100._prec,1._prec,0._prec/), 1._prec)
call check(res,ref)
print*, ' ', 'testing GPL ', '5.7', ' ...'
print*, ' ', 'testing GPL ', 'E.7', ' ...'
res = G((/(100._prec,0.),(100._prec,0.),(1._prec,0.),(0._prec,0.)/), (1._prec,0.))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.8', ' ...'
print*, ' ', 'testing GPL ', 'E.8', ' ...'
res = G( (/1,1,1,1/) , (/ 100._prec, 100._prec, 1._prec, 0._prec /), 1._prec)
call check(res,ref)
!ref = cmplx(0.01592795952537145)
ref = (0.0485035531168477720320998551314479928648_prec,-2.82326885118931135859594797186107474877_prec)
print*, ' ', 'testing GPL ', '5.9', ' ...'
print*, ' ', 'testing GPL ', 'E.9', ' ...'
res = G( (/ 3, 2 /), toinum((/ 1.3_prec, 1.1_prec /)), toinum(4._prec) )
call check(res,ref)
print*, ' ', 'testing GPL ', '5.10', ' ...'
print*, ' ', 'testing GPL ', 'E.10', ' ...'
res = G( (/ 3, 2 /), (/ 1.3_prec, 1.1_prec /), 4._prec )
call check(res,ref)
print*, ' ', 'testing GPL ', '5.11', ' ...'
print*, ' ', 'testing GPL ', 'E.11', ' ...'
res = G( (/ 3, 2 /), (/ (1.3_prec,0.), (1.1_prec,0.) /), (4._prec,0.) )
call check(res,ref)
print*, ' ', 'testing GPL ', '5.12', ' ...'
print*, ' ', 'testing GPL ', 'E.12', ' ...'
ref = (0.107961231635965271810236308594279564021882373573100109007684973130605145011141_prec, 0.)
res = G((/ 0._prec, 1.3_prec, 0._prec, 0._prec, 4._prec, 1.1_prec /))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.13', ' ...'
print*, ' ', 'testing GPL ', 'E.13', ' ...'
ref = (-1.229846637025798984989235266565630713100_prec,-1.05705870670612913651142424798975000765_prec)
res = G([inum(2._prec, +1), inum(7._prec, +1)], inum(5._prec, +1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.14', ' ...'
print*, ' ', 'testing GPL ', 'E.14', ' ...'
ref = (-1.229846637025798984989235266565630713100_prec,+1.05705870670612913651142424798975000765_prec)
res = G([inum(2._prec, -1), inum(7._prec, +1)], inum(5._prec, +1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.15', ' ...'
print*, ' ', 'testing GPL ', 'E.15', ' ...'
ref = (0.2982254208688088675254638762780704094718_prec,0.)
res = G([inum(2._prec, -1), inum(7._prec, +1)], inum(-5._prec, -1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.17', ' ...'
print*, ' ', 'testing GPL ', 'E.17', ' ...'
ref = (0.190800137777535619036913153766083992418_prec, 0.)
res = G((/ 6, 1, 1 /))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.18', ' ...'
print*, ' ', 'testing GPL ', 'E.18', ' ...'
ref = (0.058192342415778512650117048874978455691_prec, 0.)
res = G((/ 6, 1, -1 /))
call check(res,ref)
ref = cmplx(log(0.5_prec), pi,kind=prec)
print*, ' ', 'testing GPL ', '5.19a', ' ...'
print*, ' ', 'testing GPL ', 'E.19a', ' ...'
res = G((/ inum(2._prec, +1) /), inum(3._prec, +1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.19b', ' ...'
print*, ' ', 'testing GPL ', 'E.19b', ' ...'
res = G((/ inum(2._prec, -1) /), inum(3._prec, +1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.19c', ' ...'
print*, ' ', 'testing GPL ', 'E.19c', ' ...'
res = G((/ inum(2._prec, +1) /), inum(3._prec, -1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.19d', ' ...'
print*, ' ', 'testing GPL ', 'E.19d', ' ...'
res = G((/ inum(2._prec, -1) /), inum(3._prec, -1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.19e', ' ...'
print*, ' ', 'testing GPL ', 'E.19e', ' ...'
res = G((/ inum(-2._prec, +1) /), inum(-3._prec, +1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.19f', ' ...'
print*, ' ', 'testing GPL ', 'E.19f', ' ...'
res = G((/ inum(-2._prec, -1) /), inum(-3._prec, +1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.19g', ' ...'
print*, ' ', 'testing GPL ', 'E.19g', ' ...'
res = G((/ inum(-2._prec, +1) /), inum(-3._prec, -1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.19h', ' ...'
print*, ' ', 'testing GPL ', 'E.19h', ' ...'
res = G((/ inum(-2._prec, -1) /), inum(-3._prec, -1))
call check(res,ref)
ref = -(2.374395270272480200677499763071638424_prec, - 1.273806204919600530933131685580471698_prec)
print*, ' ', 'testing GPL ', '5.20a', ' ...'
print*, ' ', 'testing GPL ', 'E.20a', ' ...'
res = G((/ izero, inum(2._prec, +1) /), inum(3._prec, +1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.20b', ' ...'
print*, ' ', 'testing GPL ', 'E.20b', ' ...'
res = G((/ izero, inum(2._prec, -1) /), inum(3._prec, +1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.20c', ' ...'
print*, ' ', 'testing GPL ', 'E.20c', ' ...'
res = G((/ izero, inum(2._prec, +1) /), inum(3._prec, -1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.20d', ' ...'
print*, ' ', 'testing GPL ', 'E.20d', ' ...'
res = G((/ izero, inum(2._prec, -1) /), inum(3._prec, -1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.20e', ' ...'
print*, ' ', 'testing GPL ', 'E.20e', ' ...'
res = G((/ izero, inum(-2._prec, +1) /), inum(-3._prec, +1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.20f', ' ...'
print*, ' ', 'testing GPL ', 'E.20f', ' ...'
res = G((/ izero, inum(-2._prec, -1) /), inum(-3._prec, +1))
call check(res,ref)
print*, ' ', 'testing GPL ', '5.20g', ' ...'
print*, ' ', 'testing GPL ', 'E.20g', ' ...'
res = G((/ izero, inum(-2._prec, +1) /), inum(-3._prec, -1))
call check(res,conjg(ref))
print*, ' ', 'testing GPL ', '5.20h', ' ...'
print*, ' ', 'testing GPL ', 'E.20h', ' ...'
res = G((/ izero, inum(-2._prec, -1) /), inum(-3._prec, -1))
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