setcor.f90 6.35 KB