System Module


Uses


Contents

Functions

Subroutines


Functions

public function AreSameSpatialOrb(i, j)

Arguments

Type IntentOptional Attributes Name
integer :: i
integer :: j

Return Value logical

public function calc_madelung() result(res)

Arguments

None

Return Value real(kind=dp)


Subroutines

public subroutine SetSysDefaults()

Arguments

None

public subroutine SysReadInput(file_reader, incompletely_parsed_tokens)

Arguments

Type IntentOptional Attributes Name
class(FileReader_t), intent(inout) :: file_reader
type(TokenIterator_t), intent(inout) :: incompletely_parsed_tokens

public subroutine SysInit()

Arguments

None

public subroutine SysCleanup()

Arguments

None

public subroutine LatticeInit(RS, FKF)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out) :: RS
real(kind=dp), intent(out) :: FKF

public subroutine CalcCell()

Arguments

None

public subroutine CalcTau()

!!!!!! NOT WORKING YET!!!!!!!

Arguments

None

public subroutine read_spat_GAS_orbs(tokens, spat_GAS_orbs, recoupling)

Arguments

Type IntentOptional Attributes Name
type(TokenIterator_t), intent(inout) :: tokens
integer, intent(out), allocatable :: spat_GAS_orbs(:)
logical, intent(out) :: recoupling