\hypertarget{interfacedc__string_1_1strinclude}{}\section{dc\+\_\+string\+:\+:strinclude Interface Reference}
\label{interfacedc__string_1_1strinclude}\index{dc\+\_\+string\+::strinclude@{dc\+\_\+string\+::strinclude}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{interfacedc__string_1_1strinclude_a9eed1f79c6d5ab980e699a96f92a4a36}{str\+\_\+include\+\_\+ac} (carray, string, ignore\+\_\+space, ignore\+\_\+case)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__string_1_1strinclude_a9eed1f79c6d5ab980e699a96f92a4a36}\label{interfacedc__string_1_1strinclude_a9eed1f79c6d5ab980e699a96f92a4a36}} 
\index{dc\+\_\+string\+::strinclude@{dc\+\_\+string\+::strinclude}!str\+\_\+include\+\_\+ac@{str\+\_\+include\+\_\+ac}}
\index{str\+\_\+include\+\_\+ac@{str\+\_\+include\+\_\+ac}!dc\+\_\+string\+::strinclude@{dc\+\_\+string\+::strinclude}}
\subsubsection{\texorpdfstring{str\+\_\+include\+\_\+ac()}{str\_include\_ac()}}
{\footnotesize\ttfamily logical function dc\+\_\+string\+::strinclude\+::str\+\_\+include\+\_\+ac (\begin{DoxyParamCaption}\item[{character($\ast$), dimension(\+:), intent(in)}]{carray,  }\item[{character($\ast$), intent(in)}]{string,  }\item[{logical, intent(in), optional}]{ignore\+\_\+space,  }\item[{logical, intent(in), optional}]{ignore\+\_\+case }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
446     \textcolor{comment}{!}
447     \textcolor{comment}{! 文字型配列引数 *carray* が文字型引数 *string* と等しい要素を持つ場合に}
448     \textcolor{comment}{! .true. を返します.}
449     \textcolor{comment}{!}
450     \textcolor{comment}{! 文字列の前後の空白は無視されます.}
451     \textcolor{comment}{! オプショナル引数 *ignore\_space* に .false. を}
452     \textcolor{comment}{! 与えた場合には文字列先頭の空白を無視しません.}
453     \textcolor{comment}{!}
454     \textcolor{comment}{! オプショナル引数 *ignore\_case* に .true. を与えた場合には}
455     \textcolor{comment}{! 大文字, 小文字の違いを無視して比較します.}
456     \textcolor{comment}{!}
457     \textcolor{comment}{! If an character array argument *carray* has the same}
458     \textcolor{comment}{! as character argument *string*, ".true." is returned.}
459     \textcolor{comment}{!}
460     \textcolor{comment}{! And beginning and trailing spaces are ignored.}
461     \textcolor{comment}{! If ".false." is given to an optional argument *ignore\_space*,}
462     \textcolor{comment}{! beginning spaces are not ignored.}
463     \textcolor{comment}{!}
464     \textcolor{comment}{! If ".true." is given to an optional argument *ignore\_case*,}
465     \textcolor{comment}{! this function ignores case.}
466     \textcolor{comment}{!}
467     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: carray(:)
468     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
469     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ignore\_space
470     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ignore\_case
471     \textcolor{keywordtype}{integer}:: array\_size, i
472     \textcolor{keywordtype}{logical}:: ignore\_space\_work, ignore\_case\_work
473 
474     \textcolor{keywordflow}{continue}
475 
476     ignore\_space\_work = .true.
477     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(ignore\_space) ) \textcolor{keywordflow}{then}
478       \textcolor{keywordflow}{if} ( .not. ignore\_space ) \textcolor{keywordflow}{then}
479         ignore\_space\_work = .false.
480 \textcolor{keywordflow}{      end if}
481 \textcolor{keywordflow}{    end if}
482 
483     ignore\_case\_work = .false.
484     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(ignore\_case) ) \textcolor{keywordflow}{then}
485       \textcolor{keywordflow}{if} ( ignore\_case ) \textcolor{keywordflow}{then}
486         ignore\_case\_work = .true.
487 \textcolor{keywordflow}{      end if}
488 \textcolor{keywordflow}{    end if}
489 
490     array\_size = \textcolor{keyword}{size}(carray)
491     \textcolor{keywordflow}{do} i = 1, array\_size
492       \textcolor{keywordflow}{if} ( ignore\_space\_work ) \textcolor{keywordflow}{then}
493         \textcolor{keywordflow}{if} ( ignore\_case\_work ) \textcolor{keywordflow}{then}
494           result = &
495             & strieq\_cc( trim( adjustl( carray(i) ) ), &
496             &            trim( adjustl( \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}    ) ) )
497         \textcolor{keywordflow}{else}
498           result = &
499             & ( trim( adjustl( carray(i) ) ) == trim( adjustl( \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} ) ) )
500 \textcolor{keywordflow}{        end if}
501 
502       \textcolor{keywordflow}{else}
503         \textcolor{keywordflow}{if} ( ignore\_case\_work ) \textcolor{keywordflow}{then}
504           result = &
505             & strieq\_cc( trim( carray(i) ), trim( \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} ) )
506         \textcolor{keywordflow}{else}
507           result = ( trim(carray(i)) == trim(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}) )
508 \textcolor{keywordflow}{        end if}
509 \textcolor{keywordflow}{      end if}
510       \textcolor{keywordflow}{if} (result) \textcolor{keywordflow}{return}
511 \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}
