2 module fox_m_fsys_format
4 module procedure str_real_dp_len
, str_real_dp_fmt_len
7 pure
function str_real_dp_fmt_len(x
, fmt
) result(n
)
9 character(len
=*), intent(in
) :: fmt
10 if (.not
.checkFmt(fmt
)) then
12 end function str_real_dp_fmt_len
13 pure
function str_real_dp_len(x
) result(n
)
15 end function str_real_dp_len
16 pure
function str_real_dp_array_len(xa
) result(n
)
17 real, dimension(:), intent(in
) :: xa
18 end function str_real_dp_array_len
19 pure
function str_real_dp_array_fmt_len(xa
, fmt
) result(n
)
20 real, dimension(:), intent(in
) :: xa
21 character(len
=*), intent(in
) :: fmt
22 end function str_real_dp_array_fmt_len
23 pure
function str_real_dp_fmt(x
, fmt
) result(s
)
25 character(len
=*), intent(in
) :: fmt
26 character(len
=len(x
, fmt
)) :: s
27 end function str_real_dp_fmt
28 pure
function checkFmt(fmt
) result(good
)
29 character(len
=*), intent(in
) :: fmt
32 end module fox_m_fsys_format