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

unit tests for has_style, style_count, and style_name; added them to docs

Browse Source
This commit is contained in:
Karl Hammond
2022-10-20 23:22:43 -05:00
parent 60318a5a26
commit 112d616e57
3 changed files with 126 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
unittest/fortran/test_fortran_configuration.f90
View File

@ -143,10 +143,6 @@ FUNCTION f_lammps_package_name(idx) BIND(C)
END IF
END FUNCTION f_lammps_package_name
FUNCTION f_lammps_config_accelerator(package, category, setting) BIND(C)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_ptr, c_size_t, c_char, &
C_F_POINTER
@ -214,3 +210,33 @@ FUNCTION f_lammps_get_gpu_info(buf_size) RESULT(info) BIND(C)
CALL lmp%get_gpu_device_info(string)
info = f2c_string(string)
END FUNCTION f_lammps_get_gpu_info
FUNCTION f_lammps_has_style(Ccategory, Cname) BIND(C)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_size_t, c_ptr, c_char, c_int, &
C_F_POINTER
USE keepstuff, ONLY : lmp, c_strlen
IMPLICIT NONE
TYPE(c_ptr), INTENT(IN), VALUE :: Ccategory, Cname
INTEGER(c_int) :: f_lammps_has_style
CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Fcategory, Fname
INTEGER(c_size_t) :: category_len, name_len, i
CHARACTER(LEN=:), ALLOCATABLE :: category, name
category_len = c_strlen(Ccategory)
name_len = c_strlen(Cname)
CALL C_F_POINTER(Ccategory, Fcategory, [category_len])
CALL C_F_POINTER(Cname, Fname, [name_len])
ALLOCATE(CHARACTER(LEN=category_len) :: category)
ALLOCATE(CHARACTER(LEN=name_len) :: name)
DO i = 1, category_len
category(i:i) = Fcategory(i)
END DO
DO i = 1, name_len
name(i:i) = Fname(i)
END DO
IF (lmp%has_style(category, name)) THEN
f_lammps_has_style = 1_c_int
ELSE
f_lammps_has_style = 0_c_int
END IF
END FUNCTION f_lammps_has_style