Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | i | |||
integer, | intent(in) | :: | j | |||
integer, | intent(in) | :: | k | |||
integer, | intent(in) | :: | ti | |||
integer, | intent(in) | :: | tj | |||
integer, | intent(in) | :: | tk | |||
integer, | intent(in) | :: | nxpertile | |||
integer, | intent(in) | :: | nypertile | |||
integer, | intent(in) | :: | nzpertile | |||
integer, | intent(in) | :: | ntilex | |||
integer, | intent(in) | :: | ntiley | |||
integer, | intent(in) | :: | ntilez |
pure function elementid(i,j,k,ti,tj,tk,nxpertile,nypertile,nzpertile, &
ntilex,ntiley,ntilez) result(eid)
integer,intent(in) :: i,j,k
integer,intent(in) :: ti,tj,tk
integer,intent(in) :: nxpertile,nypertile,nzpertile
integer,intent(in) :: ntilex,ntiley,ntilez
integer :: eid
eid = i+nxpertile*(j-1+nypertile*(k-1+nzpertile*( &
ti-1+ntilex*(tj-1+ntiley*(tk-1)))))
endfunction elementid