comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

grid: Avoid name collision of C-bound procedures

Browse source
This commit is contained in:
Ole Schütt 2022-02-17 11:27:54 +01:00 • committed by Ole Schütt
parent 903cfe99f3
commit 2052087cfa
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/grid/grid_api.F
View file

@ -1230,7 +1230,7 @@ CONTAINS
!> \param mpi_comm ...
!> \author Ole Schuett
! **************************************************************************************************
SUBROUTINE mpi_sum_func(number, mpi_comm) BIND(C)
SUBROUTINE mpi_sum_func(number, mpi_comm) BIND(C, name="grid_api_mpi_sum_func")
INTEGER(KIND=C_LONG), INTENT(INOUT) :: number
INTEGER(KIND=C_INT), INTENT(IN), VALUE :: mpi_comm
@ -1243,7 +1243,7 @@ CONTAINS
!> \param output_unit ...
!> \author Ole Schuett
! **************************************************************************************************
SUBROUTINE print_func(message, output_unit) BIND(C)
SUBROUTINE print_func(message, output_unit) BIND(C, name="grid_api_print_func")
CHARACTER(LEN=1, KIND=C_CHAR), INTENT(IN) :: message(*)
INTEGER(KIND=C_INT), INTENT(IN), VALUE :: output_unit