lijiext
/
lammps
mirror of https://github.com/lammps/lammps.git
1
0
Fork 1
Code Issues Packages Projects Releases Wiki Activity

Added part of lmp_extract_global

This commit is contained in:
Karl Hammond 2022-08-10 11:37:15 -05:00
parent f442fc8540
commit 89b9967f2c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fortran/lammps.f90
View File

@ -83,6 +83,8 @@ MODULE LIBLAMMPS
PROCEDURE :: memory_usage => lmp_memory_usage
PROCEDURE :: get_mpi_comm => lmp_get_mpi_comm
PROCEDURE :: extract_setting => lmp_extract_setting
PROCEDURE, PRIVATE :: lmp_extract_global_int
GENERIC :: extract_global => lmp_extract_global_int ! TODO
PROCEDURE :: version => lmp_version
END TYPE lammps
@ -541,6 +543,7 @@ CONTAINS
datatype = lammps_extract_global_datatype(self%handle, Cname)
IF ( datatype /= LAMMPS_INT ) THEN
! throw an exception or something; data type doesn't match!
WRITE(0,*) 'WARNING: global data type is inconsistent'
END IF
Cptr = lammps_extract_global(self%handle, Cname)
CALL c_f_pointer(Cptr, ptr)