ky_init Subroutine

private subroutine ky_init(self, ik, itmins, nsupercell, nfield, nbound)

Setup properties of ky_type instance

Type Bound

ky_type

Arguments

Type IntentOptional Attributes Name
class(ky_type), intent(inout) :: self
integer, intent(in) :: ik
integer, intent(in), dimension(:) :: itmins
integer, intent(in) :: nsupercell
integer, intent(in) :: nfield
integer, intent(inout) :: nbound

Contents

Source Code


Source Code

  subroutine ky_init(self, ik, itmins, nsupercell, nfield, nbound)
    implicit none
    class(ky_type), intent(in out) :: self
    integer, intent(in) :: ik, nsupercell, nfield
    integer, dimension(:), intent(in) :: itmins
    integer, intent(in out) :: nbound
    integer :: is

    self%ik_ind = ik
    self%nsupercell = nsupercell

    allocate (self%supercells(nsupercell))

    do is = 1, nsupercell
       call self%supercells(is)%init(is, itmins(is), ik, nfield, nbound)
    end do

  end subroutine ky_init