funct.f90 109 KB