\hypertarget{dcdatetimevalidcaltype_8f90}{}\section{dc\+\_\+utils/dcdatetimevalidcaltype.f90 File Reference}
\label{dcdatetimevalidcaltype_8f90}\index{dc\+\_\+utils/dcdatetimevalidcaltype.\+f90@{dc\+\_\+utils/dcdatetimevalidcaltype.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{dcdatetimevalidcaltype_8f90_a3a579b212b4b19eba32fe38a33626169}{dcdatetimevalidcaltype} (caltype)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcdatetimevalidcaltype_8f90_a3a579b212b4b19eba32fe38a33626169}\label{dcdatetimevalidcaltype_8f90_a3a579b212b4b19eba32fe38a33626169}} 
\index{dcdatetimevalidcaltype.\+f90@{dcdatetimevalidcaltype.\+f90}!dcdatetimevalidcaltype@{dcdatetimevalidcaltype}}
\index{dcdatetimevalidcaltype@{dcdatetimevalidcaltype}!dcdatetimevalidcaltype.\+f90@{dcdatetimevalidcaltype.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimevalidcaltype()}{dcdatetimevalidcaltype()}}
{\footnotesize\ttfamily logical function dcdatetimevalidcaltype (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{caltype }\end{DoxyParamCaption})}



Definition at line 13 of file dcdatetimevalidcaltype.\+f90.



References dc\+\_\+date\+\_\+types\+::prepared\+\_\+caltypes.


\begin{DoxyCode}
13   \textcolor{comment}{!}
14   \textcolor{comment}{! 与えられる暦法が dc\_date\_types 内で有効であれば}
15   \textcolor{comment}{! .true. を, それ以外の場合は .false. を返します.}
16   \textcolor{comment}{!}
17   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__types_ab739a29bda254ad4abb6ec52abf620ed}{prepared\_caltypes}
18   \textcolor{keywordtype}{implicit none}
19   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: caltype
20   \textcolor{keywordtype}{logical}:: result
21   \textcolor{keywordtype}{integer}:: caltypes\_size, i
22 \textcolor{keywordflow}{continue}
23   result = .false.
24   caltypes\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_ab739a29bda254ad4abb6ec52abf620ed}{prepared\_caltypes}) - 1
25   \textcolor{keywordflow}{do} i = 0, caltypes\_size
26     \textcolor{keywordflow}{if} (caltype == \hyperlink{namespacedc__date__types_ab739a29bda254ad4abb6ec52abf620ed}{prepared\_caltypes}(i)) \textcolor{keywordflow}{then}
27       result = .true.
28       \textcolor{keywordflow}{exit}
29 \textcolor{keywordflow}{    end if}
30 \textcolor{keywordflow}{  end do}
\end{DoxyCode}
