Dino,

Dino,

Here is an additional example:

recursive subroutine CopyToYMM_1D(f, t, s)
    use MOD_ALL
    real, pointer :: f(:)
    type(TypeYMM), pointer :: t(:)
    integer :: s
    integer :: i
    real, pointer :: slice(:)
    do i=LBOUND(f, DIM=1),UBOUND(f, DIM=1)
        t(i).v(s) = f(i)
    end do
    slice(LBOUND(f, DIM=1):UBOUND(f, DIM=1)) =>  t(LBOUND(f, DIM=1))%v(s::4)
    f => slice
end subroutine CopyToYMM_1D

Jim Dempsey