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

Implemented decode_image_flags and its unit test; updated documentation

Browse Source
This commit is contained in:
Karl Hammond
2022-10-20 00:27:57 -05:00
parent b51c50294e
commit 34121e5545
4 changed files with 135 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
unittest/fortran/test_fortran_properties.f90
View File

@ -110,3 +110,25 @@ FUNCTION f_lammps_get_image_flags_bigint(ix, iy, iz) BIND(C)
f_lammps_get_image_flags_bigint = lmp%encode_image_flags(ix, iy, iz)
END FUNCTION f_lammps_get_image_flags_bigint
SUBROUTINE f_lammps_decode_image_flags(image, flag) BIND(C)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int
USE keepstuff, ONLY : lmp
USE LIBLAMMPS
IMPLICIT NONE
INTEGER(c_int), INTENT(IN), VALUE :: image
INTEGER(c_int), INTENT(OUT) :: flag(3)
CALL lmp%decode_image_flags(image, flag)
END SUBROUTINE f_lammps_decode_image_flags
SUBROUTINE f_lammps_decode_image_flags_bigbig(image, flag) BIND(C)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t
USE keepstuff, ONLY : lmp
USE LIBLAMMPS
IMPLICIT NONE
INTEGER(c_int64_t), INTENT(IN), VALUE :: image
INTEGER(c_int), INTENT(OUT) :: flag(3)
CALL lmp%decode_image_flags(image, flag)
END SUBROUTINE f_lammps_decode_image_flags_bigbig