pointer_rank_remap2 Interface

public interface pointer_rank_remap2

Module Procedures

private subroutine pointer_s_rank_remap2(r2p, d1, d2, r1p)

Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer rank remapping.

Arguments

Type IntentOptional Attributes Name
real(kind=real_4), DIMENSION(:, :), POINTER :: r2p
integer, intent(in) :: d1
integer, intent(in) :: d2
real(kind=real_4), DIMENSION(:), POINTER :: r1p

private subroutine pointer_d_rank_remap2(r2p, d1, d2, r1p)

Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer rank remapping.

Arguments

Type IntentOptional Attributes Name
real(kind=real_8), DIMENSION(:, :), POINTER :: r2p
integer, intent(in) :: d1
integer, intent(in) :: d2
real(kind=real_8), DIMENSION(:), POINTER :: r1p

private subroutine pointer_c_rank_remap2(r2p, d1, d2, r1p)

Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer rank remapping.

Arguments

Type IntentOptional Attributes Name
complex(kind=real_4), DIMENSION(:, :), POINTER :: r2p
integer, intent(in) :: d1
integer, intent(in) :: d2
complex(kind=real_4), DIMENSION(:), POINTER :: r1p

private subroutine pointer_z_rank_remap2(r2p, d1, d2, r1p)

Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer rank remapping.

Arguments

Type IntentOptional Attributes Name
complex(kind=real_8), DIMENSION(:, :), POINTER :: r2p
integer, intent(in) :: d1
integer, intent(in) :: d2
complex(kind=real_8), DIMENSION(:), POINTER :: r1p

private subroutine pointer_l_rank_remap2(r2p, d1, d2, r1p)

Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer rank remapping.

Arguments

Type IntentOptional Attributes Name
integer(kind=int_8), DIMENSION(:, :), POINTER :: r2p
integer, intent(in) :: d1
integer, intent(in) :: d2
integer(kind=int_8), DIMENSION(:), POINTER :: r1p

private subroutine pointer_i_rank_remap2(r2p, d1, d2, r1p)

Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer rank remapping.

Arguments

Type IntentOptional Attributes Name
integer(kind=int_4), DIMENSION(:, :), POINTER :: r2p
integer, intent(in) :: d1
integer, intent(in) :: d2
integer(kind=int_4), DIMENSION(:), POINTER :: r1p