\hypertarget{dcdatetimesetcaltype_8f90}{}\section{dc\+\_\+utils/dcdatetimesetcaltype.f90 File Reference}
\label{dcdatetimesetcaltype_8f90}\index{dc\+\_\+utils/dcdatetimesetcaltype.\+f90@{dc\+\_\+utils/dcdatetimesetcaltype.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{dcdatetimesetcaltype_8f90_a18f1a65ad4afac746758ca56bbcd2e4d}{dcdatetimesetcaltype} (caltype)
\end{DoxyCompactItemize}


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



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



References dc\+\_\+date\+\_\+types\+::caltype.


\begin{DoxyCode}
13   \textcolor{comment}{!}
14   \textcolor{comment}{! 暦法のデフォルトを設定します.}
15   \textcolor{comment}{! dc\_date\_types#CAL\_CYCLIC, dc\_date\_types#CAL\_NOLEAP, }
16   \textcolor{comment}{! dc\_date\_types#CAL\_JULIAN, dc\_date\_types#CAL\_GREGORIAN}
17   \textcolor{comment}{! のいづれかを引数 *caltype* に与えてください.}
18   \textcolor{comment}{!}
19   \textcolor{comment}{! なお, この手続きを呼ばない場合, デフォルトの暦法は}
20   \textcolor{comment}{! dc\_date\_types#CAL\_GREGORIAN に設定されています.}
21   \textcolor{comment}{!}
22   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: caltype\_default => \hyperlink{namespacedc__date__types_a53f333d57f250b428c53e2d81c077ac6}{caltype}
23   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
24   \textcolor{keywordtype}{use }dc\_message\textcolor{keywordtype}{, only}: messagenotify
25   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1validcaltype}{validcaltype}
26   \textcolor{keywordtype}{implicit none}
27   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: \hyperlink{namespacedc__date__types_a53f333d57f250b428c53e2d81c077ac6}{caltype}
28   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'DCDateTimeSetCaltype'}
29 \textcolor{keywordflow}{continue}
30   \textcolor{keyword}{call }beginsub(subname, \textcolor{stringliteral}{'caltype=<%d>'}, i=(/\hyperlink{namespacedc__date__types_a53f333d57f250b428c53e2d81c077ac6}{caltype}/))
31   \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1validcaltype}{validcaltype}(\hyperlink{namespacedc__date__types_a53f333d57f250b428c53e2d81c077ac6}{caltype})) \textcolor{keywordflow}{then}
32     caltype\_default = \hyperlink{namespacedc__date__types_a53f333d57f250b428c53e2d81c077ac6}{caltype}
33   \textcolor{keywordflow}{else}
34     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'}, subname, &
35       & \textcolor{stringliteral}{'caltype=<%d> is invalid calender type.'}, &
36       & i=(/\hyperlink{namespacedc__date__types_a53f333d57f250b428c53e2d81c077ac6}{caltype}/))
37 \textcolor{keywordflow}{  end if}
38   \textcolor{keyword}{call }endsub(subname, \textcolor{stringliteral}{'dc\_date\_types#caltype\_default=<%d>'}, i=(/caltype\_default/))
\end{DoxyCode}
