readmat_shuffle2.f90 44.9 KB