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

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

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)