\hypertarget{interfacedc__scaledsec_1_1sign}{}\section{dc\+\_\+scaledsec\+:\+:sign Interface Reference}
\label{interfacedc__scaledsec_1_1sign}\index{dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{interfacedc__scaledsec_1_1sign_a72d33915c6cea1bdc274f8cd3053d744}{dcscaledsec\+\_\+sign\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{interfacedc__scaledsec_1_1sign_a3461c0fe835e4be5c2c592823f224bd7}{dcscaledsec\+\_\+sign\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{interfacedc__scaledsec_1_1sign_a769d0574013869469a587143e134dbd7}{dcscaledsec\+\_\+sign\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{interfacedc__scaledsec_1_1sign_a72ce47c14ea4538f61fb2cdf96712a88}{dcscaledsec\+\_\+sign\+\_\+ss} (sclsec1, sclsec2)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__scaledsec_1_1sign_a769d0574013869469a587143e134dbd7}\label{interfacedc__scaledsec_1_1sign_a769d0574013869469a587143e134dbd7}} 
\index{dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}!dcscaledsec\+\_\+sign\+\_\+sd@{dcscaledsec\+\_\+sign\+\_\+sd}}
\index{dcscaledsec\+\_\+sign\+\_\+sd@{dcscaledsec\+\_\+sign\+\_\+sd}!dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+sd()}{dcscaledsec\_sign\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::sign\+::dcscaledsec\+\_\+sign\+\_\+sd (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{real(dp), intent(in)}]{factor }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
1974     \textcolor{comment}{!}
1975     \textcolor{comment}{! sclsec の絶対値に factor の符号をつけたものを返す. }
1976     \textcolor{comment}{! }
1977     \textcolor{comment}{! Return an absolute value of "sclsec" with sign of "factor".}
1978     \textcolor{comment}{!}
1979     \textcolor{keywordtype}{implicit none}
1980     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1981     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1982     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec\_work
1983   \textcolor{keywordflow}{continue}
1984     sclsec\_work = factor
1985     result = \hyperlink{interfacedc__scaledsec_1_1sign}{sign}( sclsec, sclsec\_work )
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__scaledsec_1_1sign_a72d33915c6cea1bdc274f8cd3053d744}\label{interfacedc__scaledsec_1_1sign_a72d33915c6cea1bdc274f8cd3053d744}} 
\index{dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}!dcscaledsec\+\_\+sign\+\_\+si@{dcscaledsec\+\_\+sign\+\_\+si}}
\index{dcscaledsec\+\_\+sign\+\_\+si@{dcscaledsec\+\_\+sign\+\_\+si}!dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+si()}{dcscaledsec\_sign\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::sign\+::dcscaledsec\+\_\+sign\+\_\+si (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{integer, intent(in)}]{factor }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
1940     \textcolor{comment}{!}
1941     \textcolor{comment}{! sclsec の絶対値に factor の符号をつけたものを返す. }
1942     \textcolor{comment}{! }
1943     \textcolor{comment}{! Return an absolute value of "sclsec" with sign of "factor".}
1944     \textcolor{comment}{!}
1945     \textcolor{keywordtype}{implicit none}
1946     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1947     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1948     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec\_work
1949   \textcolor{keywordflow}{continue}
1950     sclsec\_work = factor
1951     result = \hyperlink{interfacedc__scaledsec_1_1sign}{sign}( sclsec, sclsec\_work )
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__scaledsec_1_1sign_a3461c0fe835e4be5c2c592823f224bd7}\label{interfacedc__scaledsec_1_1sign_a3461c0fe835e4be5c2c592823f224bd7}} 
\index{dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}!dcscaledsec\+\_\+sign\+\_\+sr@{dcscaledsec\+\_\+sign\+\_\+sr}}
\index{dcscaledsec\+\_\+sign\+\_\+sr@{dcscaledsec\+\_\+sign\+\_\+sr}!dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+sr()}{dcscaledsec\_sign\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::sign\+::dcscaledsec\+\_\+sign\+\_\+sr (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{real, intent(in)}]{factor }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
1957     \textcolor{comment}{!}
1958     \textcolor{comment}{! sclsec の絶対値に factor の符号をつけたものを返す. }
1959     \textcolor{comment}{! }
1960     \textcolor{comment}{! Return an absolute value of "sclsec" with sign of "factor".}
1961     \textcolor{comment}{!}
1962     \textcolor{keywordtype}{implicit none}
1963     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1964     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1965     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec\_work
1966   \textcolor{keywordflow}{continue}
1967     sclsec\_work = factor
1968     result = \hyperlink{interfacedc__scaledsec_1_1sign}{sign}( sclsec, sclsec\_work )
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__scaledsec_1_1sign_a72ce47c14ea4538f61fb2cdf96712a88}\label{interfacedc__scaledsec_1_1sign_a72ce47c14ea4538f61fb2cdf96712a88}} 
\index{dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}!dcscaledsec\+\_\+sign\+\_\+ss@{dcscaledsec\+\_\+sign\+\_\+ss}}
\index{dcscaledsec\+\_\+sign\+\_\+ss@{dcscaledsec\+\_\+sign\+\_\+ss}!dc\+\_\+scaledsec\+::sign@{dc\+\_\+scaledsec\+::sign}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+ss()}{dcscaledsec\_sign\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::sign\+::dcscaledsec\+\_\+sign\+\_\+ss (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec1,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec2 }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
1925     \textcolor{comment}{!}
1926     \textcolor{comment}{! sclsec1 の絶対値に sclsec2 の符号をつけたものを返す. }
1927     \textcolor{comment}{! }
1928     \textcolor{comment}{! Return an absolute value of "sclsec1" with sign of "sclsec2".}
1929     \textcolor{comment}{!}
1930     \textcolor{keywordtype}{implicit none}
1931     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
1932   \textcolor{keywordflow}{continue}
1933     result = sclsec1
1934     result % flag\_negative = sclsec2 % flag\_negative
\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}
