pointer_c_rank_remap2 Subroutine

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

Source Code

      SUBROUTINE pointer_c_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
         COMPLEX(kind=real_4), DIMENSION(:, :), &
            POINTER                                :: r2p
         COMPLEX(kind=real_4), DIMENSION(:), &
            POINTER                                :: r1p

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