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

fix bug in f2c string conversion detected by bound checking

Browse Source
This commit is contained in:
Axel Kohlmeyer
2024-03-18 10:27:38 -04:00
parent 505f7b3cb4
commit 41ee1efa13
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/lammps.f90
View File

@ -3687,7 +3687,7 @@ CONTAINS
n = LEN_TRIM(f_string) n = LEN_TRIM(f_string)
ptr = lammps_malloc(n+1) ptr = lammps_malloc(n+1)
CALL C_F_POINTER(ptr, c_string, [1]) CALL C_F_POINTER(ptr, c_string, [n+1])
DO i=1, n DO i=1, n
c_string(i) = f_string(i:i) c_string(i) = f_string(i:i)
END DO END DO