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

Added lammps_has_error

This commit is contained in:
Karl Hammond 2022-09-26 08:57:03 -05:00
parent bada1fb348
commit 7cd5d7b357
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fortran/lammps.f90
View File

@ -414,7 +414,11 @@ MODULE LIBLAMMPS
!SUBROUTINE lammps_force_timeout
!LOGICAL FUNCTION lammps_has_error
INTEGER (C_int) FUNCTION lammps_has_error (handle) BIND(C)
IMPORT :: C_ptr, C_int
IMPLICIT NONE
TYPE(C_ptr), VALUE :: handle
END FUNCTION lammps_has_error
!INTEGER (c_int) FUNCTION lammps_get_last_error_message
@ -844,6 +848,15 @@ CONTAINS
lmp_version = lammps_version(self%handle)
END FUNCTION lmp_version
! equivalent function to lammps_has_error
LOGICAL FUNCTION lmp_has_error(self)
CLASS(lammps), INTENT(IN) :: self
INTEGER(C_int) :: has_error
has_error = lammps_has_error(self%handle)
lmp_has_error = (has_error /= 0_C_int)
END FUNCTION lmp_has_error
! equivalent function to lammps_is_running
LOGICAL FUNCTION lmp_is_running(self)
CLASS(lammps), INTENT(IN) :: self