readmat_shuffle2.f90 44.8 KB