Home
last modified time | relevance | path

Searched refs:ptr_2d (Results 1 – 2 of 2) sorted by relevance

/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dkpoint_transitional.F48 IF (SIZE(this%ptr_2d, 2) /= 1) &
65 res => this%ptr_2d
83 this%ptr_2d(1:n, 1:1) => ptr_1d
87 this%ptr_2d => Null()
97 SUBROUTINE set_2d_pointer(this, ptr_2d) argument
101 IF (ASSOCIATED(ptr_2d)) THEN
102 this%ptr_1d => ptr_2d(:, 1)
103 this%ptr_2d => ptr_2d
107 this%ptr_2d => Null()
123 CALL dbcsr_deallocate_matrix_set(this%ptr_2d)
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dkpoint_transitional.F48 IF (SIZE(this%ptr_2d, 2) /= 1) &
65 res => this%ptr_2d
83 this%ptr_2d(1:n, 1:1) => ptr_1d
87 this%ptr_2d => Null()
97 SUBROUTINE set_2d_pointer(this, ptr_2d) argument
101 IF (ASSOCIATED(ptr_2d)) THEN
102 this%ptr_1d => ptr_2d(:, 1)
103 this%ptr_2d => ptr_2d
107 this%ptr_2d => Null()
123 CALL dbcsr_deallocate_matrix_set(this%ptr_2d)
[all …]