set_data_p_2d_d Subroutine

private subroutine set_data_p_2d_d(area, p)

Sets a data pointer.

Assumptions Assumes that no memory will be lost when repointing the pointer in the data area and that the area is initialized.

Arguments

Type IntentOptional Attributes Name
type(dbcsr_data_obj), intent(inout) :: area

target data area
real(kind=real_8), DIMENSION(:, :), POINTER :: p

source data pointer

Source Code

      SUBROUTINE set_data_p_2d_d (area, p)
     !! Sets a data pointer.
     !!
     !! Assumptions
     !! Assumes that no memory will be lost when repointing the
     !! pointer in the data area and that the area is initialized.

         TYPE(dbcsr_data_obj), INTENT(INOUT)      :: area
        !! target data area
         REAL(kind=real_8), DIMENSION(:, :), POINTER         :: p
        !! source data pointer

         IF (area%d%data_type /= dbcsr_type_real_8_2d) &
            DBCSR_ABORT("set_data_p_2d_d: data-area has wrong type")

         area%d%r2_dp => p
      END SUBROUTINE set_data_p_2d_d