Line data    Source code

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