1!--------------------------------------------------------------------------------------------------!
2!   CP2K: A general program to perform molecular dynamics simulations                              !
3!   Copyright (C) 2000 - 2019  CP2K developers group                                               !
4!--------------------------------------------------------------------------------------------------!
5
6! **************************************************************************************************
7!> \brief collect pointers to a block of reals
8!> \note
9!>      needed to work around NEC compiler bug
10!> \author fxcoudert [2006.12]
11! **************************************************************************************************
12MODULE block_p_types
13
14   USE kinds,                           ONLY: dp
15#include "./base/base_uses.f90"
16
17   IMPLICIT NONE
18   PRIVATE
19   PUBLIC :: block_p_type
20! **************************************************************************************************
21   TYPE block_p_type
22      REAL(KIND=dp), DIMENSION(:, :), POINTER :: block
23   END TYPE block_p_type
24END MODULE block_p_types
25