2 module fox_m_fsys_format
5 module procedure str_real_sp_len
, str_real_sp_fmt_len
10 pure
function str_real_sp_fmt_len(x
, fmt
) result(n
)
12 character(len
=*), intent(in
) :: fmt
13 if (.not
.checkFmt(fmt
)) then
15 end function str_real_sp_fmt_len
16 pure
function str_real_sp_len(x
) result(n
)
19 end function str_real_sp_len
20 pure
function str_real_dp_matrix(xa
) result(s
)
21 real, intent(in
) :: xa
22 character(len
=len(xa
)) :: s
23 end function str_real_dp_matrix
25 pure
function checkfmt(s
) result(a
)
27 character(len
=*), intent(in
) :: s
29 end module fox_m_fsys_format