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