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

I just learned that FORALL is obsolescent in Fortran 2018; removed

Browse Source
This commit is contained in:
Karl Hammond
2022-10-05 14:30:02 -05:00
parent 7fa020e574
commit e3b5514b62
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
unittest/fortran/test_fortran_extract_variable.f90
View File

@ -107,9 +107,9 @@ FUNCTION f_lammps_with_C_args(argc, argv) BIND(C)
args(i) = ''
length = c_strlen(Fargv(i))
CALL C_F_POINTER(Fargv(i), Cstr, [length])
FORALL (j = 1:length)
DO j = 1, length
args(i)(j:j) = Cstr(j)
END FORALL
END DO
END DO
lmp = lammps(args)

6
unittest/fortran/test_fortran_properties.f90
View File

@ -43,10 +43,10 @@ FUNCTION f_lammps_extract_setting(Cstr) BIND(C)
i = i + 1
END DO
strlen = i
allocate (CHARACTER(LEN=strlen) :: Fstr)
FORALL (i=1:strlen)
ALLOCATE(CHARACTER(LEN=strlen) :: Fstr)
DO i = 1, strlen
Fstr(i:i) = Cstr(i)
END FORALL
END DO
f_lammps_extract_setting = lmp%extract_setting(Fstr)
DEALLOCATE(Fstr)
END FUNCTION f_lammps_extract_setting