setcor.f90 7.63 KB