\hypertarget{dccaldefault_8f90}{}\section{dc\+\_\+utils/dccaldefault.f90 File Reference}
\label{dccaldefault_8f90}\index{dc\+\_\+utils/dccaldefault.\+f90@{dc\+\_\+utils/dccaldefault.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{dccaldefault_8f90_aae7488d201b996afd3874800432e3de3}{dccaldefault1} (cal)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dccaldefault_8f90_aae7488d201b996afd3874800432e3de3}\label{dccaldefault_8f90_aae7488d201b996afd3874800432e3de3}} 
\index{dccaldefault.\+f90@{dccaldefault.\+f90}!dccaldefault1@{dccaldefault1}}
\index{dccaldefault1@{dccaldefault1}!dccaldefault.\+f90@{dccaldefault.\+f90}}
\subsubsection{\texorpdfstring{dccaldefault1()}{dccaldefault1()}}
{\footnotesize\ttfamily subroutine dccaldefault1 (\begin{DoxyParamCaption}\item[{type(dc\+\_\+cal), intent(out)}]{cal }\end{DoxyParamCaption})}



Definition at line 16 of file dccaldefault.\+f90.



References dc\+\_\+calendar\+\_\+types\+::cal\+\_\+360day, dc\+\_\+calendar\+\_\+types\+::cal\+\_\+cyclic, dc\+\_\+calendar\+\_\+types\+::cal\+\_\+gregorian, dc\+\_\+calendar\+\_\+types\+::cal\+\_\+julian, dc\+\_\+calendar\+\_\+types\+::cal\+\_\+noleap, dc\+\_\+error\+::dc\+\_\+ealreadyinit, dc\+\_\+error\+::dc\+\_\+ebadcaltype, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+calendar\+\_\+internal\+::default\+\_\+cal, dc\+\_\+calendar\+\_\+internal\+::default\+\_\+cal\+\_\+set(), dc\+\_\+types\+::dp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! dc\_calendar においてデフォルト設定となっている暦を返します. }
18   \textcolor{comment}{! このデフォルトの暦は, dc\_calendar\_generic#DCCalCreate }
19   \textcolor{comment}{! において省略可能引数 *cal* を省略して指定された暦が該当します. }
20   \textcolor{comment}{! ただし DCCalCreate が呼び出されていない場合にはグレゴリオ暦となります. }
21   \textcolor{comment}{!}
22   \textcolor{comment}{! Default calender in "dc\_calendar" is returned. }
23   \textcolor{comment}{! The default calender is set by dc\_calendar\_generic#DCCalCreate }
24   \textcolor{comment}{! without optional argument *cal*. }
25   \textcolor{comment}{! If the DCCalCreate is called, the calendar becomes Gregorian calendar. }
26   \textcolor{comment}{!}
27   \textcolor{keywordtype}{use }\hyperlink{namespacedc__calendar__types}{dc\_calendar\_types}\textcolor{keywordtype}{, only}: dc\_cal, &
28     & \hyperlink{namespacedc__calendar__types_aff25d0687bf75b37d319ef5e68b942bb}{cal\_cyclic}, \hyperlink{namespacedc__calendar__types_af6212ffe5e51fc8c270d28a0754c71da}{cal\_noleap}, \hyperlink{namespacedc__calendar__types_a0c7574e07214536d34d1a1ff6cd1703c}{cal\_julian}, 
      \hyperlink{namespacedc__calendar__types_a56becce7ca212d6f20b0f2d738ea4538}{cal\_gregorian}, \hyperlink{namespacedc__calendar__types_ae8c1fb15e0255aa447017a0ab468e747}{cal\_360day}
29   \textcolor{keywordtype}{use }\hyperlink{namespacedc__calendar__internal}{dc\_calendar\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__calendar__internal_a19929403a35d14fa0c6ce80f5e4392a5}{default\_cal}, 
      \hyperlink{namespacedc__calendar__internal_ab33be336dc4b2e284e99c43b24235728}{default\_cal\_set}
30   \textcolor{keywordtype}{use }dc\_message\textcolor{keywordtype}{, only}: messagenotify
31   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: lchar
32   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
33   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}, \hyperlink{namespacedc__error_acb56887bf09e6518808f8f4c95650b04}{dc\_ebadcaltype}
34   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
35   \textcolor{keywordtype}{implicit none}
36   \textcolor{keywordtype}{type}(dc\_cal), \textcolor{keywordtype}{intent(out)}:: cal
37                               \textcolor{comment}{! 暦情報を収めたオブジェクト. }
38                               \textcolor{comment}{! }
39                               \textcolor{comment}{! An object that stores information of }
40                               \textcolor{comment}{! calendar. }
41 
42   \textcolor{comment}{! 作業変数}
43   \textcolor{comment}{! Work variables}
44   \textcolor{comment}{!}
45   \textcolor{keywordtype}{type}(dc\_cal), \textcolor{keywordtype}{pointer}:: calp =>null()
46   \textcolor{keywordtype}{integer}:: stat
47   \textcolor{keywordtype}{character(STRING)}:: cause\_c
48   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCCalDefault1'}
49 \textcolor{keywordflow}{continue}
50   \textcolor{keyword}{call }beginsub( subname )
51 
52   \textcolor{comment}{! オブジェクトのポインタ割付}
53   \textcolor{comment}{! Associate pointer of an object}
54   \textcolor{comment}{!}
55   calp => \hyperlink{namespacedc__calendar__internal_a19929403a35d14fa0c6ce80f5e4392a5}{default\_cal}
56   \textcolor{keywordflow}{if} ( .not. calp % initialized ) \textcolor{keyword}{call }\hyperlink{namespacedc__calendar__internal_ab33be336dc4b2e284e99c43b24235728}{default\_cal\_set}
57 
58 \textcolor{comment}{!!$  ! 初期設定のチェック}
59 \textcolor{comment}{!!$  ! Check initialization}
60 \textcolor{comment}{!!$  !}
61 \textcolor{comment}{!!$  if ( calp % initialized ) then}
62 \textcolor{comment}{!!$    stat = DC\_EALREADYINIT}
63 \textcolor{comment}{!!$    cause\_c = 'DC\_CAL'}
64 \textcolor{comment}{!!$    goto 999}
65 \textcolor{comment}{!!$  end if}
66 
67   \textcolor{comment}{! 各要素への値の設定}
68   \textcolor{comment}{! Configure elements}
69   \textcolor{comment}{!}
70   cal % cal\_type = calp % cal\_type
71 
72   \textcolor{keyword}{allocate}( cal % day\_in\_month( calp % month\_in\_year ) )
73   cal % month\_in\_year = calp % month\_in\_year
74   cal % day\_in\_month  = calp % day\_in\_month 
75   cal % hour\_in\_day   = calp % hour\_in\_day  
76   cal % min\_in\_hour   = calp % min\_in\_hour  
77   cal % sec\_in\_min    = calp % sec\_in\_min   
78 
79   \textcolor{comment}{! 終了処理, 例外処理}
80   \textcolor{comment}{! Termination and Exception handling}
81   \textcolor{comment}{!}
82   cal % initialized = .true.
83 999 \textcolor{keywordflow}{continue}
84   \textcolor{keyword}{nullify}( calp )
85   \textcolor{keyword}{call }endsub( subname )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dccaldefault_8f90_aae7488d201b996afd3874800432e3de3_cgraph}
\end{center}
\end{figure}
