调用module程序出错

Transpose

第一步不对

[Fortran] 纯文本查看 复制代码

module MyPrec
    implicit none

    integer, parameter :: rp = selected_real_kind(p = 50)!保存50位浮点数

end module

精度最大是33（real(kind=16），没有50精度的