get_index_ijk Subroutine

public pure subroutine get_index_ijk(i, j, k, dir_i, dir_j, dir_k, dir, SZ, nx_padded, ny_padded, nz_padded)

Get cartesian index from application storage directional one

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: i
integer, intent(out) :: j
integer, intent(out) :: k
integer, intent(in) :: dir_i
integer, intent(in) :: dir_j
integer, intent(in) :: dir_k
integer, intent(in) :: dir
integer, intent(in) :: SZ
integer, intent(in) :: nx_padded
integer, intent(in) :: ny_padded
integer, intent(in) :: nz_padded