create_lattice_hamil_nI Function

public function create_lattice_hamil_nI(list_nI) result(hamil)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: list_nI(:,:)

Return Value real(kind=dp), (size(list_nI,2),size(list_nI,2))


Contents

Source Code

create_lattice_hamil_nI

Source Code

    function create_lattice_hamil_nI(list_nI) result(hamil)
        ! quite specific hamiltonian creation for my tests..
        integer, intent(in) :: list_nI(:, :)
        HElement_t(dp) :: hamil(size(list_nI, 2), size(list_nI, 2))

        integer :: i, j

        hamil = h_cast(0.0_dp)

        do i = 1, size(list_nI, 2)
            do j = 1, size(list_nI, 2)
                hamil(i, j) = get_helement_lattice(list_nI(:, j), list_nI(:, i))
            end do
        end do

    end function create_lattice_hamil_nI