\hypertarget{interfacedc__scaledsec_1_1floor}{}\section{dc\+\_\+scaledsec\+:\+:floor Interface Reference}
\label{interfacedc__scaledsec_1_1floor}\index{dc\+\_\+scaledsec\+::floor@{dc\+\_\+scaledsec\+::floor}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{interfacedc__scaledsec_1_1floor_ae13b89c4dd5983acd368f8a694b220e8}{dcscaledsec\+\_\+floor\+\_\+s} (sclsec)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


Definition at line 187 of file dc\+\_\+scaledsec.\+f90.



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__scaledsec_1_1floor_ae13b89c4dd5983acd368f8a694b220e8}\label{interfacedc__scaledsec_1_1floor_ae13b89c4dd5983acd368f8a694b220e8}} 
\index{dc\+\_\+scaledsec\+::floor@{dc\+\_\+scaledsec\+::floor}!dcscaledsec\+\_\+floor\+\_\+s@{dcscaledsec\+\_\+floor\+\_\+s}}
\index{dcscaledsec\+\_\+floor\+\_\+s@{dcscaledsec\+\_\+floor\+\_\+s}!dc\+\_\+scaledsec\+::floor@{dc\+\_\+scaledsec\+::floor}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+floor\+\_\+s()}{dcscaledsec\_floor\_s()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::floor\+::dcscaledsec\+\_\+floor\+\_\+s (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 1991 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1991     \textcolor{comment}{!}
1992     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の整数値 (対象の数値以下で最大の整数) を返す. }
1993     \textcolor{comment}{! }
1994     \textcolor{comment}{! Return an integer value (maximum integer under the given value) }
1995     \textcolor{comment}{! of a "DC\_SCALED\_SEC" variable}
1996     \textcolor{comment}{!}
1997     \textcolor{keywordtype}{implicit none}
1998     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1999     \textcolor{keywordtype}{integer}:: i
2000     \textcolor{keywordtype}{logical}:: flag\_after\_decimal
2001   \textcolor{keywordflow}{continue}
2002     result = sclsec
2003     flag\_after\_decimal = .false.
2004     \textcolor{keywordflow}{do} i = -1, imin, -1
2005       \textcolor{keywordflow}{if} ( result % sec\_ary(i) /= 0 ) flag\_after\_decimal = .true.
2006       result % sec\_ary(i) = 0
2007 \textcolor{keywordflow}{    end do}
2008     \textcolor{keywordflow}{if} ( flag\_after\_decimal .and. result % flag\_negative ) \textcolor{keywordflow}{then}
2009       result = result - 1
2010 \textcolor{keywordflow}{    end if}
2011 
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
dc\+\_\+utils/\hyperlink{dc__scaledsec_8f90}{dc\+\_\+scaledsec.\+f90}\end{DoxyCompactItemize}
