ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

silence compiler warnings

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-10-31 13:06:03 -04:00
parent c214a81526
commit 23c22b4f4f
3 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
unittest/fortran/test_fortran_configuration.f90
View File

@ -132,8 +132,7 @@ FUNCTION f_lammps_has_package(Cname) BIND(C)
INTEGER(c_int) :: f_lammps_has_package INTEGER(c_int) :: f_lammps_has_package
CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Fname CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Fname
CHARACTER(LEN=:), ALLOCATABLE :: name CHARACTER(LEN=:), ALLOCATABLE :: name
INTEGER(c_size_t) :: length INTEGER(c_size_t) :: length, i
INTEGER :: i
length = c_strlen(Cname) length = c_strlen(Cname)
CALL C_F_POINTER(Cname, Fname, [length]) CALL C_F_POINTER(Cname, Fname, [length])
@ -198,10 +197,9 @@ FUNCTION f_lammps_config_accelerator(package, category, setting) BIND(C)
IMPLICIT NONE IMPLICIT NONE
TYPE(c_ptr), VALUE :: package, category, setting TYPE(c_ptr), VALUE :: package, category, setting
INTEGER(c_int) :: f_lammps_config_accelerator INTEGER(c_int) :: f_lammps_config_accelerator
INTEGER(c_size_t) :: len_package, len_category, len_setting INTEGER(c_size_t) :: len_package, len_category, len_setting, i
CHARACTER(LEN=1,KIND=c_char), POINTER :: Cpackage(:),Ccategory(:),Csetting(:) CHARACTER(LEN=1,KIND=c_char), POINTER :: Cpackage(:),Ccategory(:),Csetting(:)
CHARACTER(LEN=:), ALLOCATABLE :: Fpackage, Fcategory, Fsetting CHARACTER(LEN=:), ALLOCATABLE :: Fpackage, Fcategory, Fsetting
INTEGER :: i
LOGICAL :: configured LOGICAL :: configured
len_package = c_strlen(package) len_package = c_strlen(package)

2
unittest/fortran/test_fortran_create_atoms.f90
View File

@ -24,7 +24,7 @@ END SUBROUTINE f_lammps_close
SUBROUTINE f_lammps_setup_create_atoms() BIND(C) SUBROUTINE f_lammps_setup_create_atoms() BIND(C)
USE LIBLAMMPS USE LIBLAMMPS
USE keepstuff, ONLY : lmp, big_input, cont_input, more_input, pair_input USE keepstuff, ONLY : lmp, big_input, cont_input, more_input
IMPLICIT NONE IMPLICIT NONE
!CALL lmp%command('atom_modify map array') !CALL lmp%command('atom_modify map array')

4
unittest/fortran/test_fortran_gather_scatter.f90
View File

@ -228,7 +228,7 @@ END SUBROUTINE f_lammps_setup_gather_bonds
FUNCTION f_lammps_test_gather_bonds_small() BIND(C) RESULT(success) FUNCTION f_lammps_test_gather_bonds_small() BIND(C) RESULT(success)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t
USE LIBLAMMPS USE LIBLAMMPS
USE keepstuff, ONLY : lmp, pair_input USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int) :: success INTEGER(c_int) :: success
INTEGER(c_int), DIMENSION(:), ALLOCATABLE, TARGET :: bonds INTEGER(c_int), DIMENSION(:), ALLOCATABLE, TARGET :: bonds
@ -247,7 +247,7 @@ END FUNCTION f_lammps_test_gather_bonds_small
FUNCTION f_lammps_test_gather_bonds_big() BIND(C) RESULT(success) FUNCTION f_lammps_test_gather_bonds_big() BIND(C) RESULT(success)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t
USE LIBLAMMPS USE LIBLAMMPS
USE keepstuff, ONLY : lmp, pair_input USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int) :: success INTEGER(c_int) :: success
INTEGER(c_int64_t), DIMENSION(:), ALLOCATABLE, TARGET :: bonds INTEGER(c_int64_t), DIMENSION(:), ALLOCATABLE, TARGET :: bonds