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

clear memory before use

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-12-19 20:42:15 -05:00
parent a4f2e452e0
commit c160eb7f11
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
unittest/fortran/test_fortran_properties.f90
View File

@ -72,10 +72,12 @@ FUNCTION f_lammps_get_last_error_message(errmesg, errlen) BIND(C)
CALL lmp%get_last_error_message(buffer, status) CALL lmp%get_last_error_message(buffer, status)
f_lammps_get_last_error_message = status f_lammps_get_last_error_message = status
! and copy to C style string ! and copy to C style string
errmesg(1:errlen) = c_null_char
DO i=1, errlen DO i=1, errlen
errmesg(i) = buffer(i:i) errmesg(i) = buffer(i:i)
IF (buffer(i:i) == c_null_char) EXIT IF (buffer(i:i) == c_null_char) EXIT
END DO END DO
errmesg(errlen) = c_null_char
DEALLOCATE(buffer) DEALLOCATE(buffer)
END FUNCTION f_lammps_get_last_error_message END FUNCTION f_lammps_get_last_error_message