1!--------------------------------------------------------------------------------------------------!
2!   CP2K: A general program to perform molecular dynamics simulations                              !
3!   Copyright (C) 2000 - 2019  CP2K developers group                                               !
4!--------------------------------------------------------------------------------------------------!
5
6#if defined(__PILAENV_BLOCKSIZE)
7!
8! This function overwrites the one present in Scalapack.....
9! most libraries do not provide a good default, but an old value of 32, which leads to poor pdgemm performance
10! set -D__PILAENV_BLOCKSIZE=1024 or some number (depending on the hardware, and application), might lead to better performance
11!
12! **************************************************************************************************
13!> \brief ...
14!> \param ICTXT ...
15!> \param PREC ...
16!> \return ...
17! **************************************************************************************************
18INTEGER FUNCTION PILAENV(ICTXT, PREC)
19   INTEGER :: ICTXT
20   CHARACTER(LEN=1) :: PREC
21
22   PILAENV = __PILAENV_BLOCKSIZE
23END FUNCTION PILAENV
24#endif
25
26! **************************************************************************************************
27!> \brief ...
28! **************************************************************************************************
29SUBROUTINE NAG_dummy()
30
31END SUBROUTINE NAG_dummy
32