\hypertarget{dcstringfprintf_8f90}{}\section{dc\+\_\+utils/dcstringfprintf.f90 File Reference}
\label{dcstringfprintf_8f90}\index{dc\+\_\+utils/dcstringfprintf.\+f90@{dc\+\_\+utils/dcstringfprintf.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{dcstringfprintf_8f90_addc55279597a0d251dd5005c975c0660}{dcstringfprintf} (unit, fmt, i, r, d, L, n, c1, c2, c3, ca)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcstringfprintf_8f90_addc55279597a0d251dd5005c975c0660}\label{dcstringfprintf_8f90_addc55279597a0d251dd5005c975c0660}} 
\index{dcstringfprintf.\+f90@{dcstringfprintf.\+f90}!dcstringfprintf@{dcstringfprintf}}
\index{dcstringfprintf@{dcstringfprintf}!dcstringfprintf.\+f90@{dcstringfprintf.\+f90}}
\subsubsection{\texorpdfstring{dcstringfprintf()}{dcstringfprintf()}}
{\footnotesize\ttfamily subroutine dcstringfprintf (\begin{DoxyParamCaption}\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in)}]{fmt,  }\item[{integer, dimension(\+:), intent(in), optional}]{i,  }\item[{real(sp), dimension(\+:), intent(in), optional}]{r,  }\item[{real(dp), dimension(\+:), intent(in), optional}]{d,  }\item[{logical, dimension(\+:), intent(in), optional}]{L,  }\item[{integer, dimension(\+:), intent(in), optional}]{n,  }\item[{character($\ast$), intent(in), optional}]{c1,  }\item[{character($\ast$), intent(in), optional}]{c2,  }\item[{character($\ast$), intent(in), optional}]{c3,  }\item[{character($\ast$), dimension(\+:), intent(in), optional}]{ca }\end{DoxyParamCaption})}



Definition at line 16 of file dcstringfprintf.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.


\begin{DoxyCode}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! フォーマット文字列 fmt に従って変換された文字列を}
18   \textcolor{comment}{! 装置番号 unit に返します。unit を省略する場合には標準出力に返します。}
19   \textcolor{comment}{! 第2引数 fmt には指示子を含む文字列を与えます。}
20   \textcolor{comment}{! 指示子には「<tt>%</tt>」を用います。}
21   \textcolor{comment}{! <tt>%</tt> を用いたい場合は 「<tt>%%</tt>」と記述します。}
22   \textcolor{comment}{! 指示子および用例に関しての詳細は dc\_utils/dcstringsprintf.f90 を参照ください。}
23   \textcolor{comment}{!}
24   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp},\hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
25   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: printf
26   \textcolor{keywordtype}{implicit none}
27   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
28   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: fmt
29   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: i(:), n(:)
30   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: r(:)
31   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: d(:)
32   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: l(:)
33   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: c1, c2, c3
34   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ca(:)
35   \textcolor{keywordtype}{character(STRING)}:: buf
36   \textcolor{keywordflow}{continue}
37   \textcolor{keyword}{call }printf(buf, fmt, i=i, r=r, d=d, l=l, n=n, &
38     & c1=c1, c2=c2, c3=c3, ca=ca)
39   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(unit)) \textcolor{keywordflow}{then}
40     \textcolor{keyword}{write}(unit, \textcolor{stringliteral}{'(A)'}) trim(buf)
41   \textcolor{keywordflow}{else}
42     \textcolor{keyword}{write}(*, \textcolor{stringliteral}{'(A)'}) trim(buf)
43 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
