mcl_requests.F

Go to the documentation of this file.

!--------------------------------------------------------------------------------------------------!
!   CP2K: A general program to perform molecular dynamics simulations                              !
!   Copyright 2000-2025 CP2K developers group <https://cp2k.org>                                   !
!                                                                                                  !
!   SPDX-License-Identifier: GPL-2.0-or-later                                                      !
!--------------------------------------------------------------------------------------------------!
 
! **************************************************************************************************
!> \brief Wrapper module for MiMiC Communication Library (MCL) request labels
!> \par History
!>       05.2025 Created [AA]
!> \author Andrej Antalik
! **************************************************************************************************
 
MODULE mcl_requests
 
 
 
#if defined(__MIMIC)
      USE mcl, ONLY: mcl_data
      USE mcl, ONLY: mcl_length
      USE mcl, ONLY: mcl_request
      USE mcl, ONLY: mcl_exit
      USE mcl, ONLY: mcl_send_client_id
      USE mcl, ONLY: mcl_send_client_name
      USE mcl, ONLY: mcl_send_client_runtype
      USE mcl, ONLY: mcl_send_client_apiver
      USE mcl, ONLY: mcl_runtype_qm_rs_grid
      USE mcl, ONLY: mcl_send_num_particles
      USE mcl, ONLY: mcl_send_num_particle_species
      USE mcl, ONLY: mcl_send_particle_species_ids
      USE mcl, ONLY: mcl_send_num_fragments
      USE mcl, ONLY: mcl_send_num_particles_in_fragments
      USE mcl, ONLY: mcl_send_particle_ids_in_fragments
      USE mcl, ONLY: mcl_send_num_constr_bonds
      USE mcl, ONLY: mcl_send_num_constr_angles
      USE mcl, ONLY: mcl_send_particle_multipoles
      USE mcl, ONLY: mcl_send_nuclear_charges
      USE mcl, ONLY: mcl_send_species_masses
      USE mcl, ONLY: mcl_send_species_elements
      USE mcl, ONLY: mcl_send_species_labels
      USE mcl, ONLY: mcl_send_particle_positions
      USE mcl, ONLY: mcl_recv_particle_positions
      USE mcl, ONLY: mcl_send_particle_forces
      USE mcl, ONLY: mcl_send_energy
      USE mcl, ONLY: mcl_send_box_origin
      USE mcl, ONLY: mcl_send_box_vectors
      USE mcl, ONLY: mcl_send_box_num_gridpoints
      USE mcl, ONLY: mcl_send_box_gridpoint_coords
      USE mcl, ONLY: mcl_send_density
      USE mcl, ONLY: mcl_recv_potential_on_gridpoints
      USE mcl, ONLY: mcl_send_reference_charges
      USE mcl, ONLY: mcl_compute_forces
#endif
 
   IMPLICIT NONE
 
   PRIVATE
 
      PUBLIC :: mcl_data
      PUBLIC :: mcl_length
      PUBLIC :: mcl_request
      PUBLIC :: mcl_exit
      PUBLIC :: mcl_send_client_id
      PUBLIC :: mcl_send_client_name
      PUBLIC :: mcl_send_client_runtype
      PUBLIC :: mcl_send_client_apiver
      PUBLIC :: mcl_runtype_qm_rs_grid
      PUBLIC :: mcl_send_num_particles
      PUBLIC :: mcl_send_num_particle_species
      PUBLIC :: mcl_send_particle_species_ids
      PUBLIC :: mcl_send_num_fragments
      PUBLIC :: mcl_send_num_particles_in_fragments
      PUBLIC :: mcl_send_particle_ids_in_fragments
      PUBLIC :: mcl_send_num_constr_bonds
      PUBLIC :: mcl_send_num_constr_angles
      PUBLIC :: mcl_send_particle_multipoles
      PUBLIC :: mcl_send_nuclear_charges
      PUBLIC :: mcl_send_species_masses
      PUBLIC :: mcl_send_species_elements
      PUBLIC :: mcl_send_species_labels
      PUBLIC :: mcl_send_particle_positions
      PUBLIC :: mcl_recv_particle_positions
      PUBLIC :: mcl_send_particle_forces
      PUBLIC :: mcl_send_energy
      PUBLIC :: mcl_send_box_origin
      PUBLIC :: mcl_send_box_vectors
      PUBLIC :: mcl_send_box_num_gridpoints
      PUBLIC :: mcl_send_box_gridpoint_coords
      PUBLIC :: mcl_send_density
      PUBLIC :: mcl_recv_potential_on_gridpoints
      PUBLIC :: mcl_send_reference_charges
      PUBLIC :: mcl_compute_forces
 
#if !defined(__MIMIC)
      INTEGER, PARAMETER :: mcl_data = -2
      INTEGER, PARAMETER :: mcl_length = -3
      INTEGER, PARAMETER :: mcl_request = -4
      INTEGER, PARAMETER :: mcl_exit = -5
      INTEGER, PARAMETER :: mcl_send_client_id = -6
      INTEGER, PARAMETER :: mcl_send_client_name = -7
      INTEGER, PARAMETER :: mcl_send_client_runtype = -8
      INTEGER, PARAMETER :: mcl_send_client_apiver = -9
      INTEGER, PARAMETER :: mcl_runtype_qm_rs_grid = -10
      INTEGER, PARAMETER :: mcl_send_num_particles = -11
      INTEGER, PARAMETER :: mcl_send_num_particle_species = -12
      INTEGER, PARAMETER :: mcl_send_particle_species_ids = -13
      INTEGER, PARAMETER :: mcl_send_num_fragments = -14
      INTEGER, PARAMETER :: mcl_send_num_particles_in_fragments = -15
      INTEGER, PARAMETER :: mcl_send_particle_ids_in_fragments = -16
      INTEGER, PARAMETER :: mcl_send_num_constr_bonds = -17
      INTEGER, PARAMETER :: mcl_send_num_constr_angles = -18
      INTEGER, PARAMETER :: mcl_send_particle_multipoles = -19
      INTEGER, PARAMETER :: mcl_send_nuclear_charges = -20
      INTEGER, PARAMETER :: mcl_send_species_masses = -21
      INTEGER, PARAMETER :: mcl_send_species_elements = -22
      INTEGER, PARAMETER :: mcl_send_species_labels = -23
      INTEGER, PARAMETER :: mcl_send_particle_positions = -24
      INTEGER, PARAMETER :: mcl_recv_particle_positions = -25
      INTEGER, PARAMETER :: mcl_send_particle_forces = -26
      INTEGER, PARAMETER :: mcl_send_energy = -27
      INTEGER, PARAMETER :: mcl_send_box_origin = -28
      INTEGER, PARAMETER :: mcl_send_box_vectors = -29
      INTEGER, PARAMETER :: mcl_send_box_num_gridpoints = -30
      INTEGER, PARAMETER :: mcl_send_box_gridpoint_coords = -31
      INTEGER, PARAMETER :: mcl_send_density = -32
      INTEGER, PARAMETER :: mcl_recv_potential_on_gridpoints = -33
      INTEGER, PARAMETER :: mcl_send_reference_charges = -34
      INTEGER, PARAMETER :: mcl_compute_forces = -35
#endif
 
END MODULE mcl_requests