Commit 74b3dbbf authored by Florian Goth's avatar Florian Goth
Browse files

sort out use use

parent e17c0254
......@@ -47,12 +47,9 @@
Module Hop_mod
Use Hamiltonian_main
Use Operator_mod
Use Random_wrap
Use DynamicMatrixArray_mod
Use ContainerElementBase_mod
Use OpTTypes_mod
Use mscbOpT_mod
use iso_fortran_env, only: output_unit, error_unit
! Private variables
......@@ -77,6 +74,8 @@
!--------------------------------------------------------------------
subroutine OpT_postprocess(ExpOpT_vec, op)
use Operator_mod
Use mscbOpT_mod
Use OpTTypes_mod
implicit none
Type(DynamicMatrixArray), intent(inout) :: ExpOpT_vec
......
......@@ -84,6 +84,7 @@
!--------------------------------------------------------------------
SUBROUTINE Langevin_HMC_Forces(Phase, GR, GR_Tilde, Test, udvr, udvl, Stab_nt, udvst, LOBS_ST, LOBS_EN,Calc_Obser_eq)
use Operator_mod
Implicit none
Interface
......@@ -191,7 +192,7 @@
!--------------------------------------------------------------------
Subroutine Wrapgrup_Forces(this,Gr, NT1)
use Operator_mod
Implicit none
class (Langevin_HMC_type) :: this
......@@ -246,7 +247,7 @@
!> udvl, udvr are on time slice 0.
!--------------------------------------------------------------------
Subroutine Langevin_HMC_Reset_storage(Phase, GR, udvr, udvl, Stab_nt, udvst)
use Operator_mod
Implicit none
Interface
......@@ -345,7 +346,7 @@
!--------------------------------------------------------------------
SUBROUTINE Langevin_HMC_update(this,Phase, GR, GR_Tilde, Test, udvr, udvl, Stab_nt, udvst, LOBS_ST, LOBS_EN, LTAU)
use Operator_mod
Implicit none
class (Langevin_HMC_type) :: this
......
......@@ -50,9 +50,10 @@
!--------------------------------------------------------------------
Use UDV_State_mod
use Operator_mod
Use Hop_mod
#if defined(STAB2) || defined(STAB1)
Use Hamiltonian_main
Use Hop_mod
Use UDV_Wrap_mod
Implicit none
......@@ -99,7 +100,6 @@
ENDDO
#else
Use Hop_mod
Implicit none
! Arguments
......
......@@ -47,8 +47,9 @@
!-------------------------------------------------------------------
Use Hop_mod
use Operator_mod
Use UDV_State_mod
Use Hop_mod
#if defined(STAB2) || defined(STAB1)
Use Hamiltonian_main
Use UDV_Wrap_mod
......
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