\hypertarget{interfacedc__string_1_1stod}{}\section{dc\+\_\+string\+:\+:stod Interface Reference}
\label{interfacedc__string_1_1stod}\index{dc\+\_\+string\+::stod@{dc\+\_\+string\+::stod}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
real(dp) function \hyperlink{interfacedc__string_1_1stod_a4d92540cbc336c8d74112910a05151b2}{atod\+\_\+scalar} (string\+\_\+in)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__string_1_1stod_a4d92540cbc336c8d74112910a05151b2}\label{interfacedc__string_1_1stod_a4d92540cbc336c8d74112910a05151b2}} 
\index{dc\+\_\+string\+::stod@{dc\+\_\+string\+::stod}!atod\+\_\+scalar@{atod\+\_\+scalar}}
\index{atod\+\_\+scalar@{atod\+\_\+scalar}!dc\+\_\+string\+::stod@{dc\+\_\+string\+::stod}}
\subsubsection{\texorpdfstring{atod\+\_\+scalar()}{atod\_scalar()}}
{\footnotesize\ttfamily real(dp) function dc\+\_\+string\+::stod\+::atod\+\_\+scalar (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(in)}]{string\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
557     \textcolor{comment}{!}
558     \textcolor{comment}{! string で与えられる文字型変数を、倍精度実数型変数にして返します。}
559     \textcolor{comment}{! もしも string が数値に変換できない場合、0.0 が返ります。}
560     \textcolor{comment}{!}
561     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
562     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: string\_in
563     \textcolor{keywordtype}{integer}:: ios
564     \textcolor{keywordtype}{character(len = STRING)}:: buffer
565     \textcolor{keywordtype}{integer}:: ipoint, iexp
566     \textcolor{keywordtype}{intrinsic} scan
567 
568     \textcolor{keywordflow}{continue}
569 
570     buffer = string\_in
571     \textcolor{comment}{! もし整定数をいれてしまった場合は小数点を附加}
572     \textcolor{keywordflow}{if} (index(buffer, \textcolor{stringliteral}{'.'}) == 0) \textcolor{keywordflow}{then}
573       iexp = scan(buffer, \textcolor{stringliteral}{"eEdD"})
574       \textcolor{keywordflow}{if} (iexp /= 0) \textcolor{keywordflow}{then}
575         buffer(iexp+1: len(buffer)) = buffer(iexp: len(buffer)-1)
576         ipoint = iexp
577       \textcolor{keywordflow}{else}
578         ipoint = len\_trim(buffer) + 1
579 \textcolor{keywordflow}{      endif}
580       buffer(ipoint: ipoint) = \textcolor{stringliteral}{'.'}
581 \textcolor{keywordflow}{    endif}
582     \textcolor{keyword}{read}(unit=buffer, fmt=\textcolor{stringliteral}{"(g80.10)"}, iostat=ios) result
583     \textcolor{keywordflow}{if} (ios /= 0) result = 0.0
\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}
