set_data_p_c Subroutine

private subroutine set_data_p_c(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
complex(kind=real_4), DIMENSION(:), POINTER, CONTIGUOUS :: p

source data pointer

Source Code

      SUBROUTINE set_data_p_c (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
         COMPLEX(kind=real_4), DIMENSION(:), POINTER, CONTIGUOUS :: p
        !! source data pointer

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

         area%d%c_sp => p
      END SUBROUTINE set_data_p_c