setcor.f90 7.59 KB