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
CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Fname
CHARACTER(LEN=:), ALLOCATABLE :: name
INTEGER(c_size_t) :: length
INTEGER :: i
INTEGER(c_size_t) :: length, i
length = c_strlen(Cname)
CALL C_F_POINTER(Cname, Fname, [length])
@ -198,10 +197,9 @@ FUNCTION f_lammps_config_accelerator(package, category, setting) BIND(C)
IMPLICIT NONE
TYPE(c_ptr), VALUE :: package, category, setting
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=:), ALLOCATABLE :: Fpackage, Fcategory, Fsetting
INTEGER :: i
LOGICAL :: configured
len_package = c_strlen(package)