functionals.f90 86.9 KB