Commit 34955627 authored by Florian Goth's avatar 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
......@@ -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"
......
......@@ -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(:)
......
......@@ -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(:)
......
Supports Markdown
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