\hypertarget{interfacedc__string_1_1get__array}{}\section{dc\+\_\+string\+:\+:get\+\_\+array Interface Reference}
\label{interfacedc__string_1_1get__array}\index{dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__string_1_1get__array_ab1ce90e9785637632e219d6169c6ab6e}{str2ip} (int\+\_\+ptr, string\+\_\+in)
\item 
subroutine \hyperlink{interfacedc__string_1_1get__array_a9d0dc0f92779ba68e9a3610be993c81a}{str2rp} (real\+\_\+ptr, string\+\_\+in)
\item 
subroutine \hyperlink{interfacedc__string_1_1get__array_ac5d130ea1b395308166f80355aa83c82}{str2dp} (real\+\_\+ptr, string\+\_\+in)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__string_1_1get__array_ac5d130ea1b395308166f80355aa83c82}\label{interfacedc__string_1_1get__array_ac5d130ea1b395308166f80355aa83c82}} 
\index{dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}!str2dp@{str2dp}}
\index{str2dp@{str2dp}!dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}}
\subsubsection{\texorpdfstring{str2dp()}{str2dp()}}
{\footnotesize\ttfamily subroutine dc\+\_\+string\+::get\+\_\+array\+::str2dp (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:), pointer}]{real\+\_\+ptr,  }\item[{character(len = $\ast$), intent(in)}]{string\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
659     \textcolor{comment}{!}
660     \textcolor{comment}{! string で与えられる文字型変数をカンマ「,」で区切り、}
661     \textcolor{comment}{! 倍精度実数型配列ポインタ real\_ptr(:) にして返します。}
662     \textcolor{comment}{! real\_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。}
663     \textcolor{comment}{!}
664     \textcolor{comment}{! ただし、real\_ptr(:) は必ず空状態または不定状態で与えてください。}
665     \textcolor{comment}{! 既に割り付けられている場合、メモリリークを起こします。}
666     \textcolor{comment}{!}
667     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer}:: real\_ptr(:) \textcolor{comment}{!(out)}
668     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: string\_in
669     \textcolor{keywordtype}{integer}:: i, j, idx, nvalues
670   \textcolor{keywordflow}{continue}
671     nvalues = 1
672     i = 1
673     \textcolor{keywordflow}{do}
674       idx = index(string\_in(i: ), \textcolor{stringliteral}{','})
675       \textcolor{keywordflow}{if} (idx == 0) \textcolor{keywordflow}{exit}
676       i = i + idx - 1 + 1
677       nvalues = nvalues + 1
678 \textcolor{keywordflow}{    enddo}
679     \textcolor{keyword}{allocate}(real\_ptr(nvalues))
680     i = 1
681     j = 1
682     \textcolor{keywordflow}{do}
683       idx = index(string\_in(i: ), \textcolor{stringliteral}{','})
684       \textcolor{keywordflow}{if} (idx == 0) \textcolor{keywordflow}{then}
685         real\_ptr(j) = \hyperlink{interfacedc__string_1_1stod}{stod}(string\_in(i: ))
686         \textcolor{keywordflow}{exit}
687 \textcolor{keywordflow}{      endif}
688       real\_ptr(j) = \hyperlink{interfacedc__string_1_1stod}{stod}(string\_in(i: i+idx-2))
689       i = i + idx - 1 + 1
690       j = j + 1
691 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1get__array_ab1ce90e9785637632e219d6169c6ab6e}\label{interfacedc__string_1_1get__array_ab1ce90e9785637632e219d6169c6ab6e}} 
\index{dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}!str2ip@{str2ip}}
\index{str2ip@{str2ip}!dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}}
\subsubsection{\texorpdfstring{str2ip()}{str2ip()}}
{\footnotesize\ttfamily subroutine dc\+\_\+string\+::get\+\_\+array\+::str2ip (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), pointer}]{int\+\_\+ptr,  }\item[{character(len = $\ast$), intent(in)}]{string\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
587     \textcolor{comment}{!}
588     \textcolor{comment}{! string で与えられる文字型変数をカンマ「,」で区切り、}
589     \textcolor{comment}{! 整数型配列ポインタ int\_ptr(:) にして返します。 int\_ptr(:)}
590     \textcolor{comment}{! の配列サイズは string の内容に応じて自動的に決まります。}
591     \textcolor{comment}{!}
592     \textcolor{comment}{! ただし、int\_ptr(:) は必ず空状態または不定状態で与えてください。}
593     \textcolor{comment}{! 既に割り付けられている場合、メモリリークを起こします。}
594     \textcolor{comment}{!}
595     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: int\_ptr(:) \textcolor{comment}{!(out)}
596     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: string\_in
597     \textcolor{keywordtype}{integer}:: i, j, idx, nvalues
598   \textcolor{keywordflow}{continue}
599     nvalues = 1
600     i = 1
601     \textcolor{keywordflow}{do}
602       idx = index(string\_in(i: ), \textcolor{stringliteral}{','})
603       \textcolor{keywordflow}{if} (idx == 0) \textcolor{keywordflow}{exit}
604       i = i + idx - 1 + 1
605       nvalues = nvalues + 1
606 \textcolor{keywordflow}{    enddo}
607     \textcolor{keyword}{allocate}(int\_ptr(nvalues))
608     i = 1
609     j = 1
610     \textcolor{keywordflow}{do}
611       idx = index(string\_in(i: ), \textcolor{stringliteral}{','})
612       \textcolor{keywordflow}{if} (idx == 0) \textcolor{keywordflow}{then}
613         int\_ptr(j) = \hyperlink{interfacedc__string_1_1stoi}{stoi}(string\_in(i: ))
614         \textcolor{keywordflow}{exit}
615 \textcolor{keywordflow}{      endif}
616       int\_ptr(j) = \hyperlink{interfacedc__string_1_1stod}{stod}(string\_in(i: i+idx-2))
617       i = i + idx - 1 + 1
618       j = j + 1
619 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__string_1_1get__array_a9d0dc0f92779ba68e9a3610be993c81a}\label{interfacedc__string_1_1get__array_a9d0dc0f92779ba68e9a3610be993c81a}} 
\index{dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}!str2rp@{str2rp}}
\index{str2rp@{str2rp}!dc\+\_\+string\+::get\+\_\+array@{dc\+\_\+string\+::get\+\_\+array}}
\subsubsection{\texorpdfstring{str2rp()}{str2rp()}}
{\footnotesize\ttfamily subroutine dc\+\_\+string\+::get\+\_\+array\+::str2rp (\begin{DoxyParamCaption}\item[{real, dimension(\+:), pointer}]{real\+\_\+ptr,  }\item[{character(len = $\ast$), intent(in)}]{string\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
623     \textcolor{comment}{!}
624     \textcolor{comment}{! string で与えられる文字型変数をカンマ「,」で区切り、}
625     \textcolor{comment}{! 単精度実数型配列ポインタ real\_ptr(:) にして返します。}
626     \textcolor{comment}{! real\_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。}
627     \textcolor{comment}{!}
628     \textcolor{comment}{! ただし、real\_ptr(:) は必ず空状態または不定状態で与えてください。}
629     \textcolor{comment}{! 既に割り付けられている場合、メモリリークを起こします。}
630     \textcolor{comment}{!}
631     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{pointer}:: real\_ptr(:) \textcolor{comment}{!(out)}
632     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: string\_in
633     \textcolor{keywordtype}{integer}:: i, j, idx, nvalues
634   \textcolor{keywordflow}{continue}
635     nvalues = 1
636     i = 1
637     \textcolor{keywordflow}{do}
638       idx = index(string\_in(i: ), \textcolor{stringliteral}{','})
639       \textcolor{keywordflow}{if} (idx == 0) \textcolor{keywordflow}{exit}
640       i = i + idx - 1 + 1
641       nvalues = nvalues + 1
642 \textcolor{keywordflow}{    enddo}
643     \textcolor{keyword}{allocate}(real\_ptr(nvalues))
644     i = 1
645     j = 1
646     \textcolor{keywordflow}{do}
647       idx = index(string\_in(i: ), \textcolor{stringliteral}{','})
648       \textcolor{keywordflow}{if} (idx == 0) \textcolor{keywordflow}{then}
649         real\_ptr(j) = \hyperlink{interfacedc__string_1_1stod}{stod}(string\_in(i: ))
650         \textcolor{keywordflow}{exit}
651 \textcolor{keywordflow}{      endif}
652       real\_ptr(j) = \hyperlink{interfacedc__string_1_1stod}{stod}(string\_in(i: i+idx-2))
653       i = i + idx - 1 + 1
654       j = j + 1
655 \textcolor{keywordflow}{    enddo}
\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}
