|
CP2K 2.4 (Revision 12889)
|
00001 !-----------------------------------------------------------------------------! 00002 ! CP2K: A general program to perform molecular dynamics simulations ! 00003 ! Copyright (C) 2000 - 2013 CP2K developers group ! 00004 !-----------------------------------------------------------------------------! 00005 00006 ! ***************************************************************************** 00015 MODULE cp_dbcsr_methods 00016 USE array_types, ONLY: array_i1d_obj 00017 USE cp_dbcsr_types, ONLY: cp_dbcsr_type 00018 00019 !$ USE OMP_LIB 00020 #include "cp_common_uses.h" 00021 00022 IMPLICIT NONE 00023 00024 CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'cp_dbcsr_methods' 00025 00026 PRIVATE 00027 00028 ! PUBLIC :: cp_dbcsr_get_mapping, cp_dbcsr_get_dbcsr 00029 00030 PUBLIC :: cp_dbcsr_col_block_sizes, cp_dbcsr_row_block_sizes 00031 PUBLIC :: cp_dbcsr_col_block_offsets, cp_dbcsr_row_block_offsets 00032 00033 CONTAINS 00034 00035 FUNCTION cp_dbcsr_row_block_sizes (matrix) RESULT (row_blk_sizes) 00036 TYPE(cp_dbcsr_type), INTENT(IN) :: matrix 00037 TYPE(array_i1d_obj) :: row_blk_sizes 00038 00039 CHARACTER(len=*), PARAMETER :: routineN = 'cp_dbcsr_row_block_sizes', 00040 routineP = moduleN//':'//routineN 00041 00042 row_blk_sizes = matrix%matrix%m%row_blk_size 00043 END FUNCTION cp_dbcsr_row_block_sizes 00044 00045 FUNCTION cp_dbcsr_col_block_sizes (matrix) RESULT (col_blk_sizes) 00046 TYPE(cp_dbcsr_type), INTENT(IN) :: matrix 00047 TYPE(array_i1d_obj) :: col_blk_sizes 00048 00049 CHARACTER(len=*), PARAMETER :: routineN = 'cp_dbcsr_col_block_sizes', 00050 routineP = moduleN//':'//routineN 00051 00052 col_blk_sizes = matrix%matrix%m%col_blk_size 00053 END FUNCTION cp_dbcsr_col_block_sizes 00054 00055 FUNCTION cp_dbcsr_col_block_offsets (matrix) RESULT (col_blk_offsets) 00056 TYPE(cp_dbcsr_type), INTENT(IN) :: matrix 00057 TYPE(array_i1d_obj) :: col_blk_offsets 00058 00059 CHARACTER(len=*), PARAMETER :: routineN = 'cp_dbcsr_col_block_offsets', 00060 routineP = moduleN//':'//routineN 00061 00062 col_blk_offsets = matrix%matrix%m%col_blk_offset 00063 END FUNCTION cp_dbcsr_col_block_offsets 00064 00065 FUNCTION cp_dbcsr_row_block_offsets (matrix) RESULT (row_blk_offsets) 00066 TYPE(cp_dbcsr_type), INTENT(IN) :: matrix 00067 TYPE(array_i1d_obj) :: row_blk_offsets 00068 00069 CHARACTER(len=*), PARAMETER :: routineN = 'cp_dbcsr_row_block_offsets', 00070 routineP = moduleN//':'//routineN 00071 00072 row_blk_offsets = matrix%matrix%m%row_blk_offset 00073 END FUNCTION cp_dbcsr_row_block_offsets 00074 00075 END MODULE cp_dbcsr_methods
1.7.3