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

use large string buffers to avoid truncation

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-10-03 17:58:14 -04:00
parent aff58465f2
commit 02158516f2
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
unittest/fortran/test_fortran_extract_variable.f90
View File

@ -87,7 +87,7 @@ FUNCTION f_lammps_with_C_args(argc, argv) BIND(C)
INTEGER(c_int), INTENT(IN), VALUE :: argc INTEGER(c_int), INTENT(IN), VALUE :: argc
TYPE(c_ptr), VALUE :: argv TYPE(c_ptr), VALUE :: argv
TYPE(c_ptr), DIMENSION(:), POINTER :: Fargv TYPE(c_ptr), DIMENSION(:), POINTER :: Fargv
INTEGER, PARAMETER :: ARG_LENGTH = 80 INTEGER, PARAMETER :: ARG_LENGTH = 256
TYPE(c_ptr) :: f_lammps_with_C_args TYPE(c_ptr) :: f_lammps_with_C_args
CHARACTER(LEN=ARG_LENGTH), DIMENSION(argc) :: args CHARACTER(LEN=ARG_LENGTH), DIMENSION(argc) :: args
CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Cstr CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Cstr
@ -179,7 +179,7 @@ FUNCTION f_lammps_extract_variable_index_1 () BIND(C)
USE keepstuff, ONLY : lmp USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int) :: f_lammps_extract_variable_index_1 INTEGER(c_int) :: f_lammps_extract_variable_index_1
CHARACTER(LEN=80) :: str CHARACTER(LEN=256) :: str
str = lmp%extract_variable("idx") str = lmp%extract_variable("idx")
IF ( trim(str) == 'hello' ) THEN IF ( trim(str) == 'hello' ) THEN
@ -195,7 +195,7 @@ FUNCTION f_lammps_extract_variable_index_2 () BIND(C)
USE keepstuff, ONLY : lmp USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int) :: f_lammps_extract_variable_index_2 INTEGER(c_int) :: f_lammps_extract_variable_index_2
CHARACTER(LEN=80) :: str CHARACTER(LEN=256) :: str
str = lmp%extract_variable("idx") str = lmp%extract_variable("idx")
IF ( trim(str) == 'goodbye' ) THEN IF ( trim(str) == 'goodbye' ) THEN
@ -211,7 +211,7 @@ FUNCTION f_lammps_extract_variable_loop () BIND(C)
USE keepstuff, ONLY : lmp USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int) :: f_lammps_extract_variable_loop INTEGER(c_int) :: f_lammps_extract_variable_loop
CHARACTER(LEN=80) :: loop CHARACTER(LEN=256) :: loop
loop = lmp%extract_variable('lp') loop = lmp%extract_variable('lp')
READ(loop,*) f_lammps_extract_variable_loop READ(loop,*) f_lammps_extract_variable_loop
@ -262,7 +262,7 @@ FUNCTION f_lammps_extract_variable_uloop () BIND(C)
USE keepstuff, ONLY : lmp USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int) :: f_lammps_extract_variable_uloop INTEGER(c_int) :: f_lammps_extract_variable_uloop
CHARACTER(LEN=80) :: uloop CHARACTER(LEN=256) :: uloop
uloop = lmp%extract_variable('ulp') uloop = lmp%extract_variable('ulp')
READ(uloop,*) f_lammps_extract_variable_uloop READ(uloop,*) f_lammps_extract_variable_uloop
@ -275,7 +275,7 @@ FUNCTION f_lammps_extract_variable_string () BIND(C)
USE keepvar, ONLY : f2c_string USE keepvar, ONLY : f2c_string
IMPLICIT NONE IMPLICIT NONE
TYPE(c_ptr) :: f_lammps_extract_variable_string TYPE(c_ptr) :: f_lammps_extract_variable_string
CHARACTER(LEN=40) :: string CHARACTER(LEN=256) :: string
string = lmp%extract_variable('str') string = lmp%extract_variable('str')
f_lammps_extract_variable_string = f2c_string(string) f_lammps_extract_variable_string = f2c_string(string)