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