dbcsr_get_wms_data_c Function

private function dbcsr_get_wms_data_c(matrix, index_matrix, select_data_type, lb, ub) result(DATA)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(in) :: matrix
integer, intent(in) :: index_matrix
complex(kind=real_4), intent(in) :: select_data_type
integer, intent(in), optional :: lb
integer, intent(in), optional :: ub

Return Value complex(kind=real_4), DIMENSION(:), POINTER


Source Code

      FUNCTION dbcsr_get_wms_data_c (matrix, index_matrix, select_data_type, lb, ub) RESULT(DATA)
         TYPE(dbcsr_type), INTENT(IN)     :: matrix
         INTEGER, INTENT(IN)              :: index_matrix
         COMPLEX(kind=real_4), INTENT(IN)              :: select_data_type
         COMPLEX(kind=real_4), DIMENSION(:), POINTER   :: DATA
         INTEGER, INTENT(IN), OPTIONAL    :: lb, ub

         DATA => dbcsr_get_data_p_prv(matrix%prv%wms(index_matrix)%data_area, select_data_type, lb, ub)
      END FUNCTION dbcsr_get_wms_data_c