\hypertarget{interfacedc__string_1_1tochar}{}\section{dc\+\_\+string\+:\+:tochar Interface Reference}
\label{interfacedc__string_1_1tochar}\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
character(token) function \hyperlink{interfacedc__string_1_1tochar_a9af217fa18a233a8d83a8fe5757cdffa}{itoa\+\_\+scalar} (i)
\item 
character(string) function \hyperlink{interfacedc__string_1_1tochar_a2fe630df2251cd99215b99b1cac9598f}{itoa\+\_\+array} (ibuf)
\item 
character(token) function \hyperlink{interfacedc__string_1_1tochar_a73000baab0219bf03079d60ff23cbdae}{rtoa\+\_\+scalar} (x)
\item 
character(string) function \hyperlink{interfacedc__string_1_1tochar_a832bbf1bc2222f9dc554b62a9309eab6}{rtoa\+\_\+array} (rbuf)
\item 
character(token) function \hyperlink{interfacedc__string_1_1tochar_af9fbecc703abae7caa06d495ba8fc37c}{dtoa\+\_\+scalar} (d)
\item 
character(string) function \hyperlink{interfacedc__string_1_1tochar_a1a36a5103adbc0ac93bdc98075d2481c}{dtoa\+\_\+array} (dbuf)
\item 
character(token) function \hyperlink{interfacedc__string_1_1tochar_abc698e9ea72136df46d101d2c2d6b488}{ltoa\+\_\+scalar} (l)
\item 
character(string) function \hyperlink{interfacedc__string_1_1tochar_a66fc51242e3d0a3f0f2933d3e043e69f}{ltoa\+\_\+array} (lbuf)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


Definition at line 73 of file dc\+\_\+string.\+f90.



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_a1a36a5103adbc0ac93bdc98075d2481c}\label{interfacedc__string_1_1tochar_a1a36a5103adbc0ac93bdc98075d2481c}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!dtoa\+\_\+array@{dtoa\+\_\+array}}
\index{dtoa\+\_\+array@{dtoa\+\_\+array}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{dtoa\+\_\+array()}{dtoa\_array()}}
{\footnotesize\ttfamily character(string) function dc\+\_\+string\+::tochar\+::dtoa\+\_\+array (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:), intent(in)}]{dbuf }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 804 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
804     \textcolor{comment}{!}
805     \textcolor{comment}{! 倍精度実数型配列 dbuf(:) で与えられる数値を文字型変数にして返します。}
806     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
807     \textcolor{comment}{! で区切って返します。}
808     \textcolor{comment}{!}
809     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: dbuf(:)
810     \textcolor{keywordtype}{integer}:: i
811   \textcolor{keywordflow}{continue}
812     \textcolor{keywordflow}{if} (\textcolor{keyword}{size}(dbuf) <= 0) \textcolor{keywordflow}{then}
813       result = \textcolor{stringliteral}{""}
814       \textcolor{keywordflow}{return}
815 \textcolor{keywordflow}{    endif}
816     result = \hyperlink{interfacedc__string_1_1tochar}{tochar}(dbuf(1))
817     \textcolor{keywordflow}{do}, i = 2, \textcolor{keyword}{size}(dbuf)
818       result = trim(result) // \textcolor{stringliteral}{", "} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(dbuf(i)))
819 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_af9fbecc703abae7caa06d495ba8fc37c}\label{interfacedc__string_1_1tochar_af9fbecc703abae7caa06d495ba8fc37c}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!dtoa\+\_\+scalar@{dtoa\+\_\+scalar}}
\index{dtoa\+\_\+scalar@{dtoa\+\_\+scalar}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{dtoa\+\_\+scalar()}{dtoa\_scalar()}}
{\footnotesize\ttfamily character(token) function dc\+\_\+string\+::tochar\+::dtoa\+\_\+scalar (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{d }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 777 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
777     \textcolor{comment}{!}
778     \textcolor{comment}{! 倍精度実数型変数 d で与えられる数値を文字型変数にして返します。}
779     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
780     \textcolor{comment}{! で区切って返します。}
781     \textcolor{comment}{!}
782     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: d
783     \textcolor{keywordtype}{character(len = 32)}:: buffer, expbuf
784     \textcolor{keywordtype}{integer}:: ptr, eptr
785   \textcolor{keywordflow}{continue}
786     \textcolor{keyword}{write}(unit=buffer, fmt=\textcolor{stringliteral}{"(g32.24)"}) d
787     eptr = scan(buffer, \textcolor{stringliteral}{"eE"}, back=.true.)
788     expbuf = \textcolor{stringliteral}{''}
789     \textcolor{keywordflow}{if} (eptr > 1) \textcolor{keywordflow}{then}
790       expbuf = buffer(eptr: )
791       buffer(eptr: ) = \textcolor{stringliteral}{" "}
792 \textcolor{keywordflow}{    end if}
793 
794     ptr = verify(buffer, \textcolor{stringliteral}{" 0"}, back=.true.)
795     \textcolor{keywordflow}{if} (ptr > 0) buffer(ptr+1: ) = \textcolor{stringliteral}{" "}
796 
797     \textcolor{keywordflow}{if} (eptr > 1) \textcolor{keywordflow}{then}
798       buffer = buffer(1:len\_trim(buffer)) // expbuf
799 \textcolor{keywordflow}{    end if}
800     result = adjustl(buffer)
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_a2fe630df2251cd99215b99b1cac9598f}\label{interfacedc__string_1_1tochar_a2fe630df2251cd99215b99b1cac9598f}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!itoa\+\_\+array@{itoa\+\_\+array}}
\index{itoa\+\_\+array@{itoa\+\_\+array}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{itoa\+\_\+array()}{itoa\_array()}}
{\footnotesize\ttfamily character(string) function dc\+\_\+string\+::tochar\+::itoa\+\_\+array (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{ibuf }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 712 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
712     \textcolor{comment}{!}
713     \textcolor{comment}{! 整数型配列変数 ibuf(:) で与えられる数値を文字型変数にして返します。}
714     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
715     \textcolor{comment}{! で区切って返します。}
716     \textcolor{comment}{!}
717     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: ibuf(:)
718     \textcolor{keywordtype}{integer}:: i
719   \textcolor{keywordflow}{continue}
720     \textcolor{keywordflow}{if} (\textcolor{keyword}{size}(ibuf) <= 0) \textcolor{keywordflow}{then}
721       result = \textcolor{stringliteral}{""}
722       \textcolor{keywordflow}{return}
723 \textcolor{keywordflow}{    endif}
724     result = \hyperlink{interfacedc__string_1_1tochar}{tochar}(ibuf(1))
725     \textcolor{keywordflow}{do}, i = 2, \textcolor{keyword}{size}(ibuf)
726       result = trim(result) // \textcolor{stringliteral}{", "} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ibuf(i)))
727 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_a9af217fa18a233a8d83a8fe5757cdffa}\label{interfacedc__string_1_1tochar_a9af217fa18a233a8d83a8fe5757cdffa}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!itoa\+\_\+scalar@{itoa\+\_\+scalar}}
\index{itoa\+\_\+scalar@{itoa\+\_\+scalar}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{itoa\+\_\+scalar()}{itoa\_scalar()}}
{\footnotesize\ttfamily character(token) function dc\+\_\+string\+::tochar\+::itoa\+\_\+scalar (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{i }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 699 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
699     \textcolor{comment}{!}
700     \textcolor{comment}{! 整数型変数 i で与えられる数値を文字型変数にして返します。}
701     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
702     \textcolor{comment}{! で区切って返します。}
703     \textcolor{comment}{!}
704     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: i
705     \textcolor{keywordtype}{character(len = 32)}:: buffer
706   \textcolor{keywordflow}{continue}
707     \textcolor{keyword}{write}(unit=buffer, fmt=\textcolor{stringliteral}{"(i20)"}) i
708     result = adjustl(buffer)
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_a66fc51242e3d0a3f0f2933d3e043e69f}\label{interfacedc__string_1_1tochar_a66fc51242e3d0a3f0f2933d3e043e69f}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!ltoa\+\_\+array@{ltoa\+\_\+array}}
\index{ltoa\+\_\+array@{ltoa\+\_\+array}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{ltoa\+\_\+array()}{ltoa\_array()}}
{\footnotesize\ttfamily character(string) function dc\+\_\+string\+::tochar\+::ltoa\+\_\+array (\begin{DoxyParamCaption}\item[{logical, dimension(\+:), intent(in)}]{lbuf }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 838 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
838     \textcolor{comment}{!}
839     \textcolor{comment}{! 論理型配列 lbuf(:) で与えられる数値を文字型変数にして返します。}
840     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
841     \textcolor{comment}{! で区切って返します。}
842     \textcolor{comment}{!}
843     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: lbuf(:)
844     \textcolor{keywordtype}{integer}:: i
845   \textcolor{keywordflow}{continue}
846     \textcolor{keywordflow}{if} (\textcolor{keyword}{size}(lbuf) <= 0) \textcolor{keywordflow}{then}
847       result = \textcolor{stringliteral}{""}
848       \textcolor{keywordflow}{return}
849 \textcolor{keywordflow}{    endif}
850     result = \hyperlink{interfacedc__string_1_1tochar}{tochar}(lbuf(1))
851     \textcolor{keywordflow}{do}, i = 2, \textcolor{keyword}{size}(lbuf)
852       result = trim(result) // \textcolor{stringliteral}{", "} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbuf(i)))
853 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_abc698e9ea72136df46d101d2c2d6b488}\label{interfacedc__string_1_1tochar_abc698e9ea72136df46d101d2c2d6b488}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!ltoa\+\_\+scalar@{ltoa\+\_\+scalar}}
\index{ltoa\+\_\+scalar@{ltoa\+\_\+scalar}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{ltoa\+\_\+scalar()}{ltoa\_scalar()}}
{\footnotesize\ttfamily character(token) function dc\+\_\+string\+::tochar\+::ltoa\+\_\+scalar (\begin{DoxyParamCaption}\item[{logical, intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 823 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
823     \textcolor{comment}{!}
824     \textcolor{comment}{! 論理型変数 l で与えられる数値を文字型変数にして返します。}
825     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
826     \textcolor{comment}{! で区切って返します。}
827     \textcolor{comment}{!}
828     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: l
829   \textcolor{keywordflow}{continue}
830     \textcolor{keywordflow}{if} (l) \textcolor{keywordflow}{then}
831       result = \textcolor{stringliteral}{".true."}
832     \textcolor{keywordflow}{else}
833       result = \textcolor{stringliteral}{".false."}
834 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_a832bbf1bc2222f9dc554b62a9309eab6}\label{interfacedc__string_1_1tochar_a832bbf1bc2222f9dc554b62a9309eab6}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!rtoa\+\_\+array@{rtoa\+\_\+array}}
\index{rtoa\+\_\+array@{rtoa\+\_\+array}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{rtoa\+\_\+array()}{rtoa\_array()}}
{\footnotesize\ttfamily character(string) function dc\+\_\+string\+::tochar\+::rtoa\+\_\+array (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in)}]{rbuf }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 758 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
758     \textcolor{comment}{!}
759     \textcolor{comment}{! 単精度実数型配列 rbuf(:)、で与えられる数値を文字型変数にして返します。}
760     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
761     \textcolor{comment}{! で区切って返します。}
762     \textcolor{comment}{!}
763     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: rbuf(:)
764     \textcolor{keywordtype}{integer}:: i
765   \textcolor{keywordflow}{continue}
766     \textcolor{keywordflow}{if} (\textcolor{keyword}{size}(rbuf) <= 0) \textcolor{keywordflow}{then}
767       result = \textcolor{stringliteral}{""}
768       \textcolor{keywordflow}{return}
769 \textcolor{keywordflow}{    endif}
770     result = \hyperlink{interfacedc__string_1_1tochar}{tochar}(rbuf(1))
771     \textcolor{keywordflow}{do}, i = 2, \textcolor{keyword}{size}(rbuf)
772       result = trim(result) // \textcolor{stringliteral}{", "} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(rbuf(i)))
773 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1tochar_a73000baab0219bf03079d60ff23cbdae}\label{interfacedc__string_1_1tochar_a73000baab0219bf03079d60ff23cbdae}} 
\index{dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}!rtoa\+\_\+scalar@{rtoa\+\_\+scalar}}
\index{rtoa\+\_\+scalar@{rtoa\+\_\+scalar}!dc\+\_\+string\+::tochar@{dc\+\_\+string\+::tochar}}
\subsubsection{\texorpdfstring{rtoa\+\_\+scalar()}{rtoa\_scalar()}}
{\footnotesize\ttfamily character(token) function dc\+\_\+string\+::tochar\+::rtoa\+\_\+scalar (\begin{DoxyParamCaption}\item[{real, intent(in)}]{x }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 731 of file dc\+\_\+string.\+f90.


\begin{DoxyCode}
731     \textcolor{comment}{!}
732     \textcolor{comment}{! 単精度実数型変数 x で与えられる数値を文字型変数にして返します。}
733     \textcolor{comment}{! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」}
734     \textcolor{comment}{! で区切って返します。}
735     \textcolor{comment}{!}
736     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: x
737     \textcolor{keywordtype}{character(len = 16)}:: buffer, expbuf
738     \textcolor{keywordtype}{integer}:: ptr, eptr
739   \textcolor{keywordflow}{continue}
740     \textcolor{keyword}{write}(unit=buffer, fmt=\textcolor{stringliteral}{"(g16.8)"}) x
741     eptr = scan(buffer, \textcolor{stringliteral}{"eE"}, back=.true.)
742     expbuf = \textcolor{stringliteral}{''}
743     \textcolor{keywordflow}{if} (eptr > 1) \textcolor{keywordflow}{then}
744       expbuf = buffer(eptr: )
745       buffer(eptr: ) = \textcolor{stringliteral}{" "}
746 \textcolor{keywordflow}{    end if}
747 
748     ptr = verify(buffer, \textcolor{stringliteral}{" 0"}, back=.true.)
749     \textcolor{keywordflow}{if} (ptr > 0) buffer(ptr+1: ) = \textcolor{stringliteral}{" "}
750 
751     \textcolor{keywordflow}{if} (eptr > 1) \textcolor{keywordflow}{then}
752       buffer = buffer(1:len\_trim(buffer)) // expbuf
753 \textcolor{keywordflow}{    end if}
754     result = adjustl(buffer)
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
dc\+\_\+utils/\hyperlink{dc__string_8f90}{dc\+\_\+string.\+f90}\end{DoxyCompactItemize}
