Convert the extended domain index to ifl
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(supercell_type), | intent(in) | :: | self | |||
integer, | intent(in) | :: | iex | |||
integer, | intent(out) | :: | ifl |
subroutine sc_iex_to_ifl(self,iex,ifl)
implicit none
class(supercell_type), intent(in) :: self
integer, intent(in) :: iex
integer, intent(out) :: ifl
ifl=1+(iex-1)/self%nextend
end subroutine sc_iex_to_ifl