pointer_d_rank_remap2 Subroutine

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

Source Code

      SUBROUTINE pointer_d_rank_remap2(r2p, d1, d2, r1p)
     !! Sets a rank-2 pointer to rank-1 data using Fortran 2003 pointer
     !! rank remapping.

         INTEGER, INTENT(IN)                      :: d1, d2
         REAL(kind=real_8), DIMENSION(:, :), &
            POINTER                                :: r2p
         REAL(kind=real_8), DIMENSION(:), &
            POINTER                                :: r1p

         r2p(1:d1, 1:d2) => r1p(1:d1*d2)
      END SUBROUTINE pointer_d_rank_remap2