Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ALF
ALF
Commits
34955627
Commit
34955627
authored
Dec 02, 2021
by
Florian Goth
Browse files
sort out the imports also in the tests
parent
0d58dc08
Pipeline
#12948
failed with stages
in 15 minutes and 34 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
testsuite/Prog.tests/27-mscbeuler.F90
View file @
34955627
...
...
@@ -177,15 +177,15 @@ Program EulerExpTest
mys
=
0.0
! initialize chemical potential to zero
call
exectest
(
op_t
,
mys
)
! ! !
! Now test homogeneous exponentials
! ! !
mys = 0.5
! ! !
call exectest(op_t, mys)
! ! !
! ! !
! Now test general exponentials
! ! !
do i = 1, ndim
! ! !
mys(i) = 0.1*i
! ! !
enddo
! ! !
call exectest(op_t, mys)
! Now test homogeneous exponentials
mys
=
0.5
call
exectest
(
op_t
,
mys
)
! Now test general exponentials
do
i
=
1
,
ndim
mys
(
i
)
=
0.1
*
i
enddo
call
exectest
(
op_t
,
mys
)
call
Op_clear
(
Op_T
,
ndim
)
deallocate
(
mys
,
Lat_unit
%
Orb_pos_p
,
Lat
%
L2_p
,
Lat
%
L1_p
,
Lat
%
a1_p
,
Lat
%
a2_p
,
Lat
%
b1_p
,
Lat
%
b2_p
,
Lat
%
BZ1_p
,
Lat
%
BZ2_p
,
Lat
%
b1_perp_p
,
Lat
%
b2_perp_p
,
Lat
%
List
,
Lat
%
Invlist
,
Lat
%
Listk
,
Lat
%
Invlistk
,
Lat
%
nnlist
,
Lat
%
imj
)
write
(
*
,
*
)
"success"
...
...
testsuite/libmscbdecomp_mod/5-EulerExponential.F90
View file @
34955627
...
...
@@ -4,6 +4,7 @@
subroutine
exectest
(
gd
,
ndim
,
mys
)
Use
Exponentials_mod
Use
colorvertex_mod
Use
graphdata_mod
implicit
none
type
(
EulerExp
)
::
ee
integer
::
ndim
...
...
@@ -172,12 +173,13 @@ Program EulerExpTest
Use
Exponentials_mod
Use
colorvertex_mod
Use
graphdata_mod
Use
MvG_mod
interface
subroutine
exectest
(
gd
,
ndim
,
mys
)
Use
Exponentials_mod
Use
colorvertex
_mod
Use
graphdata
_mod
integer
::
ndim
Type
(
GraphData
)
::
gd
real
(
kind
=
kind
(
0.D0
)),
allocatable
::
mys
(:)
...
...
testsuite/libmscbdecomp_mod/6-FullExponential.F90
View file @
34955627
...
...
@@ -4,6 +4,7 @@
subroutine
exectest
(
gd
,
ndim
,
mys
,
method
)
Use
Exponentials_mod
Use
colorvertex_mod
Use
graphdata_mod
implicit
none
integer
::
method
type
(
FullExp
)
::
fe
...
...
@@ -109,14 +110,16 @@ end subroutine
Program
FullExpTest
Use
Exponentials_mod
Use
Exponentials_mod
Use
colorvertex_mod
Use
MvG_mod
Use
graphdata_mod
interface
subroutine
exectest
(
gd
,
ndim
,
mys
,
method
)
Use
Exponentials_mod
Use
colorvertex_mod
subroutine
exectest
(
gd
,
ndim
,
mys
,
method
)
Use
Exponentials_mod
Use
colorvertex_mod
Use
graphdata_mod
integer
::
ndim
,
method
Type
(
GraphData
)
::
gd
real
(
kind
=
kind
(
0.D0
)),
allocatable
::
mys
(:)
...
...
Write
Preview
Supports
Markdown
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