Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
McMule
handyG
Commits
f9fc7ef9
Commit
f9fc7ef9
authored
Aug 28, 2019
by
ulrich_y
Browse files
Renamed tests
parent
489f35f4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
34 additions
and
33 deletions
+34
-33
checks/test.f90
checks/test.f90
+34
-33
No files found.
checks/test.f90
View file @
f9fc7ef9
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment