Line data    Source code

       1             : !--------------------------------------------------------------------------------------------------!
       2             : !   CP2K: A general program to perform molecular dynamics simulations                              !
       3             : !   Copyright 2000-2024 CP2K developers group <https://cp2k.org>                                   !
       4             : !                                                                                                  !
       5             : !   SPDX-License-Identifier: GPL-2.0-or-later                                                      !
       6             : !--------------------------------------------------------------------------------------------------!
       7             : 
       8             : MODULE cp_dlaf_utils_api
       9             : 
      10             : #include "../base/base_uses.f90"
      11             : 
      12             : #if defined(__DLAF)
      13             :    USE dlaf_fortran, ONLY: dlaf_create_grid_from_blacs, &
      14             :                            dlaf_finalize, &
      15             :                            dlaf_free_grid, &
      16             :                            dlaf_initialize
      17             : #endif
      18             : 
      19             :    IMPLICIT NONE
      20             : 
      21             :    PRIVATE
      22             : 
      23             :    CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'cp_dlaf_utils_api'
      24             : 
      25             :    PUBLIC :: cp_dlaf_initialize, cp_dlaf_finalize
      26             :    PUBLIC :: cp_dlaf_create_grid, cp_dlaf_free_grid
      27             : 
      28             : CONTAINS
      29             : 
      30             : ! **************************************************************************************************
      31             : !> \brief Initialize DLA-Future and pika runtime
      32             : !> \author Rocco Meli
      33             : !> \author Mikael Simberg
      34             : !> \author Mathieu Taillefumier
      35             : ! **************************************************************************************************
      36        8530 :    SUBROUTINE cp_dlaf_initialize()
      37             :       CHARACTER(len=*), PARAMETER :: routineN = 'cp_dlaf_initialize'
      38             : 
      39             :       INTEGER                                            :: handle
      40             : 
      41        8530 :       CALL timeset(routineN, handle)
      42             : #if defined(__DLAF)
      43             :       CALL dlaf_initialize()
      44             : #endif
      45        8530 :       CALL timestop(handle)
      46        8530 :    END SUBROUTINE cp_dlaf_initialize
      47             : 
      48             : ! **************************************************************************************************
      49             : !> \brief Finalize DLA-Future and pika runtime
      50             : !> \author Rocco Meli
      51             : !> \author Mikael Simberg
      52             : !> \author Mathieu Taillefumier
      53             : ! **************************************************************************************************
      54        8530 :    SUBROUTINE cp_dlaf_finalize()
      55             :       CHARACTER(len=*), PARAMETER                        :: routineN = 'cp_dlaf_finalize'
      56             : 
      57             :       INTEGER                                            :: handle
      58             : 
      59        8530 :       CALL timeset(routineN, handle)
      60             : #if defined(__DLAF)
      61             :       CALL dlaf_finalize()
      62             : #endif
      63        8530 :       CALL timestop(handle)
      64        8530 :    END SUBROUTINE cp_dlaf_finalize
      65             : 
      66             : ! **************************************************************************************************
      67             : !> \brief Create DLA-Future grid from BLACS context
      68             : !> \param blacs_context ...
      69             : !> \author Rocco Meli
      70             : !> \author Mikael Simberg
      71             : !> \author Mathieu Taillefumier
      72             : ! **************************************************************************************************
      73           0 :    SUBROUTINE cp_dlaf_create_grid(blacs_context)
      74             :       INTEGER, INTENT(IN)                                :: blacs_context
      75             : 
      76             :       CHARACTER(len=*), PARAMETER :: routineN = 'cp_dlaf_create_grid'
      77             : 
      78             :       INTEGER                                            :: handle
      79             : 
      80           0 :       CALL timeset(routineN, handle)
      81             : #if defined(__DLAF)
      82             :       CALL dlaf_create_grid_from_blacs(blacs_context)
      83             : #else
      84             :       MARK_USED(blacs_context)
      85           0 :       CPABORT("CP2K compiled without the DLA-Future library.")
      86             : #endif
      87           0 :       CALL timestop(handle)
      88           0 :    END SUBROUTINE cp_dlaf_create_grid
      89             : 
      90             : ! **************************************************************************************************
      91             : !> \brief Free DLA-Future grid corresponding to BLACS context
      92             : !> \param blacs_context ...
      93             : !> \author Rocco Meli
      94             : !> \author Mikael Simberg
      95             : !> \author Mathieu Taillefumier
      96             : ! **************************************************************************************************
      97           0 :    SUBROUTINE cp_dlaf_free_grid(blacs_context)
      98             :       INTEGER, INTENT(IN)                                :: blacs_context
      99             : 
     100             :       CHARACTER(len=*), PARAMETER                        :: routineN = 'cp_dlaf_free_grid'
     101             : 
     102             :       INTEGER                                            :: handle
     103             : 
     104           0 :       CALL timeset(routineN, handle)
     105             : #if defined(__DLAF)
     106             :       CALL dlaf_free_grid(blacs_context)
     107             : #else
     108             :       MARK_USED(blacs_context)
     109           0 :       CPABORT("CP2K compiled without the DLA-Future library.")
     110             : #endif
     111           0 :       CALL timestop(handle)
     112           0 :    END SUBROUTINE cp_dlaf_free_grid
     113             : 
     114             : END MODULE cp_dlaf_utils_api