pr40982.f90 3.5 KB