\hypertarget{interfacedc__string_1_1toupper}{}\section{dc\+\_\+string\+:\+:toupper Interface Reference}
\label{interfacedc__string_1_1toupper}\index{dc\+\_\+string\+::toupper@{dc\+\_\+string\+::toupper}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__string_1_1toupper_a53eebbd7200d6f541ca8220f05ab4481}{cupper} (ch)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__string_1_1toupper_a53eebbd7200d6f541ca8220f05ab4481}\label{interfacedc__string_1_1toupper_a53eebbd7200d6f541ca8220f05ab4481}} 
\index{dc\+\_\+string\+::toupper@{dc\+\_\+string\+::toupper}!cupper@{cupper}}
\index{cupper@{cupper}!dc\+\_\+string\+::toupper@{dc\+\_\+string\+::toupper}}
\subsubsection{\texorpdfstring{cupper()}{cupper()}}
{\footnotesize\ttfamily subroutine dc\+\_\+string\+::toupper\+::cupper (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(inout)}]{ch }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
1350     \textcolor{comment}{!}
1351     \textcolor{comment}{! 文字列 ch に英字が含まれる場合、その英字を大文字に変換して ch}
1352     \textcolor{comment}{! に返します。 英字でない文字や既に大文字になっている文字は}
1353     \textcolor{comment}{! そのまま返します。}
1354     \textcolor{comment}{!}
1355     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(inout)}:: ch
1356     \textcolor{keywordtype}{integer}:: i, lch, idx
1357   \textcolor{keywordflow}{continue}
1358     lch = len(ch)
1359     \textcolor{keywordflow}{do}, i = 1, lch
1360       idx = ichar(ch(i:i))
1361       \textcolor{keywordflow}{if} (97 <= idx .and. idx <= 122) \textcolor{keywordflow}{then}
1362         ch(i:i)=char(idx - 32)
1363 \textcolor{keywordflow}{      end if}
1364 \textcolor{keywordflow}{    end do}
\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}
