\hypertarget{namespacedc__scaledsec}{}\section{dc\+\_\+scaledsec Module Reference}
\label{namespacedc__scaledsec}\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsection*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1abs}{abs}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1assignment_07_0A_08}{assignment(=)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1ceiling}{ceiling}
\item 
type \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1floor}{floor}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1int}{int}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1mod}{mod}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_5_08}{operator($\ast$)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_09_08}{operator(+)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07-_08}{operator(-\/)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_2_08}{operator(/)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_3_08}{operator($<$)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_3_0A_08}{operator($<$=)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_0A_0A_08}{operator(==)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_4_08}{operator($>$)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1operator_07_4_0A_08}{operator($>$=)}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1putline}{putline}
\item 
interface \hyperlink{interfacedc__scaledsec_1_1sign}{sign}
\end{DoxyCompactItemize}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{namespacedc__scaledsec_acbb7520e481a03945f1cd52f80de5659}{dcscaledseccreatei} (sclsec, sec)
\item 
subroutine \hyperlink{namespacedc__scaledsec_abd72c84d37e189a047116a38c85fefe9}{dcscaledseccreater} (sclsec, sec)
\item 
subroutine \hyperlink{namespacedc__scaledsec_a5010939e9a8d3082d2a8492d3548fcd2}{dcscaledseccreated} (sclsec, sec)
\item 
subroutine \hyperlink{namespacedc__scaledsec_a54dc70e15a94b47cc04df8251e53f434}{dcscaledsectonumi} (sec, sclsec)
\item 
subroutine \hyperlink{namespacedc__scaledsec_a7a06dcfab97339756131e3ecb775312a}{dcscaledsectonumr} (sec, sclsec)
\item 
subroutine \hyperlink{namespacedc__scaledsec_a3a973b204731742fa15cf7984b5142c8}{dcscaledsectonumd} (sec, sclsec)
\item 
subroutine, public \hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline} (sclsec, unit, indent)
\item 
logical function \hyperlink{namespacedc__scaledsec_ae86e9f7b1c3ba57032432ba738d9b4c9}{dcscaledsec\+\_\+eq\+\_\+ss} (sclsec1, sclsec2)
\item 
logical function \hyperlink{namespacedc__scaledsec_a1263d81f7f846d251f0b2d96422094c7}{dcscaledsec\+\_\+eq\+\_\+si} (sclsec, sec)
\item 
logical function \hyperlink{namespacedc__scaledsec_a5e70203b5018ed4084d5949a1dc78b34}{dcscaledsec\+\_\+eq\+\_\+is} (sec, sclsec)
\item 
logical function \hyperlink{namespacedc__scaledsec_a9b67008fb5b28345dc212e66716ce590}{dcscaledsec\+\_\+eq\+\_\+sr} (sclsec, sec)
\item 
logical function \hyperlink{namespacedc__scaledsec_ae4373a9fd6a6035f2f39fb5b59d9ad49}{dcscaledsec\+\_\+eq\+\_\+rs} (sec, sclsec)
\item 
logical function \hyperlink{namespacedc__scaledsec_ae58a6de329269c1a3a3fa2b71842bae3}{dcscaledsec\+\_\+eq\+\_\+sd} (sclsec, sec)
\item 
logical function \hyperlink{namespacedc__scaledsec_ab22cbaa3098bde5062cd776ec3b95442}{dcscaledsec\+\_\+eq\+\_\+ds} (sec, sclsec)
\item 
logical function \hyperlink{namespacedc__scaledsec_a2089d33431d8ba26d491e44420030248}{dcscaledsec\+\_\+gt\+\_\+ss} (sclsec1, sclsec2)
\item 
logical function \hyperlink{namespacedc__scaledsec_a328c61cecf9a5ac72d1bc8e7e10940eb}{dcscaledsec\+\_\+gt\+\_\+si} (sclsec, factor)
\item 
logical function \hyperlink{namespacedc__scaledsec_a6b037a07afaec2c5ff0b30a7b7fb2991}{dcscaledsec\+\_\+gt\+\_\+is} (factor, sclsec)
\item 
logical function \hyperlink{namespacedc__scaledsec_a16219e8e6904cbe4d5cb32a1b53d22eb}{dcscaledsec\+\_\+lt\+\_\+ss} (sclsec1, sclsec2)
\item 
logical function \hyperlink{namespacedc__scaledsec_a62da6a324e5164072a633e5edd84ff04}{dcscaledsec\+\_\+lt\+\_\+si} (sclsec, factor)
\item 
logical function \hyperlink{namespacedc__scaledsec_a1a83deadb9d2ef4661a065fb10648131}{dcscaledsec\+\_\+lt\+\_\+is} (factor, sclsec)
\item 
logical function \hyperlink{namespacedc__scaledsec_a0dc091089756f60d60d498d1ca09cabf}{dcscaledsec\+\_\+ge\+\_\+ss} (sclsec1, sclsec2)
\item 
logical function \hyperlink{namespacedc__scaledsec_abf155db3f64dd277835939901266e296}{dcscaledsec\+\_\+ge\+\_\+si} (sclsec, factor)
\item 
logical function \hyperlink{namespacedc__scaledsec_a1c89f511ebef30c54c9c29c2125b31c0}{dcscaledsec\+\_\+ge\+\_\+is} (factor, sclsec)
\item 
logical function \hyperlink{namespacedc__scaledsec_aa4a632ae7234986ae1bde842caa6f20d}{dcscaledsec\+\_\+le\+\_\+ss} (sclsec1, sclsec2)
\item 
logical function \hyperlink{namespacedc__scaledsec_a9fe2c695e3577a72680b3601af3b9ec4}{dcscaledsec\+\_\+le\+\_\+si} (sclsec, factor)
\item 
logical function \hyperlink{namespacedc__scaledsec_af638f8368bb84eebd74d4a413763e8ce}{dcscaledsec\+\_\+le\+\_\+is} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a9fa73ac7ab543a7bbb1b3655bd9dcc2f}{dcscaledsec\+\_\+add\+\_\+ss} (sclsec1, sclsec2)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a7312a24e2deeebd64bc57f82de0716df}{dcscaledsec\+\_\+add\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ad41ff56278f61cb91c6d9605a282ee14}{dcscaledsec\+\_\+add\+\_\+is} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_adc4a27cf2d9c1881d83f3263eda767ba}{dcscaledsec\+\_\+add\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a4174e483f332d74ffb499b79354621e0}{dcscaledsec\+\_\+add\+\_\+rs} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ae0ddcbb2314b64a9bf4a3c5ce568ab3c}{dcscaledsec\+\_\+add\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a11b5d2c1be1765d8edf3d7870bbdd745}{dcscaledsec\+\_\+add\+\_\+ds} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ac0a8d0fdfbd9de21ab3cc435d3473519}{dcscaledsec\+\_\+sub\+\_\+s} (sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_aa34dc898460819e0dea5f653f815cfe4}{dcscaledsec\+\_\+sub\+\_\+ss} (sclsec1, sclsec2)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_af6f55f6a0655b47148fabe7ccbb19c2e}{dcscaledsec\+\_\+sub\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a00d204007d7f6bc085aadb7e6453ac44}{dcscaledsec\+\_\+sub\+\_\+is} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_aeedecc5d57a9897bb59320d499dc0c60}{dcscaledsec\+\_\+sub\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a47e2c139a9505404bf5d5c1c8f0719f7}{dcscaledsec\+\_\+sub\+\_\+rs} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ae95472bb038080662891d755130b1690}{dcscaledsec\+\_\+sub\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a5edb48b7b9d99228f44f9e71bc57be83}{dcscaledsec\+\_\+sub\+\_\+ds} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a396a10528e13ccab958494af0985df12}{dcscaledsec\+\_\+mul\+\_\+ss} (sclsec1, sclsec2)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_af332fdf84b1c91467e8d35428f7cd45c}{dcscaledsec\+\_\+mul\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_acd55645dcc41abecba4040f4ca1c7735}{dcscaledsec\+\_\+mul\+\_\+is} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a1617177d301875e95d8321d6ca0052b8}{dcscaledsec\+\_\+mul\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a3023c4d325498088eee3af360ecf5c9a}{dcscaledsec\+\_\+mul\+\_\+ds} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a70a1f35f9ce5042b42b037e754612e77}{dcscaledsec\+\_\+mul\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ae5b2c07e23fa9ee118c8aa45b620b691}{dcscaledsec\+\_\+mul\+\_\+rs} (factor, sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_aa89dc4ee4effc20ba41ff306bf18d923}{dcscaledsec\+\_\+div\+\_\+ss} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_af11fd2297e4fa3aaa627a2e94c25e593}{dcscaledsec\+\_\+div\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a85d140a2045f04d54f0c15e988f9b3b6}{dcscaledsec\+\_\+div\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_af4f166304a6800767c182df20e7bf486}{dcscaledsec\+\_\+div\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a65032a304957d2b283195dd37a35b04c}{dcscaledsec\+\_\+mod\+\_\+ss} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_af59189c00b972a753c914687a9d1c59b}{dcscaledsec\+\_\+mod\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a327e2a41c322e67b0d67bd0515833661}{dcscaledsec\+\_\+mod\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_aa6fb0ce94e1204c119128831b9c03fd6}{dcscaledsec\+\_\+mod\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ae130f94ebc3698066d8cc4f918640df8}{dcscaledsec\+\_\+modulo\+\_\+ss} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a2e215c3912e88c796dc6607e0bb23412}{dcscaledsec\+\_\+modulo\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a658c1944abccbbd499aa46089e67c9ac}{dcscaledsec\+\_\+modulo\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ac8aa4c86c251c44e15d24c4705dd6226}{dcscaledsec\+\_\+modulo\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_abdb1f1b3167ba6f854af611cfb539cfd}{dcscaledsec\+\_\+abs\+\_\+s} (sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_af2ff3cabe688fec88b1abbed18acdafc}{dcscaledsec\+\_\+int\+\_\+s} (sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a47682348d2be2cc74aa613e70faa2dde}{dcscaledsec\+\_\+sign\+\_\+ss} (sclsec1, sclsec2)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a756adae84d8338f9b3972e19f0ff560f}{dcscaledsec\+\_\+sign\+\_\+si} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ac9850b7496dd5c008c42cce7bf3332a6}{dcscaledsec\+\_\+sign\+\_\+sr} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a651f9739573120317a2bbb47634b5e09}{dcscaledsec\+\_\+sign\+\_\+sd} (sclsec, factor)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_ac8b364b2d8fbb4e733cbd49cdeaeab21}{dcscaledsec\+\_\+floor\+\_\+s} (sclsec)
\item 
type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function \hyperlink{namespacedc__scaledsec_a742229e17d6b826ad0488b98b890fa10}{dcscaledsec\+\_\+ceiling\+\_\+s} (sclsec)
\item 
integer function \hyperlink{namespacedc__scaledsec_a80840285378a44eaa84f1d3bf828cdeb}{count\+\_\+digit} (sec)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, parameter \hyperlink{namespacedc__scaledsec_a811256082cc668ec7172896b9a2a4b3f}{imin} = -\/2
\item 
integer, parameter \hyperlink{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}{imax} = 8
\item 
real(dp), parameter \hyperlink{namespacedc__scaledsec_a72dbf259b1645fdbd8a4b17fe99dc5f5}{scale\+\_\+factor} = 1.\+0e+3\+\_\+\+DP
\item 
real(dp), dimension(-\/(\hyperlink{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}{imax}+1)\+:\hyperlink{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}{imax}+1), parameter \hyperlink{namespacedc__scaledsec_a17cb4ef04c82f56fa5aea1eb59d9526b}{scale\+\_\+factor\+\_\+xx} = (/ 1.\+0e-\/27\+\_\+\+D\+P, 1.\+0e-\/24\+\_\+\+D\+P, 1.\+0e-\/21\+\_\+\+D\+P, 1.\+0e-\/18\+\_\+\+D\+P, 1.\+0e-\/15\+\_\+\+D\+P, 1.\+0e-\/12\+\_\+\+D\+P, 1.\+0e-\/9\+\_\+\+D\+P, 1.\+0e-\/6\+\_\+\+D\+P, 1.\+0e-\/3\+\_\+\+D\+P, 1.\+0\+\_\+\+D\+P, 1.\+0e+3\+\_\+\+D\+P, 1.\+0e+6\+\_\+\+D\+P, 1.\+0e+9\+\_\+\+D\+P, 1.\+0e+12\+\_\+\+D\+P, 1.\+0e+15\+\_\+\+D\+P, 1.\+0e+18\+\_\+\+D\+P, 1.\+0e+21\+\_\+\+D\+P, 1.\+0e+24\+\_\+\+D\+P, 1.\+0e+27\+\_\+\+D\+P /)
\item 
integer, parameter \hyperlink{namespacedc__scaledsec_afb163b7681ade9929734ec170a77ea5d}{scale\+\_\+factor\+\_\+int} = 1000
\item 
integer, dimension(0\+:3), parameter \hyperlink{namespacedc__scaledsec_a42cc6a310cf2f2056674620f8c70aa99}{scale\+\_\+factor\+\_\+int\+\_\+xx} = (/ 1, 1000, 1000000, 1000000000 /)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacedc__scaledsec_a80840285378a44eaa84f1d3bf828cdeb}\label{namespacedc__scaledsec_a80840285378a44eaa84f1d3bf828cdeb}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!count\+\_\+digit@{count\+\_\+digit}}
\index{count\+\_\+digit@{count\+\_\+digit}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{count\+\_\+digit()}{count\_digit()}}
{\footnotesize\ttfamily integer function dc\+\_\+scaledsec\+::count\+\_\+digit (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledseccreated().


\begin{DoxyCode}
2045     \textcolor{keywordtype}{implicit none}
2046     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: sec
2047     \textcolor{keywordtype}{integer}:: result
2048 
2049     \textcolor{keywordtype}{integer}:: i
2050   \textcolor{keywordflow}{continue}
2051 
2052     \textcolor{keywordflow}{do} i = 5, 0, -1
2053       \textcolor{keywordflow}{if} ( .not. sec < 10**i ) \textcolor{keywordflow}{then}
2054         result = i+1
2055         \textcolor{keywordflow}{return}
2056 \textcolor{keywordflow}{      end if}
2057 \textcolor{keywordflow}{    end do}
2058     result = 0
2059 
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_a80840285378a44eaa84f1d3bf828cdeb_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_abdb1f1b3167ba6f854af611cfb539cfd}\label{namespacedc__scaledsec_abdb1f1b3167ba6f854af611cfb539cfd}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+abs\+\_\+s@{dcscaledsec\+\_\+abs\+\_\+s}}
\index{dcscaledsec\+\_\+abs\+\_\+s@{dcscaledsec\+\_\+abs\+\_\+s}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+abs\+\_\+s()}{dcscaledsec\_abs\_s()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+abs\+\_\+s (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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


\begin{DoxyCode}
1891     \textcolor{comment}{!}
1892     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の絶対値を返す. }
1893     \textcolor{comment}{! }
1894     \textcolor{comment}{! Return an absolute value of a "DC\_SCALED\_SEC" variable}
1895     \textcolor{comment}{!}
1896     \textcolor{keywordtype}{implicit none}
1897     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1898 
1899   \textcolor{keywordflow}{continue}
1900     result = sclsec
1901     \textcolor{keywordflow}{if} ( result % flag\_negative ) result % flag\_negative = .false.
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a11b5d2c1be1765d8edf3d7870bbdd745}\label{namespacedc__scaledsec_a11b5d2c1be1765d8edf3d7870bbdd745}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+ds@{dcscaledsec\+\_\+add\+\_\+ds}}
\index{dcscaledsec\+\_\+add\+\_\+ds@{dcscaledsec\+\_\+add\+\_\+ds}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+ds()}{dcscaledsec\_add\_ds()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+ds (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{factor,  }\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 1084 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1084     \textcolor{comment}{!}
1085     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
1086     \textcolor{comment}{! }
1087     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
1088     \textcolor{comment}{!}
1089     \textcolor{keywordtype}{implicit none}
1090     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1091     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1092     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1093   \textcolor{keywordflow}{continue}
1094     factor\_scl = factor
1095     result = sclsec + factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ad41ff56278f61cb91c6d9605a282ee14}\label{namespacedc__scaledsec_ad41ff56278f61cb91c6d9605a282ee14}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+is@{dcscaledsec\+\_\+add\+\_\+is}}
\index{dcscaledsec\+\_\+add\+\_\+is@{dcscaledsec\+\_\+add\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+is()}{dcscaledsec\_add\_is()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\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 1016 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1016     \textcolor{comment}{!}
1017     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
1018     \textcolor{comment}{! }
1019     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
1020     \textcolor{comment}{!}
1021     \textcolor{keywordtype}{implicit none}
1022     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1023     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1024     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1025   \textcolor{keywordflow}{continue}
1026     factor\_scl = factor
1027     result = factor\_scl + sclsec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a4174e483f332d74ffb499b79354621e0}\label{namespacedc__scaledsec_a4174e483f332d74ffb499b79354621e0}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+rs@{dcscaledsec\+\_\+add\+\_\+rs}}
\index{dcscaledsec\+\_\+add\+\_\+rs@{dcscaledsec\+\_\+add\+\_\+rs}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+rs()}{dcscaledsec\_add\_rs()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+rs (\begin{DoxyParamCaption}\item[{real, intent(in)}]{factor,  }\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 1050 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1050     \textcolor{comment}{!}
1051     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
1052     \textcolor{comment}{! }
1053     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
1054     \textcolor{comment}{!}
1055     \textcolor{keywordtype}{implicit none}
1056     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1057     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1058     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1059   \textcolor{keywordflow}{continue}
1060     factor\_scl = factor
1061     result = sclsec + factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae0ddcbb2314b64a9bf4a3c5ce568ab3c}\label{namespacedc__scaledsec_ae0ddcbb2314b64a9bf4a3c5ce568ab3c}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+sd@{dcscaledsec\+\_\+add\+\_\+sd}}
\index{dcscaledsec\+\_\+add\+\_\+sd@{dcscaledsec\+\_\+add\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+sd()}{dcscaledsec\_add\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+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 1067 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1067     \textcolor{comment}{!}
1068     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
1069     \textcolor{comment}{! }
1070     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
1071     \textcolor{comment}{!}
1072     \textcolor{keywordtype}{implicit none}
1073     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1074     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1075     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1076   \textcolor{keywordflow}{continue}
1077     factor\_scl = factor
1078     result = sclsec + factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a7312a24e2deeebd64bc57f82de0716df}\label{namespacedc__scaledsec_a7312a24e2deeebd64bc57f82de0716df}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+si@{dcscaledsec\+\_\+add\+\_\+si}}
\index{dcscaledsec\+\_\+add\+\_\+si@{dcscaledsec\+\_\+add\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+si()}{dcscaledsec\_add\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+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})}



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


\begin{DoxyCode}
999     \textcolor{comment}{!}
1000     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
1001     \textcolor{comment}{! }
1002     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
1003     \textcolor{comment}{!}
1004     \textcolor{keywordtype}{implicit none}
1005     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1006     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1007     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1008   \textcolor{keywordflow}{continue}
1009     factor\_scl = factor
1010     result = sclsec + factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_adc4a27cf2d9c1881d83f3263eda767ba}\label{namespacedc__scaledsec_adc4a27cf2d9c1881d83f3263eda767ba}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+sr@{dcscaledsec\+\_\+add\+\_\+sr}}
\index{dcscaledsec\+\_\+add\+\_\+sr@{dcscaledsec\+\_\+add\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+sr()}{dcscaledsec\_add\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+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 1033 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1033     \textcolor{comment}{!}
1034     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
1035     \textcolor{comment}{! }
1036     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
1037     \textcolor{comment}{!}
1038     \textcolor{keywordtype}{implicit none}
1039     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1040     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1041     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1042   \textcolor{keywordflow}{continue}
1043     factor\_scl = factor
1044     result = sclsec + factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a9fa73ac7ab543a7bbb1b3655bd9dcc2f}\label{namespacedc__scaledsec_a9fa73ac7ab543a7bbb1b3655bd9dcc2f}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+add\+\_\+ss@{dcscaledsec\+\_\+add\+\_\+ss}}
\index{dcscaledsec\+\_\+add\+\_\+ss@{dcscaledsec\+\_\+add\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+add\+\_\+ss()}{dcscaledsec\_add\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+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 935 of file dc\+\_\+scaledsec.\+f90.



References imax, imin, and scale\+\_\+factor\+\_\+int.


\begin{DoxyCode}
935     \textcolor{comment}{!}
936     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の加算. }
937     \textcolor{comment}{! }
938     \textcolor{comment}{! Addition of two "DC\_SCALED\_SEC" variables}
939     \textcolor{comment}{!}
940     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
941     \textcolor{keywordtype}{implicit none}
942     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
943 
944     \textcolor{keywordtype}{integer}:: i, move\_up
945     \textcolor{keywordtype}{logical}:: both\_negative, sclsec2\_flag\_negative
946     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec1\_opsign, sclsec2\_opsign
947   \textcolor{keywordflow}{continue}
948     move\_up = 0
949     both\_negative = .false.
950 
951     \textcolor{comment}{! 負の値の処理}
952     \textcolor{comment}{! Handle negative value}
953     \textcolor{comment}{!}
954     sclsec2\_flag\_negative = sclsec2 % flag\_negative
955     \textcolor{keywordflow}{if} ( sclsec1 % flag\_negative ) \textcolor{keywordflow}{then}
956       both\_negative = .true.
957       sclsec2\_flag\_negative = .not. sclsec2\_flag\_negative
958 \textcolor{keywordflow}{    end if}
959     \textcolor{keywordflow}{if} ( sclsec2\_flag\_negative ) \textcolor{keywordflow}{then}
960       sclsec1\_opsign = sclsec1
961       sclsec1\_opsign % flag\_negative = .false.
962       sclsec2\_opsign = sclsec2
963       sclsec2\_opsign % flag\_negative = .false.
964       result = sclsec1\_opsign - sclsec2\_opsign
965       \textcolor{keywordflow}{if} ( both\_negative ) \textcolor{keywordflow}{then}
966         result % flag\_negative = .not. result % flag\_negative
967 \textcolor{keywordflow}{      end if}
968       \textcolor{keywordflow}{return}
969 \textcolor{keywordflow}{    end if}
970 
971     \textcolor{comment}{! 加算}
972     \textcolor{comment}{! Addition}
973     \textcolor{comment}{!}
974     \textcolor{keywordflow}{do} i = imin, imax
975       result % sec\_ary(i) = sclsec1 % sec\_ary(i) + sclsec2 % sec\_ary(i) + move\_up
976       \textcolor{keywordflow}{if} ( .not. result % sec\_ary(i) < scale\_factor\_int ) \textcolor{keywordflow}{then}
977         \textcolor{keywordflow}{if} ( i == imax ) \textcolor{keywordflow}{then}
978           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{keyword}{operator}\textcolor{stringliteral}{'dc\_scaledsec#(*)'}, &
979             & \textcolor{stringliteral}{'DC\_SCALED\_SEC must be smaller than 10^24'} )
980 \textcolor{keywordflow}{        end if}
981         move\_up = result % sec\_ary(i) / scale\_factor\_int
982         result % sec\_ary(i) = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( result % sec\_ary(i), scale\_factor\_int )
983       \textcolor{keywordflow}{else}
984         move\_up = 0
985 \textcolor{keywordflow}{      end if}
986 \textcolor{keywordflow}{    end do}
987 
988     \textcolor{keywordflow}{if} ( both\_negative ) \textcolor{keywordflow}{then}
989       result % flag\_negative = .true.
990     \textcolor{keywordflow}{else}
991       result % flag\_negative = .false.
992 \textcolor{keywordflow}{    end if}
993 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a742229e17d6b826ad0488b98b890fa10}\label{namespacedc__scaledsec_a742229e17d6b826ad0488b98b890fa10}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+ceiling\+\_\+s@{dcscaledsec\+\_\+ceiling\+\_\+s}}
\index{dcscaledsec\+\_\+ceiling\+\_\+s@{dcscaledsec\+\_\+ceiling\+\_\+s}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+ceiling\+\_\+s()}{dcscaledsec\_ceiling\_s()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+ceiling\+\_\+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 2017 of file dc\+\_\+scaledsec.\+f90.



References imin.


\begin{DoxyCode}
2017     \textcolor{comment}{!}
2018     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の整数値 (対象の数値以上で最小の整数) を返す. }
2019     \textcolor{comment}{! }
2020     \textcolor{comment}{! Return an integer value (minimum integer over the given value) }
2021     \textcolor{comment}{! of a "DC\_SCALED\_SEC" variable}
2022     \textcolor{comment}{!}
2023     \textcolor{keywordtype}{implicit none}
2024     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
2025     \textcolor{keywordtype}{integer}:: i
2026     \textcolor{keywordtype}{logical}:: flag\_after\_decimal
2027   \textcolor{keywordflow}{continue}
2028     result = sclsec
2029     flag\_after\_decimal = .false.
2030     \textcolor{keywordflow}{do} i = -1, imin, -1
2031       \textcolor{keywordflow}{if} ( result % sec\_ary(i) /= 0 ) flag\_after\_decimal = .true.
2032       result % sec\_ary(i) = 0
2033 \textcolor{keywordflow}{    end do}
2034     \textcolor{keywordflow}{if} ( flag\_after\_decimal .and. .not. result % flag\_negative ) \textcolor{keywordflow}{then}
2035       result = result + 1
2036 \textcolor{keywordflow}{    end if}
2037 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a85d140a2045f04d54f0c15e988f9b3b6}\label{namespacedc__scaledsec_a85d140a2045f04d54f0c15e988f9b3b6}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+div\+\_\+sd@{dcscaledsec\+\_\+div\+\_\+sd}}
\index{dcscaledsec\+\_\+div\+\_\+sd@{dcscaledsec\+\_\+div\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+div\+\_\+sd()}{dcscaledsec\_div\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+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})}



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



References imax, imin, scale\+\_\+factor, and scale\+\_\+factor\+\_\+xx.


\begin{DoxyCode}
1550     \textcolor{comment}{!}
1551     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の除算. }
1552     \textcolor{comment}{! }
1553     \textcolor{comment}{! Division of a "DC\_SCALED\_SEC" variable}
1554     \textcolor{comment}{!}
1555     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1556     \textcolor{keywordtype}{implicit none}
1557     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1558     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1559     \textcolor{keywordtype}{integer}:: i
1560     \textcolor{keywordtype}{real(DP)}:: factor\_abs, move\_down, sec\_ary\_mod(imin+imin:imax)
1561     \textcolor{comment}{!logical:: flag\_approximate}
1562   \textcolor{keywordflow}{continue}
1563     \textcolor{keywordflow}{if} ( sclsec % flag\_negative ) \textcolor{keywordflow}{then}
1564       result % flag\_negative = .not. factor < 0.0\_dp
1565     \textcolor{keywordflow}{else}
1566       result % flag\_negative = factor < 0.0\_dp
1567 \textcolor{keywordflow}{    end if}
1568     factor\_abs = \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor) * scale\_factor\_xx(2)
1569 
1570 \textcolor{comment}{!    flag\_approximate = .false.}
1571     move\_down = 0.0\_dp
1572     \textcolor{keywordflow}{do} i = imax, imin + imin, -1
1573       \textcolor{keywordflow}{if} ( i > imax + imin ) \textcolor{keywordflow}{then}
1574         sec\_ary\_mod(i) = sclsec % sec\_ary(i)
1575       \textcolor{keywordflow}{elseif} ( i > imin - 1 ) \textcolor{keywordflow}{then}
1576         result % sec\_ary(i-imin) = \hyperlink{interfacedc__scaledsec_1_1int}{int}( ( sclsec % sec\_ary(i) + move\_down ) / factor\_abs )
1577         sec\_ary\_mod(i) = &
1578           & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( ( sclsec % sec\_ary(i) + move\_down ), factor\_abs )
1579       \textcolor{keywordflow}{else}
1580         result % sec\_ary(i-imin) = \hyperlink{interfacedc__scaledsec_1_1int}{int}( move\_down / factor\_abs )
1581         sec\_ary\_mod(i) = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( move\_down, factor\_abs )
1582 \textcolor{keywordflow}{      end if}
1583 
1584       \textcolor{keywordflow}{if} ( sec\_ary\_mod(i) /= 0.0\_dp ) \textcolor{keywordflow}{then}
1585         \textcolor{comment}{!if ( i < imin ) flag\_approximate = .true.}
1586         move\_down = sec\_ary\_mod(i) * scale\_factor
1587       \textcolor{keywordflow}{else}
1588         move\_down = 0.0\_dp
1589 \textcolor{keywordflow}{      end if}
1590 \textcolor{keywordflow}{    end do}
1591 
1592 \textcolor{comment}{!!$    if ( flag\_approximate ) then}
1593 \textcolor{comment}{!!$      call MessageNotify( 'W', 'dc\_scaledsec#operator(/)', &}
1594 \textcolor{comment}{!!$        & 'result may be calculated approximately' )}
1595 \textcolor{comment}{!!$    end if}
1596 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af11fd2297e4fa3aaa627a2e94c25e593}\label{namespacedc__scaledsec_af11fd2297e4fa3aaa627a2e94c25e593}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+div\+\_\+si@{dcscaledsec\+\_\+div\+\_\+si}}
\index{dcscaledsec\+\_\+div\+\_\+si@{dcscaledsec\+\_\+div\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+div\+\_\+si()}{dcscaledsec\_div\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+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})}



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


\begin{DoxyCode}
1534     \textcolor{comment}{!}
1535     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の除算. }
1536     \textcolor{comment}{! }
1537     \textcolor{comment}{! Division of a "DC\_SCALED\_SEC" variable}
1538     \textcolor{comment}{!}
1539     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1540     \textcolor{keywordtype}{implicit none}
1541     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1542     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1543   \textcolor{keywordflow}{continue}
1544     result = sclsec / \textcolor{keywordtype}{real}( factor, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp} )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af4f166304a6800767c182df20e7bf486}\label{namespacedc__scaledsec_af4f166304a6800767c182df20e7bf486}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+div\+\_\+sr@{dcscaledsec\+\_\+div\+\_\+sr}}
\index{dcscaledsec\+\_\+div\+\_\+sr@{dcscaledsec\+\_\+div\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+div\+\_\+sr()}{dcscaledsec\_div\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+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})}



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


\begin{DoxyCode}
1602     \textcolor{comment}{!}
1603     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の除算. }
1604     \textcolor{comment}{! }
1605     \textcolor{comment}{! Division of a "DC\_SCALED\_SEC" variable}
1606     \textcolor{comment}{!}
1607     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1608     \textcolor{keywordtype}{implicit none}
1609     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1610     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1611   \textcolor{keywordflow}{continue}
1612     result = sclsec / \textcolor{keywordtype}{real}( factor, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp} )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_aa89dc4ee4effc20ba41ff306bf18d923}\label{namespacedc__scaledsec_aa89dc4ee4effc20ba41ff306bf18d923}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+div\+\_\+ss@{dcscaledsec\+\_\+div\+\_\+ss}}
\index{dcscaledsec\+\_\+div\+\_\+ss@{dcscaledsec\+\_\+div\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+div\+\_\+ss()}{dcscaledsec\_div\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+ss (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{factor }\end{DoxyParamCaption})}



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



References imax.


\begin{DoxyCode}
1505     \textcolor{comment}{!}
1506     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の除算. }
1507     \textcolor{comment}{! }
1508     \textcolor{comment}{! Division of a "DC\_SCALED\_SEC" variable}
1509     \textcolor{comment}{!}
1510     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1511     \textcolor{keywordtype}{implicit none}
1512     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec, factor
1513     \textcolor{keywordtype}{real(DP)}:: factor\_abs
1514   \textcolor{keywordflow}{continue}
1515 
1516     \textcolor{comment}{! frt, ifort などでは, 1.0e+23 などの実数とすると, }
1517     \textcolor{comment}{! 9.9999e+22 などとなってしまうため, }
1518     \textcolor{comment}{! factor として指定するものは 10e+12 までとする. (うーむ, 汚い対応だな....)}
1519     \textcolor{comment}{! (morikawa 2008/09/01) }
1520     \textcolor{comment}{!}
1521     \textcolor{keywordflow}{if} ( .not. all( factor % sec\_ary (imax-4:imax) == (/ 0, 0, 0, 0, 0 /) ) ) \textcolor{keywordflow}{then}
1522       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{stringliteral}{'dc\_scaledsec#mod'}, &
1523         & \textcolor{stringliteral}{'factor must be smaller than 10^12'} )
1524 \textcolor{keywordflow}{    end if}
1525 
1526     factor\_abs = factor
1527     result = sclsec / factor\_abs
1528 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ab22cbaa3098bde5062cd776ec3b95442}\label{namespacedc__scaledsec_ab22cbaa3098bde5062cd776ec3b95442}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+ds@{dcscaledsec\+\_\+eq\+\_\+ds}}
\index{dcscaledsec\+\_\+eq\+\_\+ds@{dcscaledsec\+\_\+eq\+\_\+ds}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+ds()}{dcscaledsec\_eq\_ds()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+ds (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{sec,  }\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 536 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
536     \textcolor{keywordtype}{implicit none}
537     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: sec
538     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
539     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec2
540   \textcolor{keywordflow}{continue}
541     sclsec2 = sec
542     result = sclsec == sclsec2
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a5e70203b5018ed4084d5949a1dc78b34}\label{namespacedc__scaledsec_a5e70203b5018ed4084d5949a1dc78b34}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+is@{dcscaledsec\+\_\+eq\+\_\+is}}
\index{dcscaledsec\+\_\+eq\+\_\+is@{dcscaledsec\+\_\+eq\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+is()}{dcscaledsec\_eq\_is()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{sec,  }\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 490 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
490     \textcolor{keywordtype}{implicit none}
491     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: sec
492     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
493   \textcolor{keywordflow}{continue}
494     result = sclsec == sec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae4373a9fd6a6035f2f39fb5b59d9ad49}\label{namespacedc__scaledsec_ae4373a9fd6a6035f2f39fb5b59d9ad49}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+rs@{dcscaledsec\+\_\+eq\+\_\+rs}}
\index{dcscaledsec\+\_\+eq\+\_\+rs@{dcscaledsec\+\_\+eq\+\_\+rs}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+rs()}{dcscaledsec\_eq\_rs()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+rs (\begin{DoxyParamCaption}\item[{real, intent(in)}]{sec,  }\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 512 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
512     \textcolor{keywordtype}{implicit none}
513     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: sec
514     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
515     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec2
516   \textcolor{keywordflow}{continue}
517     sclsec2 = sec
518     result = sclsec == sclsec2
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae58a6de329269c1a3a3fa2b71842bae3}\label{namespacedc__scaledsec_ae58a6de329269c1a3a3fa2b71842bae3}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+sd@{dcscaledsec\+\_\+eq\+\_\+sd}}
\index{dcscaledsec\+\_\+eq\+\_\+sd@{dcscaledsec\+\_\+eq\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+sd()}{dcscaledsec\_eq\_sd()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+sd (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{real(dp), intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
524     \textcolor{keywordtype}{implicit none}
525     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
526     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: sec
527     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec2
528   \textcolor{keywordflow}{continue}
529     sclsec2 = sec
530     result = sclsec == sclsec2
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a1263d81f7f846d251f0b2d96422094c7}\label{namespacedc__scaledsec_a1263d81f7f846d251f0b2d96422094c7}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+si@{dcscaledsec\+\_\+eq\+\_\+si}}
\index{dcscaledsec\+\_\+eq\+\_\+si@{dcscaledsec\+\_\+eq\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+si()}{dcscaledsec\_eq\_si()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+si (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{integer, intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References imax, imin, and scale\+\_\+factor\+\_\+int\+\_\+xx.


\begin{DoxyCode}
456     \textcolor{keywordtype}{implicit none}
457     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
458     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: sec
459     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec2
460     \textcolor{keywordtype}{integer}:: i, sec1
461   \textcolor{keywordflow}{continue}
462     \textcolor{keywordflow}{if} ( sclsec % flag\_negative .and. .not. sec < 0 ) \textcolor{keywordflow}{then}
463       result = .false.
464       \textcolor{keywordflow}{return}
465     \textcolor{keywordflow}{elseif} ( .not. sclsec % flag\_negative .and. sec < 0 ) \textcolor{keywordflow}{then}
466       result = .false.
467       \textcolor{keywordflow}{return}
468 \textcolor{keywordflow}{    end if}
469 
470     \textcolor{keywordflow}{if} ( \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(sec) > scale\_factor\_int\_xx(3) ) \textcolor{keywordflow}{then}
471       sclsec2 = sec
472       result = sclsec == sclsec2
473     \textcolor{keywordflow}{else}
474       \textcolor{keywordflow}{if} (      .not. all( sclsec % sec\_ary(imin:-1) == (/0, 0/) ) &
475         &  .or. .not. all( sclsec % sec\_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) \textcolor{keywordflow}{then}
476         result = .false.
477         \textcolor{keywordflow}{return}
478 \textcolor{keywordflow}{      end if}
479       sec1 = sclsec % sec\_ary(0)
480       \textcolor{keywordflow}{do} i = 1, 2
481         sec1 = sec1 + sclsec % sec\_ary(i) * scale\_factor\_int\_xx(i)
482 \textcolor{keywordflow}{      end do}
483       result = sec1 == sec
484 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a9b67008fb5b28345dc212e66716ce590}\label{namespacedc__scaledsec_a9b67008fb5b28345dc212e66716ce590}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+sr@{dcscaledsec\+\_\+eq\+\_\+sr}}
\index{dcscaledsec\+\_\+eq\+\_\+sr@{dcscaledsec\+\_\+eq\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+sr()}{dcscaledsec\_eq\_sr()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+sr (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{real, intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
500     \textcolor{keywordtype}{implicit none}
501     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
502     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: sec
503     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec2
504   \textcolor{keywordflow}{continue}
505     sclsec2 = sec
506     result = sclsec == sclsec2
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae86e9f7b1c3ba57032432ba738d9b4c9}\label{namespacedc__scaledsec_ae86e9f7b1c3ba57032432ba738d9b4c9}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+eq\+\_\+ss@{dcscaledsec\+\_\+eq\+\_\+ss}}
\index{dcscaledsec\+\_\+eq\+\_\+ss@{dcscaledsec\+\_\+eq\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+eq\+\_\+ss()}{dcscaledsec\_eq\_ss()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+eq\+\_\+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})}



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



References imax, and imin.


\begin{DoxyCode}
424     \textcolor{comment}{!}
425     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
426     \textcolor{comment}{! }
427     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
428     \textcolor{comment}{!}
429     \textcolor{keywordtype}{implicit none}
430     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
431 
432     \textcolor{keywordtype}{integer}:: i
433   \textcolor{keywordflow}{continue}
434     \textcolor{keywordflow}{if} ( sclsec1 % flag\_negative .and. .not. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
435       result = .false.
436 
437       \textcolor{keywordflow}{return}
438     \textcolor{keywordflow}{elseif} ( .not. sclsec1 % flag\_negative .and. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
439       result = .false.
440       \textcolor{keywordflow}{return}
441 \textcolor{keywordflow}{    end if}
442 
443     \textcolor{keywordflow}{do} i = imax, imin, -1
444       \textcolor{keywordflow}{if} ( .not. sclsec1 % sec\_ary(i) == sclsec2 % sec\_ary(i) ) \textcolor{keywordflow}{then}
445         result = .false.
446         \textcolor{keywordflow}{return}
447 \textcolor{keywordflow}{      end if}
448 \textcolor{keywordflow}{    end do}
449 
450     result = .true.
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ac8b364b2d8fbb4e733cbd49cdeaeab21}\label{namespacedc__scaledsec_ac8b364b2d8fbb4e733cbd49cdeaeab21}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+floor\+\_\+s@{dcscaledsec\+\_\+floor\+\_\+s}}
\index{dcscaledsec\+\_\+floor\+\_\+s@{dcscaledsec\+\_\+floor\+\_\+s}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+floor\+\_\+s()}{dcscaledsec\_floor\_s()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::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.



References imin.


\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}
\mbox{\Hypertarget{namespacedc__scaledsec_a1c89f511ebef30c54c9c29c2125b31c0}\label{namespacedc__scaledsec_a1c89f511ebef30c54c9c29c2125b31c0}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+ge\+\_\+is@{dcscaledsec\+\_\+ge\+\_\+is}}
\index{dcscaledsec\+\_\+ge\+\_\+is@{dcscaledsec\+\_\+ge\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+ge\+\_\+is()}{dcscaledsec\_ge\_is()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+ge\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\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 876 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
876     \textcolor{comment}{!}
877     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
878     \textcolor{comment}{! }
879     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
880     \textcolor{comment}{!}
881     \textcolor{keywordtype}{implicit none}
882     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
883     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
884   \textcolor{keywordflow}{continue}
885     result = .not. factor < sclsec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_abf155db3f64dd277835939901266e296}\label{namespacedc__scaledsec_abf155db3f64dd277835939901266e296}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+ge\+\_\+si@{dcscaledsec\+\_\+ge\+\_\+si}}
\index{dcscaledsec\+\_\+ge\+\_\+si@{dcscaledsec\+\_\+ge\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+ge\+\_\+si()}{dcscaledsec\_ge\_si()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+ge\+\_\+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 861 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
861     \textcolor{comment}{!}
862     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
863     \textcolor{comment}{! }
864     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
865     \textcolor{comment}{!}
866     \textcolor{keywordtype}{implicit none}
867     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
868     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
869   \textcolor{keywordflow}{continue}
870     result = .not. sclsec < factor
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a0dc091089756f60d60d498d1ca09cabf}\label{namespacedc__scaledsec_a0dc091089756f60d60d498d1ca09cabf}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+ge\+\_\+ss@{dcscaledsec\+\_\+ge\+\_\+ss}}
\index{dcscaledsec\+\_\+ge\+\_\+ss@{dcscaledsec\+\_\+ge\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+ge\+\_\+ss()}{dcscaledsec\_ge\_ss()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+ge\+\_\+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 847 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
847     \textcolor{comment}{!}
848     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
849     \textcolor{comment}{! }
850     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
851     \textcolor{comment}{!}
852     \textcolor{keywordtype}{implicit none}
853     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
854   \textcolor{keywordflow}{continue}
855     result = .not. sclsec1 < sclsec2
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a6b037a07afaec2c5ff0b30a7b7fb2991}\label{namespacedc__scaledsec_a6b037a07afaec2c5ff0b30a7b7fb2991}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+gt\+\_\+is@{dcscaledsec\+\_\+gt\+\_\+is}}
\index{dcscaledsec\+\_\+gt\+\_\+is@{dcscaledsec\+\_\+gt\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+gt\+\_\+is()}{dcscaledsec\_gt\_is()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+gt\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\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 646 of file dc\+\_\+scaledsec.\+f90.



References imax, and scale\+\_\+factor\+\_\+int\+\_\+xx.


\begin{DoxyCode}
646     \textcolor{comment}{!}
647     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
648     \textcolor{comment}{! }
649     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
650     \textcolor{comment}{!}
651     \textcolor{keywordtype}{implicit none}
652     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
653     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
654     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
655     \textcolor{keywordtype}{integer}:: i, sec1, factor\_abs
656     \textcolor{keywordtype}{logical}:: both\_negative
657   \textcolor{keywordflow}{continue}
658     \textcolor{keywordflow}{if} ( sclsec % flag\_negative .and. .not. factor < 0 ) \textcolor{keywordflow}{then}
659       result = .true.
660       \textcolor{keywordflow}{return}
661     \textcolor{keywordflow}{elseif} ( .not. sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
662       result = .false.
663       \textcolor{keywordflow}{return}
664     \textcolor{keywordflow}{elseif} ( sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
665       both\_negative = .true.
666     \textcolor{keywordflow}{else}
667       both\_negative = .false.
668 \textcolor{keywordflow}{    end if}
669 
670     factor\_abs = \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor)
671 
672     \textcolor{keywordflow}{if} ( factor\_abs > scale\_factor\_int\_xx(3) ) \textcolor{keywordflow}{then}
673       factor\_scl = factor
674       result = factor\_scl > sclsec
675       \textcolor{keywordflow}{return}
676     \textcolor{keywordflow}{else}
677       \textcolor{keywordflow}{if} ( .not. all( sclsec % sec\_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) \textcolor{keywordflow}{then}
678         result = .false.
679       \textcolor{keywordflow}{else}
680         sec1 = sclsec % sec\_ary(0)
681         \textcolor{keywordflow}{do} i = 1, 2
682           sec1 = sec1 + sclsec % sec\_ary(i) * scale\_factor\_int\_xx(i)
683 \textcolor{keywordflow}{        end do}
684         \textcolor{keywordflow}{if} ( sec1 == factor\_abs ) \textcolor{keywordflow}{then}
685           result = .false.
686         \textcolor{keywordflow}{else}
687           result = factor\_abs > sec1
688 \textcolor{keywordflow}{        end if}
689 \textcolor{keywordflow}{      end if}
690 
691       \textcolor{keywordflow}{if} ( both\_negative ) result = .not. result
692 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a328c61cecf9a5ac72d1bc8e7e10940eb}\label{namespacedc__scaledsec_a328c61cecf9a5ac72d1bc8e7e10940eb}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+gt\+\_\+si@{dcscaledsec\+\_\+gt\+\_\+si}}
\index{dcscaledsec\+\_\+gt\+\_\+si@{dcscaledsec\+\_\+gt\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+gt\+\_\+si()}{dcscaledsec\_gt\_si()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+gt\+\_\+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 593 of file dc\+\_\+scaledsec.\+f90.



References imax, imin, and scale\+\_\+factor\+\_\+int\+\_\+xx.


\begin{DoxyCode}
593     \textcolor{comment}{!}
594     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
595     \textcolor{comment}{! }
596     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
597     \textcolor{comment}{!}
598     \textcolor{keywordtype}{implicit none}
599     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
600     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
601     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
602     \textcolor{keywordtype}{integer}:: i, sec1, factor\_abs
603     \textcolor{keywordtype}{logical}:: both\_negative
604   \textcolor{keywordflow}{continue}
605     \textcolor{keywordflow}{if} ( sclsec % flag\_negative .and. .not. factor < 0 ) \textcolor{keywordflow}{then}
606       result = .false.
607       \textcolor{keywordflow}{return}
608     \textcolor{keywordflow}{elseif} ( .not. sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
609       result = .true.
610       \textcolor{keywordflow}{return}
611     \textcolor{keywordflow}{elseif} ( sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
612       both\_negative = .true.
613     \textcolor{keywordflow}{else}
614       both\_negative = .false.
615 \textcolor{keywordflow}{    end if}
616 
617     factor\_abs = \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor)
618 
619     \textcolor{keywordflow}{if} ( factor\_abs > scale\_factor\_int\_xx(3) ) \textcolor{keywordflow}{then}
620       factor\_scl = factor
621       result = sclsec > factor\_scl
622       \textcolor{keywordflow}{return}
623     \textcolor{keywordflow}{else}
624       \textcolor{keywordflow}{if} ( .not. all( sclsec % sec\_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) \textcolor{keywordflow}{then}
625         result = .true.
626       \textcolor{keywordflow}{else}
627         sec1 = sclsec % sec\_ary(0)
628         \textcolor{keywordflow}{do} i = 1, 2
629           sec1 = sec1 + sclsec % sec\_ary(i) * scale\_factor\_int\_xx(i)
630 \textcolor{keywordflow}{        end do}
631         \textcolor{keywordflow}{if} ( sec1 == factor\_abs ) \textcolor{keywordflow}{then}
632           result = .not. all( sclsec % sec\_ary(imin:-1) == (/0, 0/) )
633         \textcolor{keywordflow}{else}
634           result = sec1 > factor\_abs
635 \textcolor{keywordflow}{        end if}
636 \textcolor{keywordflow}{      end if}
637 
638       \textcolor{keywordflow}{if} ( both\_negative ) result = .not. result
639 \textcolor{keywordflow}{    end if}
640 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a2089d33431d8ba26d491e44420030248}\label{namespacedc__scaledsec_a2089d33431d8ba26d491e44420030248}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+gt\+\_\+ss@{dcscaledsec\+\_\+gt\+\_\+ss}}
\index{dcscaledsec\+\_\+gt\+\_\+ss@{dcscaledsec\+\_\+gt\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+gt\+\_\+ss()}{dcscaledsec\_gt\_ss()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+gt\+\_\+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 548 of file dc\+\_\+scaledsec.\+f90.



References imax, and imin.


\begin{DoxyCode}
548     \textcolor{comment}{!}
549     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
550     \textcolor{comment}{! }
551     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
552     \textcolor{comment}{!}
553     \textcolor{keywordtype}{implicit none}
554     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
555 
556     \textcolor{keywordtype}{integer}:: i
557     \textcolor{keywordtype}{logical}:: both\_negative, flag\_equal
558   \textcolor{keywordflow}{continue}
559     result = .false.
560     flag\_equal = .true.
561 
562     \textcolor{keywordflow}{if} ( sclsec1 % flag\_negative .and. .not. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
563       result = .false.
564       \textcolor{keywordflow}{return}
565     \textcolor{keywordflow}{elseif} ( .not. sclsec1 % flag\_negative .and. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
566       result = .true.
567       \textcolor{keywordflow}{return}
568     \textcolor{keywordflow}{elseif} ( sclsec1 % flag\_negative .and. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
569       both\_negative = .true.
570     \textcolor{keywordflow}{else}
571       both\_negative = .false.
572 \textcolor{keywordflow}{    end if}
573 
574     \textcolor{keywordflow}{do} i = imax, imin, -1
575       \textcolor{keywordflow}{if} ( sclsec1 % sec\_ary(i) > sclsec2 % sec\_ary(i) ) \textcolor{keywordflow}{then}
576         result = .true.
577         flag\_equal = .false.
578         \textcolor{keywordflow}{exit}
579       \textcolor{keywordflow}{elseif} ( sclsec1 % sec\_ary(i) < sclsec2 % sec\_ary(i) ) \textcolor{keywordflow}{then}
580         result = .false.
581         flag\_equal = .false.
582         \textcolor{keywordflow}{exit}
583 \textcolor{keywordflow}{      end if}
584 \textcolor{keywordflow}{    end do}
585 
586     \textcolor{keywordflow}{if} ( .not. flag\_equal .and. both\_negative ) result = .not. result
587 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af2ff3cabe688fec88b1abbed18acdafc}\label{namespacedc__scaledsec_af2ff3cabe688fec88b1abbed18acdafc}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+int\+\_\+s@{dcscaledsec\+\_\+int\+\_\+s}}
\index{dcscaledsec\+\_\+int\+\_\+s@{dcscaledsec\+\_\+int\+\_\+s}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+int\+\_\+s()}{dcscaledsec\_int\_s()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+int\+\_\+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 1907 of file dc\+\_\+scaledsec.\+f90.



References imin.


\begin{DoxyCode}
1907     \textcolor{comment}{!}
1908     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の整数値 (小数点以下切捨て) を返す. }
1909     \textcolor{comment}{! }
1910     \textcolor{comment}{! Return an integer value (fractional parts are truncated) of a "DC\_SCALED\_SEC" variable}
1911     \textcolor{comment}{!}
1912     \textcolor{keywordtype}{implicit none}
1913     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1914     \textcolor{keywordtype}{integer}:: i
1915   \textcolor{keywordflow}{continue}
1916     result = sclsec
1917     \textcolor{keywordflow}{do} i = -1, imin, -1
1918       result % sec\_ary(i) = 0
1919 \textcolor{keywordflow}{    end do}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af638f8368bb84eebd74d4a413763e8ce}\label{namespacedc__scaledsec_af638f8368bb84eebd74d4a413763e8ce}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+le\+\_\+is@{dcscaledsec\+\_\+le\+\_\+is}}
\index{dcscaledsec\+\_\+le\+\_\+is@{dcscaledsec\+\_\+le\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+le\+\_\+is()}{dcscaledsec\_le\_is()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+le\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\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 920 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
920     \textcolor{comment}{!}
921     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
922     \textcolor{comment}{! }
923     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
924     \textcolor{comment}{!}
925     \textcolor{keywordtype}{implicit none}
926     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
927     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
928   \textcolor{keywordflow}{continue}
929     result = .not. factor > sclsec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a9fe2c695e3577a72680b3601af3b9ec4}\label{namespacedc__scaledsec_a9fe2c695e3577a72680b3601af3b9ec4}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+le\+\_\+si@{dcscaledsec\+\_\+le\+\_\+si}}
\index{dcscaledsec\+\_\+le\+\_\+si@{dcscaledsec\+\_\+le\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+le\+\_\+si()}{dcscaledsec\_le\_si()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+le\+\_\+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 905 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
905     \textcolor{comment}{!}
906     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
907     \textcolor{comment}{! }
908     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
909     \textcolor{comment}{!}
910     \textcolor{keywordtype}{implicit none}
911     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
912     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
913   \textcolor{keywordflow}{continue}
914     result = .not. sclsec > factor
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_aa4a632ae7234986ae1bde842caa6f20d}\label{namespacedc__scaledsec_aa4a632ae7234986ae1bde842caa6f20d}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+le\+\_\+ss@{dcscaledsec\+\_\+le\+\_\+ss}}
\index{dcscaledsec\+\_\+le\+\_\+ss@{dcscaledsec\+\_\+le\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+le\+\_\+ss()}{dcscaledsec\_le\_ss()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+le\+\_\+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 891 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
891     \textcolor{comment}{!}
892     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
893     \textcolor{comment}{! }
894     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
895     \textcolor{comment}{!}
896     \textcolor{keywordtype}{implicit none}
897     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
898   \textcolor{keywordflow}{continue}
899     result = .not. sclsec1 > sclsec2
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a1a83deadb9d2ef4661a065fb10648131}\label{namespacedc__scaledsec_a1a83deadb9d2ef4661a065fb10648131}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+lt\+\_\+is@{dcscaledsec\+\_\+lt\+\_\+is}}
\index{dcscaledsec\+\_\+lt\+\_\+is@{dcscaledsec\+\_\+lt\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+lt\+\_\+is()}{dcscaledsec\_lt\_is()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+lt\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\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 794 of file dc\+\_\+scaledsec.\+f90.



References imax, imin, and scale\+\_\+factor\+\_\+int\+\_\+xx.


\begin{DoxyCode}
794     \textcolor{comment}{!}
795     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
796     \textcolor{comment}{! }
797     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
798     \textcolor{comment}{!}
799     \textcolor{keywordtype}{implicit none}
800     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
801     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
802     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
803     \textcolor{keywordtype}{integer}:: i, sec1, factor\_abs
804     \textcolor{keywordtype}{logical}:: both\_negative
805   \textcolor{keywordflow}{continue}
806     \textcolor{keywordflow}{if} ( sclsec % flag\_negative .and. .not. factor < 0 ) \textcolor{keywordflow}{then}
807       result = .false.
808       \textcolor{keywordflow}{return}
809     \textcolor{keywordflow}{elseif} ( .not. sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
810       result = .true.
811       \textcolor{keywordflow}{return}
812     \textcolor{keywordflow}{elseif} ( sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
813       both\_negative = .true.
814     \textcolor{keywordflow}{else}
815       both\_negative = .false.
816 \textcolor{keywordflow}{    end if}
817 
818     factor\_abs = \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor)
819 
820     \textcolor{keywordflow}{if} ( factor\_abs > scale\_factor\_int\_xx(3) ) \textcolor{keywordflow}{then}
821       factor\_scl = factor
822       result = factor\_scl < sclsec
823       \textcolor{keywordflow}{return}
824     \textcolor{keywordflow}{else}
825       \textcolor{keywordflow}{if} ( .not. all( sclsec % sec\_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) \textcolor{keywordflow}{then}
826         result = .true.
827       \textcolor{keywordflow}{else}
828         sec1 = sclsec % sec\_ary(0)
829         \textcolor{keywordflow}{do} i = 1, 2
830           sec1 = sec1 + sclsec % sec\_ary(i) * scale\_factor\_int\_xx(i)
831 \textcolor{keywordflow}{        end do}
832         \textcolor{keywordflow}{if} ( sec1 == factor\_abs ) \textcolor{keywordflow}{then}
833           result = .not. all( sclsec % sec\_ary(imin:-1) == (/0, 0/) )
834         \textcolor{keywordflow}{else}
835           result = factor\_abs < sec1
836 \textcolor{keywordflow}{        end if}
837 \textcolor{keywordflow}{      end if}
838 
839       \textcolor{keywordflow}{if} ( both\_negative ) result = .not. result
840 \textcolor{keywordflow}{    end if}
841 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a62da6a324e5164072a633e5edd84ff04}\label{namespacedc__scaledsec_a62da6a324e5164072a633e5edd84ff04}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+lt\+\_\+si@{dcscaledsec\+\_\+lt\+\_\+si}}
\index{dcscaledsec\+\_\+lt\+\_\+si@{dcscaledsec\+\_\+lt\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+lt\+\_\+si()}{dcscaledsec\_lt\_si()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+lt\+\_\+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 742 of file dc\+\_\+scaledsec.\+f90.



References imax, and scale\+\_\+factor\+\_\+int\+\_\+xx.


\begin{DoxyCode}
742     \textcolor{comment}{!}
743     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
744     \textcolor{comment}{! }
745     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
746     \textcolor{comment}{!}
747     \textcolor{keywordtype}{implicit none}
748     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
749     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
750     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
751     \textcolor{keywordtype}{integer}:: i, sec1, factor\_abs
752     \textcolor{keywordtype}{logical}:: both\_negative
753   \textcolor{keywordflow}{continue}
754     \textcolor{keywordflow}{if} ( sclsec % flag\_negative .and. .not. factor < 0 ) \textcolor{keywordflow}{then}
755       result = .true.
756       \textcolor{keywordflow}{return}
757     \textcolor{keywordflow}{elseif} ( .not. sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
758       result = .false.
759       \textcolor{keywordflow}{return}
760     \textcolor{keywordflow}{elseif} ( sclsec % flag\_negative .and. factor < 0 ) \textcolor{keywordflow}{then}
761       both\_negative = .true.
762     \textcolor{keywordflow}{else}
763       both\_negative = .false.
764 \textcolor{keywordflow}{    end if}
765 
766     factor\_abs = \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor)
767 
768     \textcolor{keywordflow}{if} ( factor\_abs > scale\_factor\_int\_xx(3) ) \textcolor{keywordflow}{then}
769       factor\_scl = factor
770       result =  sclsec < factor\_scl
771       \textcolor{keywordflow}{return}
772     \textcolor{keywordflow}{else}
773       \textcolor{keywordflow}{if} ( .not. all( sclsec % sec\_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) \textcolor{keywordflow}{then}
774         result = .false.
775       \textcolor{keywordflow}{else}
776         sec1 = sclsec % sec\_ary(0)
777         \textcolor{keywordflow}{do} i = 1, 2
778           sec1 = sec1 + sclsec % sec\_ary(i) * scale\_factor\_int\_xx(i)
779 \textcolor{keywordflow}{        end do}
780         \textcolor{keywordflow}{if} ( sec1 == factor\_abs ) \textcolor{keywordflow}{then}
781           result = .false.
782         \textcolor{keywordflow}{else}
783           result = sec1 < factor\_abs
784 \textcolor{keywordflow}{        end if}
785 \textcolor{keywordflow}{      end if}
786 
787       \textcolor{keywordflow}{if} ( both\_negative ) result = .not. result
788 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a16219e8e6904cbe4d5cb32a1b53d22eb}\label{namespacedc__scaledsec_a16219e8e6904cbe4d5cb32a1b53d22eb}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+lt\+\_\+ss@{dcscaledsec\+\_\+lt\+\_\+ss}}
\index{dcscaledsec\+\_\+lt\+\_\+ss@{dcscaledsec\+\_\+lt\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+lt\+\_\+ss()}{dcscaledsec\_lt\_ss()}}
{\footnotesize\ttfamily logical function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+lt\+\_\+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 698 of file dc\+\_\+scaledsec.\+f90.



References imax, and imin.


\begin{DoxyCode}
698     \textcolor{comment}{!}
699     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の比較}
700     \textcolor{comment}{! }
701     \textcolor{comment}{! Comparison of two "DC\_SCALED\_SEC" variables}
702     \textcolor{comment}{!}
703     \textcolor{keywordtype}{implicit none}
704     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
705     \textcolor{keywordtype}{integer}:: i
706     \textcolor{keywordtype}{logical}:: both\_negative, flag\_equal
707   \textcolor{keywordflow}{continue}
708     result = .false.
709     flag\_equal = .true.
710 
711     \textcolor{keywordflow}{if} ( sclsec1 % flag\_negative .and. .not. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
712       result = .true.
713       \textcolor{keywordflow}{return}
714     \textcolor{keywordflow}{elseif} ( .not. sclsec1 % flag\_negative .and. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
715       result = .false.
716       \textcolor{keywordflow}{return}
717     \textcolor{keywordflow}{elseif} ( sclsec1 % flag\_negative .and. sclsec2 % flag\_negative ) \textcolor{keywordflow}{then}
718       both\_negative = .true.
719     \textcolor{keywordflow}{else}
720       both\_negative = .false.
721 \textcolor{keywordflow}{    end if}
722 
723     \textcolor{keywordflow}{do} i = imax, imin, -1
724       \textcolor{keywordflow}{if} ( sclsec1 % sec\_ary(i) > sclsec2 % sec\_ary(i) ) \textcolor{keywordflow}{then}
725         result = .false.
726         flag\_equal = .false.
727         \textcolor{keywordflow}{exit}
728       \textcolor{keywordflow}{elseif} ( sclsec1 % sec\_ary(i) < sclsec2 % sec\_ary(i) ) \textcolor{keywordflow}{then}
729         result = .true.
730         flag\_equal = .false.
731         \textcolor{keywordflow}{exit}
732 \textcolor{keywordflow}{      end if}
733 \textcolor{keywordflow}{    end do}
734 
735     \textcolor{keywordflow}{if} ( .not. flag\_equal .and. both\_negative ) result = .not. result
736 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_aa6fb0ce94e1204c119128831b9c03fd6}\label{namespacedc__scaledsec_aa6fb0ce94e1204c119128831b9c03fd6}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mod\+\_\+sd@{dcscaledsec\+\_\+mod\+\_\+sd}}
\index{dcscaledsec\+\_\+mod\+\_\+sd@{dcscaledsec\+\_\+mod\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mod\+\_\+sd()}{dcscaledsec\_mod\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+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})}



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


\begin{DoxyCode}
1728     \textcolor{comment}{!}
1729     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の余りを計算. }
1730     \textcolor{comment}{! }
1731     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1732     \textcolor{comment}{!}
1733     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1734     \textcolor{keywordtype}{implicit none}
1735     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1736     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1737     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1738 
1739   \textcolor{keywordflow}{continue}
1740     factor\_scl = factor
1741     result = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( sclsec, factor\_scl )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af59189c00b972a753c914687a9d1c59b}\label{namespacedc__scaledsec_af59189c00b972a753c914687a9d1c59b}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mod\+\_\+si@{dcscaledsec\+\_\+mod\+\_\+si}}
\index{dcscaledsec\+\_\+mod\+\_\+si@{dcscaledsec\+\_\+mod\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mod\+\_\+si()}{dcscaledsec\_mod\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+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})}



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


\begin{DoxyCode}
1690     \textcolor{comment}{!}
1691     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の余りを計算. }
1692     \textcolor{comment}{! }
1693     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1694     \textcolor{comment}{!}
1695     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1696     \textcolor{keywordtype}{implicit none}
1697     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1698     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1699     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1700 
1701   \textcolor{keywordflow}{continue}
1702     factor\_scl = factor
1703     result = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( sclsec, factor\_scl )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a327e2a41c322e67b0d67bd0515833661}\label{namespacedc__scaledsec_a327e2a41c322e67b0d67bd0515833661}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mod\+\_\+sr@{dcscaledsec\+\_\+mod\+\_\+sr}}
\index{dcscaledsec\+\_\+mod\+\_\+sr@{dcscaledsec\+\_\+mod\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mod\+\_\+sr()}{dcscaledsec\_mod\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+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})}



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


\begin{DoxyCode}
1709     \textcolor{comment}{!}
1710     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の余りを計算. }
1711     \textcolor{comment}{! }
1712     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1713     \textcolor{comment}{!}
1714     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1715     \textcolor{keywordtype}{implicit none}
1716     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1717     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1718     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1719 
1720   \textcolor{keywordflow}{continue}
1721     factor\_scl = factor
1722     result = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( sclsec, factor\_scl )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a65032a304957d2b283195dd37a35b04c}\label{namespacedc__scaledsec_a65032a304957d2b283195dd37a35b04c}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mod\+\_\+ss@{dcscaledsec\+\_\+mod\+\_\+ss}}
\index{dcscaledsec\+\_\+mod\+\_\+ss@{dcscaledsec\+\_\+mod\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mod\+\_\+ss()}{dcscaledsec\_mod\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+ss (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{factor }\end{DoxyParamCaption})}



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



References imax, imin, scale\+\_\+factor, and scale\+\_\+factor\+\_\+xx.


\begin{DoxyCode}
1618     \textcolor{comment}{!}
1619     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の余りを計算. }
1620     \textcolor{comment}{! }
1621     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1622     \textcolor{comment}{!}
1623     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1624     \textcolor{keywordtype}{implicit none}
1625     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec, factor
1626 
1627     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1628     \textcolor{keywordtype}{real(DP)}:: sec\_ary\_mod(imin+imin:imax)
1629     \textcolor{keywordtype}{integer}:: i, move\_down\_index
1630     \textcolor{keywordtype}{real(DP)}:: move\_down
1631     \textcolor{keywordtype}{real(DP)}:: factor\_dp
1632     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: zero\_sec
1633   \textcolor{keywordflow}{continue}
1634 
1635     \textcolor{comment}{! frt, ifort などでは, 1.0e+23 などの実数とすると, }
1636     \textcolor{comment}{! 9.9999e+22 などとなってしまうため, }
1637     \textcolor{comment}{! factor として指定するものは 10e+12 までとする. (うーむ, 汚い対応だな....)}
1638     \textcolor{comment}{! (morikawa 2008/09/01) }
1639     \textcolor{comment}{!}
1640     \textcolor{keywordflow}{if} ( .not. all( factor % sec\_ary (imax-4:imax) == (/ 0, 0, 0, 0, 0 /) ) ) \textcolor{keywordflow}{then}
1641       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{stringliteral}{'dc\_scaledsec#mod'}, &
1642         & \textcolor{stringliteral}{'factor must be smaller than 10^12'} )
1643 \textcolor{keywordflow}{    end if}
1644 
1645     \textcolor{keywordflow}{if} ( sclsec == factor ) \textcolor{keywordflow}{then}
1646       result = zero\_sec
1647       \textcolor{keywordflow}{return}
1648 \textcolor{keywordflow}{    end if}
1649 
1650     factor\_scl % sec\_ary(imin:-1) = 0
1651     factor\_scl % sec\_ary(imin-imin:imax) = factor % sec\_ary(imin:imax+imin)
1652     factor\_scl % flag\_negative = factor % flag\_negative
1653 
1654     factor\_dp = factor\_scl
1655 
1656     move\_down = 0.0\_dp
1657     \textcolor{keywordflow}{do} i = imax, imin + imin, -1
1658       move\_down\_index = i
1659       \textcolor{keywordflow}{if} ( move\_down /= 0.0\_dp ) \textcolor{keywordflow}{then}
1660         \textcolor{keywordflow}{if} ( \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor\_dp) > ( move\_down + scale\_factor ) * scale\_factor\_xx( i - imin ) ) \textcolor{keywordflow}{exit}
1661 \textcolor{keywordflow}{      end if}
1662 
1663       \textcolor{keywordflow}{if} ( i > imin - 1 ) \textcolor{keywordflow}{then}
1664         sec\_ary\_mod(i) = &
1665           & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( ( sclsec % sec\_ary(i) + move\_down ), factor\_dp )
1666       \textcolor{keywordflow}{else}
1667         sec\_ary\_mod(i) = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( move\_down, factor\_dp )
1668 \textcolor{keywordflow}{      end if}
1669 
1670       \textcolor{keywordflow}{if} ( sec\_ary\_mod(i) /= 0.0\_dp ) \textcolor{keywordflow}{then}
1671         move\_down = sec\_ary\_mod(i) * scale\_factor
1672       \textcolor{keywordflow}{else}
1673         move\_down = 0.0\_dp
1674 \textcolor{keywordflow}{      end if}
1675 
1676 \textcolor{keywordflow}{    end do}
1677 
1678     result = move\_down * scale\_factor\_xx(move\_down\_index)
1679     \textcolor{keywordflow}{if} ( move\_down\_index > imin - 1 ) \textcolor{keywordflow}{then}
1680       result % sec\_ary(imin:move\_down\_index) = sclsec % sec\_ary(imin:move\_down\_index)
1681 \textcolor{keywordflow}{    end if}
1682 
1683     result % flag\_negative = sclsec % flag\_negative
1684 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ac8aa4c86c251c44e15d24c4705dd6226}\label{namespacedc__scaledsec_ac8aa4c86c251c44e15d24c4705dd6226}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+modulo\+\_\+sd@{dcscaledsec\+\_\+modulo\+\_\+sd}}
\index{dcscaledsec\+\_\+modulo\+\_\+sd@{dcscaledsec\+\_\+modulo\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+modulo\+\_\+sd()}{dcscaledsec\_modulo\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+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})}



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


\begin{DoxyCode}
1872     \textcolor{comment}{!}
1873     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の剰余を計算. }
1874     \textcolor{comment}{! }
1875     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1876     \textcolor{comment}{!}
1877     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1878     \textcolor{keywordtype}{implicit none}
1879     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1880     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1881     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1882 
1883   \textcolor{keywordflow}{continue}
1884     factor\_scl = factor
1885     result = \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}( sclsec, factor\_scl )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a2e215c3912e88c796dc6607e0bb23412}\label{namespacedc__scaledsec_a2e215c3912e88c796dc6607e0bb23412}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+modulo\+\_\+si@{dcscaledsec\+\_\+modulo\+\_\+si}}
\index{dcscaledsec\+\_\+modulo\+\_\+si@{dcscaledsec\+\_\+modulo\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+modulo\+\_\+si()}{dcscaledsec\_modulo\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+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})}



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


\begin{DoxyCode}
1834     \textcolor{comment}{!}
1835     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の剰余を計算. }
1836     \textcolor{comment}{! }
1837     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1838     \textcolor{comment}{!}
1839     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1840     \textcolor{keywordtype}{implicit none}
1841     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1842     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1843     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1844 
1845   \textcolor{keywordflow}{continue}
1846     factor\_scl = factor
1847     result = \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}( sclsec, factor\_scl )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a658c1944abccbbd499aa46089e67c9ac}\label{namespacedc__scaledsec_a658c1944abccbbd499aa46089e67c9ac}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+modulo\+\_\+sr@{dcscaledsec\+\_\+modulo\+\_\+sr}}
\index{dcscaledsec\+\_\+modulo\+\_\+sr@{dcscaledsec\+\_\+modulo\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+modulo\+\_\+sr()}{dcscaledsec\_modulo\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+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})}



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


\begin{DoxyCode}
1853     \textcolor{comment}{!}
1854     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の剰余を計算. }
1855     \textcolor{comment}{! }
1856     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1857     \textcolor{comment}{!}
1858     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1859     \textcolor{keywordtype}{implicit none}
1860     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1861     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1862     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1863 
1864   \textcolor{keywordflow}{continue}
1865     factor\_scl = factor
1866     result = \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}( sclsec, factor\_scl )
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae130f94ebc3698066d8cc4f918640df8}\label{namespacedc__scaledsec_ae130f94ebc3698066d8cc4f918640df8}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+modulo\+\_\+ss@{dcscaledsec\+\_\+modulo\+\_\+ss}}
\index{dcscaledsec\+\_\+modulo\+\_\+ss@{dcscaledsec\+\_\+modulo\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+modulo\+\_\+ss()}{dcscaledsec\_modulo\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+ss (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{factor }\end{DoxyParamCaption})}



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



References imax, imin, scale\+\_\+factor, and scale\+\_\+factor\+\_\+xx.


\begin{DoxyCode}
1747     \textcolor{comment}{!}
1748     \textcolor{comment}{! DC\_SCALED\_SEC 型変数を割った際の剰余を計算. }
1749     \textcolor{comment}{! }
1750     \textcolor{comment}{! Calculate of remainder by division of a "DC\_SCALED\_SEC" variable}
1751     \textcolor{comment}{!}
1752     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1753     \textcolor{keywordtype}{implicit none}
1754     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec, factor
1755 
1756     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1757     \textcolor{keywordtype}{real(DP)}:: sec\_ary\_mod(imin+imin:imax)
1758     \textcolor{keywordtype}{integer}:: i, move\_down\_index
1759     \textcolor{keywordtype}{real(DP)}:: move\_down
1760     \textcolor{keywordtype}{real(DP)}:: factor\_dp
1761     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: zero\_sec
1762   \textcolor{keywordflow}{continue}
1763   
1764     \textcolor{comment}{! frt, ifort などでは, 1.0e+23 などの実数とすると, }
1765     \textcolor{comment}{! 9.9999e+22 などとなってしまうため, }
1766     \textcolor{comment}{! factor として指定するものは 10e+12 までとする. (うーむ, 汚い対応だな....)}
1767     \textcolor{comment}{! (morikawa 2008/09/01) }
1768     \textcolor{comment}{!}
1769     \textcolor{keywordflow}{if} ( .not. all( factor % sec\_ary (imax-4:imax) == (/ 0, 0, 0, 0, 0 /) ) ) \textcolor{keywordflow}{then}
1770       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{stringliteral}{'dc\_scaledsec#modulo'}, &
1771         & \textcolor{stringliteral}{'factor must be smaller than 10^12'} )
1772 \textcolor{keywordflow}{    end if}
1773 
1774     \textcolor{keywordflow}{if} ( sclsec == factor ) \textcolor{keywordflow}{then}
1775       result = zero\_sec
1776       \textcolor{keywordflow}{return}
1777 \textcolor{keywordflow}{    end if}
1778 
1779     factor\_scl % sec\_ary(imin:-1) = 0
1780     factor\_scl % sec\_ary(imin-imin:imax) = factor % sec\_ary(imin:imax+imin)
1781     factor\_scl % flag\_negative = factor % flag\_negative
1782 
1783     factor\_dp = factor\_scl
1784 
1785     move\_down = 0.0\_dp
1786     \textcolor{keywordflow}{do} i = imax, imin + imin, -1
1787       move\_down\_index = i
1788       \textcolor{keywordflow}{if} ( move\_down /= 0.0\_dp ) \textcolor{keywordflow}{then}
1789         \textcolor{keywordflow}{if} ( \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor\_dp) > ( move\_down + scale\_factor ) * scale\_factor\_xx( i - imin ) ) \textcolor{keywordflow}{exit}
1790 \textcolor{keywordflow}{      end if}
1791 
1792       \textcolor{keywordflow}{if} ( i > imin - 1 ) \textcolor{keywordflow}{then}
1793         sec\_ary\_mod(i) = &
1794           & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( ( sclsec % sec\_ary(i) + move\_down ), factor\_dp )
1795       \textcolor{keywordflow}{else}
1796         sec\_ary\_mod(i) = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( move\_down, factor\_dp )
1797 \textcolor{keywordflow}{      end if}
1798 
1799       \textcolor{keywordflow}{if} ( sec\_ary\_mod(i) /= 0.0\_dp ) \textcolor{keywordflow}{then}
1800         move\_down = sec\_ary\_mod(i) * scale\_factor
1801       \textcolor{keywordflow}{else}
1802         move\_down = 0.0\_dp
1803 \textcolor{keywordflow}{      end if}
1804 
1805 \textcolor{keywordflow}{    end do}
1806 
1807     result = move\_down * scale\_factor\_xx(move\_down\_index)
1808     \textcolor{keywordflow}{if} ( move\_down\_index > imin - 1 ) \textcolor{keywordflow}{then}
1809       result % sec\_ary(imin:move\_down\_index) = sclsec % sec\_ary(imin:move\_down\_index)
1810 \textcolor{keywordflow}{    end if}
1811     
1812     result % flag\_negative = .false.
1813 
1814     \textcolor{keywordflow}{if} ( .not. result == zero\_sec ) \textcolor{keywordflow}{then}
1815       \textcolor{keywordflow}{if} ( .not. sclsec % flag\_negative .and. factor % flag\_negative ) \textcolor{keywordflow}{then}
1816         result = - factor - result
1817         result % flag\_negative = .not. sclsec % flag\_negative
1818         
1819       \textcolor{keywordflow}{elseif} ( sclsec % flag\_negative .and. .not. factor % flag\_negative ) \textcolor{keywordflow}{then}
1820         result = factor - result
1821         result % flag\_negative = .not. sclsec % flag\_negative
1822 
1823       \textcolor{keywordflow}{else}
1824         result % flag\_negative = sclsec % flag\_negative
1825         
1826 \textcolor{keywordflow}{      end if}
1827 \textcolor{keywordflow}{    end if}
1828 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a3023c4d325498088eee3af360ecf5c9a}\label{namespacedc__scaledsec_a3023c4d325498088eee3af360ecf5c9a}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+ds@{dcscaledsec\+\_\+mul\+\_\+ds}}
\index{dcscaledsec\+\_\+mul\+\_\+ds@{dcscaledsec\+\_\+mul\+\_\+ds}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+ds()}{dcscaledsec\_mul\_ds()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+ds (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{factor,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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


\begin{DoxyCode}
1455     \textcolor{comment}{!}
1456     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1457     \textcolor{comment}{! }
1458     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1459     \textcolor{comment}{!}
1460     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1461     \textcolor{keywordtype}{implicit none}
1462     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1463     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1464   \textcolor{keywordflow}{continue}
1465     result = sclsec * factor
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_acd55645dcc41abecba4040f4ca1c7735}\label{namespacedc__scaledsec_acd55645dcc41abecba4040f4ca1c7735}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+is@{dcscaledsec\+\_\+mul\+\_\+is}}
\index{dcscaledsec\+\_\+mul\+\_\+is@{dcscaledsec\+\_\+mul\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+is()}{dcscaledsec\_mul\_is()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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


\begin{DoxyCode}
1422     \textcolor{comment}{!}
1423     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1424     \textcolor{comment}{! }
1425     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1426     \textcolor{comment}{!}
1427     \textcolor{keywordtype}{implicit none}
1428     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1429     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1430   \textcolor{keywordflow}{continue}
1431     result = sclsec * factor
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae5b2c07e23fa9ee118c8aa45b620b691}\label{namespacedc__scaledsec_ae5b2c07e23fa9ee118c8aa45b620b691}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+rs@{dcscaledsec\+\_\+mul\+\_\+rs}}
\index{dcscaledsec\+\_\+mul\+\_\+rs@{dcscaledsec\+\_\+mul\+\_\+rs}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+rs()}{dcscaledsec\_mul\_rs()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+rs (\begin{DoxyParamCaption}\item[{real, intent(in)}]{factor,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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


\begin{DoxyCode}
1489     \textcolor{comment}{!}
1490     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1491     \textcolor{comment}{! }
1492     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1493     \textcolor{comment}{!}
1494     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1495     \textcolor{keywordtype}{implicit none}
1496     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1497     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1498   \textcolor{keywordflow}{continue}
1499     result = sclsec * factor
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a1617177d301875e95d8321d6ca0052b8}\label{namespacedc__scaledsec_a1617177d301875e95d8321d6ca0052b8}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+sd@{dcscaledsec\+\_\+mul\+\_\+sd}}
\index{dcscaledsec\+\_\+mul\+\_\+sd@{dcscaledsec\+\_\+mul\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+sd()}{dcscaledsec\_mul\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+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 1437 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1437     \textcolor{comment}{!}
1438     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1439     \textcolor{comment}{! }
1440     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1441     \textcolor{comment}{!}
1442     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1443     \textcolor{keywordtype}{implicit none}
1444     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1445     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1446     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1447   \textcolor{keywordflow}{continue}
1448     factor\_scl = factor
1449     result = sclsec * factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af332fdf84b1c91467e8d35428f7cd45c}\label{namespacedc__scaledsec_af332fdf84b1c91467e8d35428f7cd45c}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+si@{dcscaledsec\+\_\+mul\+\_\+si}}
\index{dcscaledsec\+\_\+mul\+\_\+si@{dcscaledsec\+\_\+mul\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+si()}{dcscaledsec\_mul\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+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})}



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



References imax, imin, and scale\+\_\+factor.


\begin{DoxyCode}
1368     \textcolor{comment}{!}
1369     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1370     \textcolor{comment}{! }
1371     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1372     \textcolor{comment}{!}
1373     \textcolor{comment}{!--}
1374     \textcolor{comment}{! 高速化のため, mul\_ss を使用しない. }
1375     \textcolor{comment}{!++}
1376     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1377     \textcolor{keywordtype}{implicit none}
1378     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1379     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1380     \textcolor{keywordtype}{integer}:: factor\_abs
1381     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: zero\_sec
1382     \textcolor{keywordtype}{real(DP)}:: sec\_ary\_dp(imin:imax)
1383     \textcolor{keywordtype}{integer}:: i, move\_up
1384   \textcolor{keywordflow}{continue}
1385     \textcolor{keywordflow}{if} ( sclsec == zero\_sec .or. factor == 0 ) \textcolor{keywordflow}{then}
1386       result = zero\_sec
1387       \textcolor{keywordflow}{return}
1388 \textcolor{keywordflow}{    end if}
1389 
1390     \textcolor{keywordflow}{if} ( sclsec % flag\_negative ) \textcolor{keywordflow}{then}
1391       result % flag\_negative = .not. factor < 0
1392     \textcolor{keywordflow}{else}
1393       result % flag\_negative = factor < 0
1394 \textcolor{keywordflow}{    end if}
1395     factor\_abs = \hyperlink{interfacedc__scaledsec_1_1abs}{abs}(factor)
1396 
1397     move\_up = 0
1398     sec\_ary\_dp(:) = 0.0\_dp
1399     \textcolor{keywordflow}{do} i = imin, imax
1400       sec\_ary\_dp(i) = sclsec % sec\_ary(i) * factor\_abs + move\_up
1401 
1402       \textcolor{keywordflow}{if} ( .not. sec\_ary\_dp(i) < scale\_factor ) \textcolor{keywordflow}{then}
1403         move\_up = \hyperlink{interfacedc__scaledsec_1_1int}{int}( sec\_ary\_dp(i) / scale\_factor )
1404         sec\_ary\_dp(i) = sec\_ary\_dp(i) - move\_up * scale\_factor
1405       \textcolor{keywordflow}{else}
1406         move\_up = 0
1407 \textcolor{keywordflow}{      end if}
1408 \textcolor{keywordflow}{    end do}
1409 
1410     \textcolor{keywordflow}{if} ( move\_up /= 0 ) \textcolor{keywordflow}{then}
1411       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{keyword}{operator}\textcolor{stringliteral}{'dc\_scaledsec#(*)'}, &
1412         & \textcolor{stringliteral}{'DC\_SCALED\_SEC must be smaller than 10^24'} )
1413 \textcolor{keywordflow}{    end if}
1414 
1415     result % sec\_ary(imin:imax) = sec\_ary\_dp(imin:imax)
1416 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a70a1f35f9ce5042b42b037e754612e77}\label{namespacedc__scaledsec_a70a1f35f9ce5042b42b037e754612e77}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+sr@{dcscaledsec\+\_\+mul\+\_\+sr}}
\index{dcscaledsec\+\_\+mul\+\_\+sr@{dcscaledsec\+\_\+mul\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+sr()}{dcscaledsec\_mul\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+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})}



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


\begin{DoxyCode}
1471     \textcolor{comment}{!}
1472     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1473     \textcolor{comment}{! }
1474     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1475     \textcolor{comment}{!}
1476     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1477     \textcolor{keywordtype}{implicit none}
1478     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1479     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1480     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1481   \textcolor{keywordflow}{continue}
1482     factor\_scl = factor
1483     result = sclsec * factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a396a10528e13ccab958494af0985df12}\label{namespacedc__scaledsec_a396a10528e13ccab958494af0985df12}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+mul\+\_\+ss@{dcscaledsec\+\_\+mul\+\_\+ss}}
\index{dcscaledsec\+\_\+mul\+\_\+ss@{dcscaledsec\+\_\+mul\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+mul\+\_\+ss()}{dcscaledsec\_mul\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+ss (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in), target}]{sclsec1,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in), target}]{sclsec2 }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References imax, imin, scale\+\_\+factor, and scale\+\_\+factor\+\_\+int.


\begin{DoxyCode}
1297     \textcolor{comment}{!}
1298     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の乗算. }
1299     \textcolor{comment}{! }
1300     \textcolor{comment}{! Multiplication of a "DC\_SCALED\_SEC" variable}
1301     \textcolor{comment}{!}
1302     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1303     \textcolor{keywordtype}{implicit none}
1304     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{target}:: sclsec1, sclsec2
1305     \textcolor{keywordtype}{integer}:: sec\_ary\_int(imin:imax,imin:imax)
1306 \textcolor{comment}{!    real(DP):: sec\_ary\_int(imin:imax,imin:imax)}
1307     \textcolor{keywordtype}{integer}:: i, j, move\_up
1308     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: zero\_sec
1309   \textcolor{keywordflow}{continue}
1310     \textcolor{keywordflow}{if} ( sclsec1 == zero\_sec .or. sclsec2 == zero\_sec ) \textcolor{keywordflow}{then}
1311       result = zero\_sec
1312       \textcolor{keywordflow}{return}
1313 \textcolor{keywordflow}{    end if}
1314 
1315     \textcolor{keywordflow}{if} ( sclsec1 % flag\_negative ) \textcolor{keywordflow}{then}
1316       result % flag\_negative = .not. sclsec2 % flag\_negative
1317     \textcolor{keywordflow}{else}
1318       result % flag\_negative = sclsec2 % flag\_negative
1319 \textcolor{keywordflow}{    end if}
1320 
1321     move\_up = 0
1322     sec\_ary\_int(:,:) = 0
1323     \textcolor{keywordflow}{do} i = imin, imax
1324       \textcolor{keywordflow}{do} j = imin, imax
1325         sec\_ary\_int(i,j) = &
1326           & sclsec1 % sec\_ary(j) * sclsec2 % sec\_ary(i) + move\_up
1327         \textcolor{keywordflow}{if} ( i + j > imax .and. sec\_ary\_int(i,j) /= 0 ) \textcolor{keywordflow}{then}
1328           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{keyword}{operator}\textcolor{stringliteral}{'dc\_scaledsec#(*)'}, &
1329             & \textcolor{stringliteral}{'DC\_SCALED\_SEC must be smaller than 10^24'} )
1330 \textcolor{keywordflow}{        end if}
1331         \textcolor{keywordflow}{if} ( .not. sec\_ary\_int(i,j) < scale\_factor ) \textcolor{keywordflow}{then}
1332           move\_up = \hyperlink{interfacedc__scaledsec_1_1int}{int}( sec\_ary\_int(i,j) / scale\_factor\_int )
1333           sec\_ary\_int(i,j) = sec\_ary\_int(i,j) - move\_up * scale\_factor\_int
1334         \textcolor{keywordflow}{else}
1335           move\_up = 0
1336 \textcolor{keywordflow}{        end if}
1337 \textcolor{keywordflow}{      end do}
1338 \textcolor{keywordflow}{    end do}
1339 
1340     result % sec\_ary = 0 
1341     \textcolor{keywordflow}{do} i = imin, imax
1342       \textcolor{keywordflow}{do} j = imin, imax
1343         \textcolor{keywordflow}{if} ( i + j < imin ) cycle
1344         \textcolor{keywordflow}{if} ( i + j > imax ) cycle
1345         result % sec\_ary(i+j) = result % sec\_ary(i+j) + sec\_ary\_int(i,j)
1346 \textcolor{keywordflow}{      end do}
1347 \textcolor{keywordflow}{    end do}
1348 
1349     move\_up = 0
1350     \textcolor{keywordflow}{do} i = imin, imax
1351       result % sec\_ary(i) = result % sec\_ary(i) + move\_up
1352       move\_up = 0
1353       \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( .not. result % sec\_ary(i) < scale\_factor\_int )
1354         \textcolor{keywordflow}{if} ( i == imax ) \textcolor{keywordflow}{then}
1355           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'E'}, \textcolor{keyword}{operator}\textcolor{stringliteral}{'dc\_scaledsec#(*)'}, &
1356             & \textcolor{stringliteral}{'DC\_SCALED\_SEC must be smaller than 10^24'} )
1357 \textcolor{keywordflow}{        end if}
1358         result % sec\_ary(i) = result % sec\_ary(i) - scale\_factor\_int
1359         move\_up = move\_up + 1
1360 \textcolor{keywordflow}{      end do}
1361 \textcolor{keywordflow}{    end do}
1362 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a651f9739573120317a2bbb47634b5e09}\label{namespacedc__scaledsec_a651f9739573120317a2bbb47634b5e09}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sign\+\_\+sd@{dcscaledsec\+\_\+sign\+\_\+sd}}
\index{dcscaledsec\+\_\+sign\+\_\+sd@{dcscaledsec\+\_\+sign\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+sd()}{dcscaledsec\_sign\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::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{namespacedc__scaledsec_a756adae84d8338f9b3972e19f0ff560f}\label{namespacedc__scaledsec_a756adae84d8338f9b3972e19f0ff560f}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sign\+\_\+si@{dcscaledsec\+\_\+sign\+\_\+si}}
\index{dcscaledsec\+\_\+sign\+\_\+si@{dcscaledsec\+\_\+sign\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+si()}{dcscaledsec\_sign\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::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{namespacedc__scaledsec_ac9850b7496dd5c008c42cce7bf3332a6}\label{namespacedc__scaledsec_ac9850b7496dd5c008c42cce7bf3332a6}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sign\+\_\+sr@{dcscaledsec\+\_\+sign\+\_\+sr}}
\index{dcscaledsec\+\_\+sign\+\_\+sr@{dcscaledsec\+\_\+sign\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+sr()}{dcscaledsec\_sign\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::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{namespacedc__scaledsec_a47682348d2be2cc74aa613e70faa2dde}\label{namespacedc__scaledsec_a47682348d2be2cc74aa613e70faa2dde}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sign\+\_\+ss@{dcscaledsec\+\_\+sign\+\_\+ss}}
\index{dcscaledsec\+\_\+sign\+\_\+ss@{dcscaledsec\+\_\+sign\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sign\+\_\+ss()}{dcscaledsec\_sign\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::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}
\mbox{\Hypertarget{namespacedc__scaledsec_a5edb48b7b9d99228f44f9e71bc57be83}\label{namespacedc__scaledsec_a5edb48b7b9d99228f44f9e71bc57be83}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+ds@{dcscaledsec\+\_\+sub\+\_\+ds}}
\index{dcscaledsec\+\_\+sub\+\_\+ds@{dcscaledsec\+\_\+sub\+\_\+ds}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+ds()}{dcscaledsec\_sub\_ds()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+ds (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{factor,  }\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 1280 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1280     \textcolor{comment}{!}
1281     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1282     \textcolor{comment}{! }
1283     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1284     \textcolor{comment}{!}
1285     \textcolor{keywordtype}{implicit none}
1286     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1287     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1288     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1289   \textcolor{keywordflow}{continue}
1290     factor\_scl = factor
1291     result = factor\_scl - sclsec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a00d204007d7f6bc085aadb7e6453ac44}\label{namespacedc__scaledsec_a00d204007d7f6bc085aadb7e6453ac44}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+is@{dcscaledsec\+\_\+sub\+\_\+is}}
\index{dcscaledsec\+\_\+sub\+\_\+is@{dcscaledsec\+\_\+sub\+\_\+is}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+is()}{dcscaledsec\_sub\_is()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\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 1212 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1212     \textcolor{comment}{!}
1213     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1214     \textcolor{comment}{! }
1215     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1216     \textcolor{comment}{!}
1217     \textcolor{keywordtype}{implicit none}
1218     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1219     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1220     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1221   \textcolor{keywordflow}{continue}
1222     factor\_scl = factor
1223     result = factor\_scl - sclsec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a47e2c139a9505404bf5d5c1c8f0719f7}\label{namespacedc__scaledsec_a47e2c139a9505404bf5d5c1c8f0719f7}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+rs@{dcscaledsec\+\_\+sub\+\_\+rs}}
\index{dcscaledsec\+\_\+sub\+\_\+rs@{dcscaledsec\+\_\+sub\+\_\+rs}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+rs()}{dcscaledsec\_sub\_rs()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+rs (\begin{DoxyParamCaption}\item[{real, intent(in)}]{factor,  }\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 1246 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1246     \textcolor{comment}{!}
1247     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1248     \textcolor{comment}{! }
1249     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1250     \textcolor{comment}{!}
1251     \textcolor{keywordtype}{implicit none}
1252     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1253     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1254     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1255   \textcolor{keywordflow}{continue}
1256     factor\_scl = factor
1257     result = factor\_scl - sclsec
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ac0a8d0fdfbd9de21ab3cc435d3473519}\label{namespacedc__scaledsec_ac0a8d0fdfbd9de21ab3cc435d3473519}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+s@{dcscaledsec\+\_\+sub\+\_\+s}}
\index{dcscaledsec\+\_\+sub\+\_\+s@{dcscaledsec\+\_\+sub\+\_\+s}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+s()}{dcscaledsec\_sub\_s()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+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 1101 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1101     \textcolor{comment}{!}
1102     \textcolor{comment}{! DC\_SCALED\_SEC 型変数の符号を逆にする. }
1103     \textcolor{comment}{! }
1104     \textcolor{comment}{! Inverse sign of a "DC\_SCALED\_SEC" variable}
1105     \textcolor{comment}{!}
1106     \textcolor{keywordtype}{implicit none}
1107     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1108   \textcolor{keywordflow}{continue}
1109     result % flag\_negative = .not. sclsec % flag\_negative
1110     result % sec\_ary = sclsec % sec\_ary
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_ae95472bb038080662891d755130b1690}\label{namespacedc__scaledsec_ae95472bb038080662891d755130b1690}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+sd@{dcscaledsec\+\_\+sub\+\_\+sd}}
\index{dcscaledsec\+\_\+sub\+\_\+sd@{dcscaledsec\+\_\+sub\+\_\+sd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+sd()}{dcscaledsec\_sub\_sd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+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 1263 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1263     \textcolor{comment}{!}
1264     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1265     \textcolor{comment}{! }
1266     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1267     \textcolor{comment}{!}
1268     \textcolor{keywordtype}{implicit none}
1269     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1270     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1271     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1272   \textcolor{keywordflow}{continue}
1273     factor\_scl = factor
1274     result = sclsec - factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_af6f55f6a0655b47148fabe7ccbb19c2e}\label{namespacedc__scaledsec_af6f55f6a0655b47148fabe7ccbb19c2e}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+si@{dcscaledsec\+\_\+sub\+\_\+si}}
\index{dcscaledsec\+\_\+sub\+\_\+si@{dcscaledsec\+\_\+sub\+\_\+si}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+si()}{dcscaledsec\_sub\_si()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+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 1195 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1195     \textcolor{comment}{!}
1196     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1197     \textcolor{comment}{! }
1198     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1199     \textcolor{comment}{!}
1200     \textcolor{keywordtype}{implicit none}
1201     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1202     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1203     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1204   \textcolor{keywordflow}{continue}
1205     factor\_scl = factor
1206     result = sclsec - factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_aeedecc5d57a9897bb59320d499dc0c60}\label{namespacedc__scaledsec_aeedecc5d57a9897bb59320d499dc0c60}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+sr@{dcscaledsec\+\_\+sub\+\_\+sr}}
\index{dcscaledsec\+\_\+sub\+\_\+sr@{dcscaledsec\+\_\+sub\+\_\+sr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+sr()}{dcscaledsec\_sub\_sr()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+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 1229 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
1229     \textcolor{comment}{!}
1230     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1231     \textcolor{comment}{! }
1232     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1233     \textcolor{comment}{!}
1234     \textcolor{keywordtype}{implicit none}
1235     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
1236     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1237     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: factor\_scl
1238   \textcolor{keywordflow}{continue}
1239     factor\_scl = factor
1240     result = sclsec - factor\_scl
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_aa34dc898460819e0dea5f653f815cfe4}\label{namespacedc__scaledsec_aa34dc898460819e0dea5f653f815cfe4}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsec\+\_\+sub\+\_\+ss@{dcscaledsec\+\_\+sub\+\_\+ss}}
\index{dcscaledsec\+\_\+sub\+\_\+ss@{dcscaledsec\+\_\+sub\+\_\+ss}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsec\+\_\+sub\+\_\+ss()}{dcscaledsec\_sub\_ss()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+sub\+\_\+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 1116 of file dc\+\_\+scaledsec.\+f90.



References imax, imin, and scale\+\_\+factor\+\_\+int.


\begin{DoxyCode}
1116     \textcolor{comment}{!}
1117     \textcolor{comment}{! 2 つの DC\_SCALED\_SEC 型変数の減算. }
1118     \textcolor{comment}{! }
1119     \textcolor{comment}{! Subtraction of two "DC\_SCALED\_SEC" variables}
1120     \textcolor{comment}{!}
1121     \textcolor{keywordtype}{implicit none}
1122     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec1, sclsec2
1123 
1124     \textcolor{keywordtype}{integer}:: i, move\_down
1125     \textcolor{keywordtype}{logical}:: both\_negative, sclsec2\_flag\_negative
1126     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec1\_opsign, sclsec2\_opsign
1127     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sclsec1\_nosign, sclsec2\_nosign
1128     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: large, small
1129   \textcolor{keywordflow}{continue}
1130     both\_negative = .false.
1131 
1132     \textcolor{comment}{! 負の値の処理}
1133     \textcolor{comment}{! Handle negative value}
1134     \textcolor{comment}{!}
1135     sclsec2\_flag\_negative = sclsec2 % flag\_negative
1136     \textcolor{keywordflow}{if} ( sclsec1 % flag\_negative ) \textcolor{keywordflow}{then}
1137       both\_negative = .true.
1138       sclsec2\_flag\_negative = .not. sclsec2\_flag\_negative
1139 \textcolor{keywordflow}{    end if}
1140     \textcolor{keywordflow}{if} ( sclsec2\_flag\_negative ) \textcolor{keywordflow}{then}
1141       sclsec1\_opsign = sclsec1
1142       sclsec1\_opsign % flag\_negative = .false.
1143       sclsec2\_opsign = sclsec2
1144       sclsec2\_opsign % flag\_negative = .false.
1145 
1146       result = sclsec1\_opsign + sclsec2\_opsign
1147       \textcolor{keywordflow}{if} ( both\_negative ) \textcolor{keywordflow}{then}
1148         result % flag\_negative = .not. result % flag\_negative
1149 \textcolor{keywordflow}{      end if}
1150       \textcolor{keywordflow}{return}
1151 \textcolor{keywordflow}{    end if}
1152 
1153     \textcolor{comment}{! 絶対値の比較}
1154     \textcolor{comment}{! Compare absolute values}
1155     \textcolor{comment}{!}
1156     sclsec1\_nosign = sclsec1
1157     sclsec1\_nosign % flag\_negative = .false.
1158     sclsec2\_nosign = sclsec2
1159     sclsec2\_nosign % flag\_negative = .false.
1160 
1161     \textcolor{keywordflow}{if} ( sclsec1\_nosign > sclsec2\_nosign ) \textcolor{keywordflow}{then}
1162       result % flag\_negative = .false.
1163       large = sclsec1\_nosign
1164       small = sclsec2\_nosign
1165     \textcolor{keywordflow}{elseif} ( sclsec1\_nosign < sclsec2\_nosign ) \textcolor{keywordflow}{then}
1166       result % flag\_negative = .true.
1167       large = sclsec2\_nosign
1168       small = sclsec1\_nosign
1169     \textcolor{keywordflow}{else}
1170       result = 0
1171       \textcolor{keywordflow}{return}
1172 \textcolor{keywordflow}{    end if}
1173 
1174     move\_down = 0
1175     \textcolor{keywordflow}{do} i = imin, imax
1176       result % sec\_ary(i) = large % sec\_ary(i) - small % sec\_ary(i) + move\_down
1177       \textcolor{keywordflow}{if} ( result % sec\_ary(i) < 0 ) \textcolor{keywordflow}{then}
1178         move\_down = ( result % sec\_ary(i) / scale\_factor\_int ) - 1
1179         result % sec\_ary(i) = &
1180           & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( result % sec\_ary(i), scale\_factor\_int ) + scale\_factor\_int
1181       \textcolor{keywordflow}{else}
1182         move\_down = 0
1183 \textcolor{keywordflow}{      end if}
1184 \textcolor{keywordflow}{    end do}
1185 
1186     \textcolor{keywordflow}{if} ( both\_negative ) \textcolor{keywordflow}{then}
1187       result % flag\_negative = .not. result % flag\_negative
1188 \textcolor{keywordflow}{    end if}
1189 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a5010939e9a8d3082d2a8492d3548fcd2}\label{namespacedc__scaledsec_a5010939e9a8d3082d2a8492d3548fcd2}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledseccreated@{dcscaledseccreated}}
\index{dcscaledseccreated@{dcscaledseccreated}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledseccreated()}{dcscaledseccreated()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::dcscaledseccreated (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(out)}]{sclsec,  }\item[{real(dp), intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References dc\+\_\+trace\+::beginsub(), count\+\_\+digit(), dc\+\_\+error\+::dc\+\_\+etoolargetime, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), imax, imin, scale\+\_\+factor\+\_\+int, scale\+\_\+factor\+\_\+xx, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by dcscaledseccreatei(), and dcscaledseccreater().


\begin{DoxyCode}
220     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
221     \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_a668e4e18c907f401d505fcc2a18c8a17}{dc\_etoolargetime}
222     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
223     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
224     \textcolor{keywordtype}{implicit none}
225     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}:: sclsec
226     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: sec
227 
228     \textcolor{keywordtype}{real(DP)}:: work\_sec, print\_sec
229     \textcolor{keywordtype}{integer}:: i, cd, move\_up, work\_sec\_scl\_nint
230 
231     \textcolor{keywordtype}{integer} :: stat
232     \textcolor{keywordtype}{character(STRING)} :: cause\_c
233     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'dc\_scaledsec'}
234   \textcolor{keywordflow}{continue}
235     \textcolor{comment}{!call BeginSub(subname, 'sec=<%f>', d = (/ sec /) )}
236     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
237     cause\_c = \textcolor{stringliteral}{''}
238 
239     cd = 0
240     \textcolor{keywordflow}{if} ( sec < 0.0\_dp ) \textcolor{keywordflow}{then}
241       sclsec % flag\_negative = .true.
242       work\_sec = - sec
243     \textcolor{keywordflow}{else}
244       sclsec % flag\_negative = .false.
245       work\_sec = sec
246 \textcolor{keywordflow}{    end if}
247 
248     \textcolor{keywordflow}{if} ( work\_sec > scale\_factor\_xx(imax + 1) ) \textcolor{keywordflow}{then}
249       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
250         & \textcolor{stringliteral}{'input number (%f) is too large.'}, &
251         & d = (/ sec /) )
252       stat = \hyperlink{namespacedc__error_a668e4e18c907f401d505fcc2a18c8a17}{dc\_etoolargetime}
253       \textcolor{keywordflow}{goto} 999
254 \textcolor{keywordflow}{    end if}
255 
256     sclsec % sec\_ary = 0
257     \textcolor{keywordflow}{do} i = imax, imin, -1
258 
259       work\_sec\_scl\_nint = nint( work\_sec * scale\_factor\_xx(-i) )
260       \textcolor{keywordflow}{if} ( .not. work\_sec < scale\_factor\_xx(i) &
261         &  .or.  ( i == imin .and. work\_sec\_scl\_nint >= 1 )  ) \textcolor{keywordflow}{then}
262 
263         \textcolor{keywordflow}{if} ( i < 0 ) \textcolor{keywordflow}{then}
264           sclsec % sec\_ary(i) = work\_sec\_scl\_nint
265         \textcolor{keywordflow}{else}
266           sclsec % sec\_ary(i) = \hyperlink{interfacedc__scaledsec_1_1int}{int}( work\_sec / scale\_factor\_xx(i) )
267 \textcolor{keywordflow}{        end if}
268         work\_sec = work\_sec - sclsec % sec\_ary(i) * scale\_factor\_xx(i)
269         cd = cd + count\_digit( sclsec % sec\_ary(i) )
270 \textcolor{keywordflow}{      end if}
271       \textcolor{keywordflow}{if} ( cd > 5 ) \textcolor{keywordflow}{then}
272         \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacedc__scaledsec_1_1abs}{abs}( work\_sec ) < scale\_factor\_xx(i-1) ) \textcolor{keywordflow}{then}
273           print\_sec = sclsec
274 \textcolor{comment}{!!$          call MessageNotify( 'W', subname, &}
275 \textcolor{comment}{!!$            & 'input number (%f) is truncated to (%f).', &}
276 \textcolor{comment}{!!$            & d = (/ sec, print\_sec /) )}
277 \textcolor{keywordflow}{        end if}
278         \textcolor{keywordflow}{exit}
279 \textcolor{keywordflow}{      end if}
280 \textcolor{keywordflow}{    end do}
281 
282     move\_up = 0
283     \textcolor{keywordflow}{do} i = imin, imax
284       sclsec % sec\_ary(i) = sclsec % sec\_ary(i) + move\_up
285       move\_up = 0
286       \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( sclsec % sec\_ary(i) >= scale\_factor\_int )
287         move\_up = move\_up + 1
288         sclsec % sec\_ary(i) = sclsec % sec\_ary(i) - scale\_factor\_int
289 \textcolor{keywordflow}{      end do}
290 \textcolor{keywordflow}{    end do}
291 
292 999 \textcolor{keywordflow}{continue}
293     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c=cause\_c)
294     \textcolor{comment}{!call EndSub(subname)}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_a5010939e9a8d3082d2a8492d3548fcd2_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_a5010939e9a8d3082d2a8492d3548fcd2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_acbb7520e481a03945f1cd52f80de5659}\label{namespacedc__scaledsec_acbb7520e481a03945f1cd52f80de5659}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledseccreatei@{dcscaledseccreatei}}
\index{dcscaledseccreatei@{dcscaledseccreatei}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledseccreatei()}{dcscaledseccreatei()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::dcscaledseccreatei (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(out)}]{sclsec,  }\item[{integer, intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References dcscaledseccreated().


\begin{DoxyCode}
200     \textcolor{keywordtype}{implicit none}
201     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}:: sclsec
202     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: sec
203   \textcolor{keywordflow}{continue}
204     \textcolor{keyword}{call }dcscaledseccreated(sclsec, \textcolor{keywordtype}{real}( sec, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp} ))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_acbb7520e481a03945f1cd52f80de5659_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_abd72c84d37e189a047116a38c85fefe9}\label{namespacedc__scaledsec_abd72c84d37e189a047116a38c85fefe9}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledseccreater@{dcscaledseccreater}}
\index{dcscaledseccreater@{dcscaledseccreater}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledseccreater()}{dcscaledseccreater()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::dcscaledseccreater (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(out)}]{sclsec,  }\item[{real, intent(in)}]{sec }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References dcscaledseccreated().


\begin{DoxyCode}
210     \textcolor{keywordtype}{implicit none}
211     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}:: sclsec
212     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: sec
213   \textcolor{keywordflow}{continue}
214     \textcolor{keyword}{call }dcscaledseccreated(sclsec, \textcolor{keywordtype}{real}( sec, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp} ))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_abd72c84d37e189a047116a38c85fefe9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}\label{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsecputline@{dcscaledsecputline}}
\index{dcscaledsecputline@{dcscaledsecputline}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsecputline()}{dcscaledsecputline()}}
{\footnotesize\ttfamily subroutine, public dc\+\_\+scaledsec\+::dcscaledsecputline (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent }\end{DoxyParamCaption})}



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



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::endsub(), imax, imin, dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.



Referenced by dcdatetimecreate1(), dcdatetimeeval1(), dcdatetimeputline(), dcdifftimecreate1(), dcdifftimecreate2d(), dcdifftimeeval1(), and dcdifftimeputline().


\begin{DoxyCode}
343     \textcolor{comment}{!}
344     \textcolor{comment}{! 引数 *sclsec* に設定されている情報を印字します. }
345     \textcolor{comment}{! デフォルトではメッセージは標準出力に出力されます. }
346     \textcolor{comment}{! *unit* に装置番号を指定することで, 出力先を変更することが可能です. }
347     \textcolor{comment}{!}
348     \textcolor{comment}{! Print information of *sclsec*. }
349     \textcolor{comment}{! By default messages are output to standard output. }
350     \textcolor{comment}{! Unit number for output can be changed by *unit* argument. }
351     \textcolor{comment}{!}
352     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}
353     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
354     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
355     \textcolor{keywordtype}{implicit none}
356     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)} :: sclsec
357     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: unit
358                               \textcolor{comment}{! 出力先の装置番号. }
359                               \textcolor{comment}{! デフォルトの出力先は標準出力. }
360                               \textcolor{comment}{!}
361                               \textcolor{comment}{! Unit number for output. }
362                               \textcolor{comment}{! Default value is standard output. }
363     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
364                               \textcolor{comment}{! 表示されるメッセージの字下げ. }
365                               \textcolor{comment}{!}
366                               \textcolor{comment}{! Indent of displayed messages. }
367 
368     \textcolor{keywordtype}{integer} :: out\_unit, sec\_ary\_rev(imin:imax)
369     \textcolor{keywordtype}{integer}:: indent\_len
370     \textcolor{keywordtype}{character(STRING)}:: indent\_str
371     \textcolor{keywordtype}{character(1)}:: \hyperlink{interfacedc__scaledsec_1_1sign}{sign}
372     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCScaledSecPutLine'}
373   \textcolor{keywordflow}{continue}
374     \textcolor{comment}{!call BeginSub(subname)}
375 
376     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(unit)) \textcolor{keywordflow}{then}
377       out\_unit = unit
378     \textcolor{keywordflow}{else}
379       out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
380 \textcolor{keywordflow}{    end if}
381 
382     indent\_len = 0
383     indent\_str = \textcolor{stringliteral}{''}
384     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
385       \textcolor{keywordflow}{if} ( len(indent) /= 0 ) \textcolor{keywordflow}{then}
386         indent\_len = len(indent)
387         indent\_str(1:indent\_len) = indent
388 \textcolor{keywordflow}{      end if}
389 \textcolor{keywordflow}{    end if}
390 
391     sec\_ary\_rev(imin:imax) = sclsec % sec\_ary(imax:imin:-1)
392     \textcolor{keywordflow}{if} ( sclsec % flag\_negative ) \textcolor{keywordflow}{then}
393       \hyperlink{interfacedc__scaledsec_1_1sign}{sign} = \textcolor{stringliteral}{'-'}
394     \textcolor{keywordflow}{else}
395       \hyperlink{interfacedc__scaledsec_1_1sign}{sign} = \textcolor{stringliteral}{'+'}
396 \textcolor{keywordflow}{    end if}
397     \textcolor{keywordflow}{if} ( imax - imin + 1 == 6 ) \textcolor{keywordflow}{then}
398       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
399         & indent\_str(1:indent\_len) // &
400         & \textcolor{stringliteral}{'#<DC\_SCALED\_SEC:: @sign=%c @yotta=%d @exa=%d @tera=%d @mega=%d @base=%d @micro=%d>'}, &
401         & i = sec\_ary\_rev, c1 = \hyperlink{interfacedc__scaledsec_1_1sign}{sign} )
402     \textcolor{keywordflow}{elseif} ( imax - imin + 1 == 11 ) \textcolor{keywordflow}{then}
403       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
404         & indent\_str(1:indent\_len) // &
405         & \textcolor{stringliteral}{'#<DC\_SCALED\_SEC:: @sign=%c @yotta=%d @zetta=%d @exa=%d @peta=%d @tera=%d'}, &
406         & i = sec\_ary\_rev(imin:imin+4), c1 = \hyperlink{interfacedc__scaledsec_1_1sign}{sign} )
407       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
408         & indent\_str(1:indent\_len) // &
409         & \textcolor{stringliteral}{'                          @giga=%d @mega=%d @kilo=%d @base=%d @milli=%d @micro=%d>'}, &
410         & i = sec\_ary\_rev(imax-5:imax) )
411     \textcolor{keywordflow}{else}
412       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
413         & indent\_str(1:indent\_len) // &
414         & \textcolor{stringliteral}{'#<DC\_SCALED\_SEC:: @sign=%c @sec\_ary=%*d>'}, &
415         & i = sec\_ary\_rev, n = (/ imax - imin + 1 /), c1 = \hyperlink{interfacedc__scaledsec_1_1sign}{sign} )
416 \textcolor{keywordflow}{    end if}
417   999 \textcolor{keywordflow}{continue}
418     \textcolor{comment}{!call EndSub(subname)}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_a3a973b204731742fa15cf7984b5142c8}\label{namespacedc__scaledsec_a3a973b204731742fa15cf7984b5142c8}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsectonumd@{dcscaledsectonumd}}
\index{dcscaledsectonumd@{dcscaledsectonumd}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsectonumd()}{dcscaledsectonumd()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::dcscaledsectonumd (\begin{DoxyParamCaption}\item[{real(dp), intent(out)}]{sec,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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



References dc\+\_\+types\+::dp, imax, imin, and scale\+\_\+factor\+\_\+xx.



Referenced by dcscaledsectonumi(), and dcscaledsectonumr().


\begin{DoxyCode}
326     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
327     \textcolor{keywordtype}{implicit none}
328     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}:: sec
329     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
330 
331     \textcolor{keywordtype}{integer}:: i
332   \textcolor{keywordflow}{continue}
333     sec = 0.0\_dp
334     \textcolor{keywordflow}{do} i = imax, imin, -1
335       sec = sec + ( sclsec % sec\_ary(i) * scale\_factor\_xx(i) )
336 \textcolor{keywordflow}{    end do}
337     \textcolor{keywordflow}{if} ( sclsec % flag\_negative ) sec = - sec
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_a3a973b204731742fa15cf7984b5142c8_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_a54dc70e15a94b47cc04df8251e53f434}\label{namespacedc__scaledsec_a54dc70e15a94b47cc04df8251e53f434}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsectonumi@{dcscaledsectonumi}}
\index{dcscaledsectonumi@{dcscaledsectonumi}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsectonumi()}{dcscaledsectonumi()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::dcscaledsectonumi (\begin{DoxyParamCaption}\item[{integer, intent(out)}]{sec,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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



References dcscaledsectonumd(), and dc\+\_\+types\+::dp.


\begin{DoxyCode}
300     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
301     \textcolor{keywordtype}{implicit none}
302     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: sec
303     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
304     \textcolor{keywordtype}{real(DP)}:: secd
305   \textcolor{keywordflow}{continue}
306     \textcolor{keyword}{call }dcscaledsectonumd(secd, sclsec)
307     sec = nint( secd )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_a54dc70e15a94b47cc04df8251e53f434_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__scaledsec_a7a06dcfab97339756131e3ecb775312a}\label{namespacedc__scaledsec_a7a06dcfab97339756131e3ecb775312a}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!dcscaledsectonumr@{dcscaledsectonumr}}
\index{dcscaledsectonumr@{dcscaledsectonumr}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{dcscaledsectonumr()}{dcscaledsectonumr()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::dcscaledsectonumr (\begin{DoxyParamCaption}\item[{real, intent(out)}]{sec,  }\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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



References dcscaledsectonumd(), and dc\+\_\+types\+::dp.


\begin{DoxyCode}
313     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
314     \textcolor{keywordtype}{implicit none}
315     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)}:: sec
316     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}:: sclsec
317     \textcolor{keywordtype}{real(DP)}:: secd
318   \textcolor{keywordflow}{continue}
319     \textcolor{keyword}{call }dcscaledsectonumd(secd, sclsec)
320     sec = \textcolor{keywordtype}{real}( secd )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__scaledsec_a7a06dcfab97339756131e3ecb775312a_cgraph}
\end{center}
\end{figure}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}\label{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!imax@{imax}}
\index{imax@{imax}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{imax}{imax}}
{\footnotesize\ttfamily integer, parameter dc\+\_\+scaledsec\+::imax = 8\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledsec\+\_\+add\+\_\+ss(), dcscaledsec\+\_\+div\+\_\+sd(), dcscaledsec\+\_\+div\+\_\+ss(), dcscaledsec\+\_\+eq\+\_\+si(), dcscaledsec\+\_\+eq\+\_\+ss(), dcscaledsec\+\_\+gt\+\_\+is(), dcscaledsec\+\_\+gt\+\_\+si(), dcscaledsec\+\_\+gt\+\_\+ss(), dcscaledsec\+\_\+lt\+\_\+is(), dcscaledsec\+\_\+lt\+\_\+si(), dcscaledsec\+\_\+lt\+\_\+ss(), dcscaledsec\+\_\+mod\+\_\+ss(), dcscaledsec\+\_\+modulo\+\_\+ss(), dcscaledsec\+\_\+mul\+\_\+si(), dcscaledsec\+\_\+mul\+\_\+ss(), dcscaledsec\+\_\+sub\+\_\+ss(), dcscaledseccreated(), dcscaledsecputline(), and dcscaledsectonumd().


\begin{DoxyCode}
43   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}:: imax =  8  \textcolor{comment}{! 最大値の指数 = imax*3}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a811256082cc668ec7172896b9a2a4b3f}\label{namespacedc__scaledsec_a811256082cc668ec7172896b9a2a4b3f}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!imin@{imin}}
\index{imin@{imin}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{imin}{imin}}
{\footnotesize\ttfamily integer, parameter dc\+\_\+scaledsec\+::imin = -\/2\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledsec\+\_\+add\+\_\+ss(), dcscaledsec\+\_\+ceiling\+\_\+s(), dcscaledsec\+\_\+div\+\_\+sd(), dcscaledsec\+\_\+eq\+\_\+si(), dcscaledsec\+\_\+eq\+\_\+ss(), dcscaledsec\+\_\+floor\+\_\+s(), dcscaledsec\+\_\+gt\+\_\+si(), dcscaledsec\+\_\+gt\+\_\+ss(), dcscaledsec\+\_\+int\+\_\+s(), dcscaledsec\+\_\+lt\+\_\+is(), dcscaledsec\+\_\+lt\+\_\+ss(), dcscaledsec\+\_\+mod\+\_\+ss(), dcscaledsec\+\_\+modulo\+\_\+ss(), dcscaledsec\+\_\+mul\+\_\+si(), dcscaledsec\+\_\+mul\+\_\+ss(), dcscaledsec\+\_\+sub\+\_\+ss(), dcscaledseccreated(), dcscaledsecputline(), and dcscaledsectonumd().


\begin{DoxyCode}
42   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}:: imin = -2  \textcolor{comment}{! 最小値の指数 = imin*3}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a72dbf259b1645fdbd8a4b17fe99dc5f5}\label{namespacedc__scaledsec_a72dbf259b1645fdbd8a4b17fe99dc5f5}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!scale\+\_\+factor@{scale\+\_\+factor}}
\index{scale\+\_\+factor@{scale\+\_\+factor}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{scale\+\_\+factor}{scale\_factor}}
{\footnotesize\ttfamily real(dp), parameter dc\+\_\+scaledsec\+::scale\+\_\+factor = 1.\+0e+3\+\_\+\+DP\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledsec\+\_\+div\+\_\+sd(), dcscaledsec\+\_\+mod\+\_\+ss(), dcscaledsec\+\_\+modulo\+\_\+ss(), dcscaledsec\+\_\+mul\+\_\+si(), and dcscaledsec\+\_\+mul\+\_\+ss().


\begin{DoxyCode}
44   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{parameter}:: scale\_factor = 1.0e+3\_dp
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_afb163b7681ade9929734ec170a77ea5d}\label{namespacedc__scaledsec_afb163b7681ade9929734ec170a77ea5d}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!scale\+\_\+factor\+\_\+int@{scale\+\_\+factor\+\_\+int}}
\index{scale\+\_\+factor\+\_\+int@{scale\+\_\+factor\+\_\+int}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{scale\+\_\+factor\+\_\+int}{scale\_factor\_int}}
{\footnotesize\ttfamily integer, parameter dc\+\_\+scaledsec\+::scale\+\_\+factor\+\_\+int = 1000\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledsec\+\_\+add\+\_\+ss(), dcscaledsec\+\_\+mul\+\_\+ss(), dcscaledsec\+\_\+sub\+\_\+ss(), and dcscaledseccreated().


\begin{DoxyCode}
54   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}:: scale\_factor\_int = 1000
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a42cc6a310cf2f2056674620f8c70aa99}\label{namespacedc__scaledsec_a42cc6a310cf2f2056674620f8c70aa99}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!scale\+\_\+factor\+\_\+int\+\_\+xx@{scale\+\_\+factor\+\_\+int\+\_\+xx}}
\index{scale\+\_\+factor\+\_\+int\+\_\+xx@{scale\+\_\+factor\+\_\+int\+\_\+xx}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{scale\+\_\+factor\+\_\+int\+\_\+xx}{scale\_factor\_int\_xx}}
{\footnotesize\ttfamily integer, dimension (0\+:3), parameter dc\+\_\+scaledsec\+::scale\+\_\+factor\+\_\+int\+\_\+xx = (/ 1, 1000, 1000000, 1000000000 /)\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledsec\+\_\+eq\+\_\+si(), dcscaledsec\+\_\+gt\+\_\+is(), dcscaledsec\+\_\+gt\+\_\+si(), dcscaledsec\+\_\+lt\+\_\+is(), and dcscaledsec\+\_\+lt\+\_\+si().


\begin{DoxyCode}
55   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}:: scale\_factor\_int\_xx (0:3) = &
56     & (/ 1, 1000, 1000000, 1000000000 /)
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__scaledsec_a17cb4ef04c82f56fa5aea1eb59d9526b}\label{namespacedc__scaledsec_a17cb4ef04c82f56fa5aea1eb59d9526b}} 
\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}!scale\+\_\+factor\+\_\+xx@{scale\+\_\+factor\+\_\+xx}}
\index{scale\+\_\+factor\+\_\+xx@{scale\+\_\+factor\+\_\+xx}!dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsubsection{\texorpdfstring{scale\+\_\+factor\+\_\+xx}{scale\_factor\_xx}}
{\footnotesize\ttfamily real(dp), dimension (-\/(\hyperlink{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}{imax}+1)\+:\hyperlink{namespacedc__scaledsec_a7a391f99ab8da360e3c73fee68362f96}{imax}+1), parameter dc\+\_\+scaledsec\+::scale\+\_\+factor\+\_\+xx = (/ 1.\+0e-\/27\+\_\+\+D\+P, 1.\+0e-\/24\+\_\+\+D\+P, 1.\+0e-\/21\+\_\+\+D\+P, 1.\+0e-\/18\+\_\+\+D\+P, 1.\+0e-\/15\+\_\+\+D\+P, 1.\+0e-\/12\+\_\+\+D\+P, 1.\+0e-\/9\+\_\+\+D\+P, 1.\+0e-\/6\+\_\+\+D\+P, 1.\+0e-\/3\+\_\+\+D\+P, 1.\+0\+\_\+\+D\+P, 1.\+0e+3\+\_\+\+D\+P, 1.\+0e+6\+\_\+\+D\+P, 1.\+0e+9\+\_\+\+D\+P, 1.\+0e+12\+\_\+\+D\+P, 1.\+0e+15\+\_\+\+D\+P, 1.\+0e+18\+\_\+\+D\+P, 1.\+0e+21\+\_\+\+D\+P, 1.\+0e+24\+\_\+\+D\+P, 1.\+0e+27\+\_\+\+D\+P /)\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcscaledsec\+\_\+div\+\_\+sd(), dcscaledsec\+\_\+mod\+\_\+ss(), dcscaledsec\+\_\+modulo\+\_\+ss(), dcscaledseccreated(), and dcscaledsectonumd().


\begin{DoxyCode}
45   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{parameter}:: scale\_factor\_xx (-(imax+1):imax+1) = &
46     & (/ 1.0e-27\_DP, &
47     &    1.0e-24\_DP, 1.0e-21\_DP, 1.0e-18\_DP, 1.0e-15\_DP, &
48     &    1.0e-12\_DP, 1.0e-9\_DP,  1.0e-6\_DP,  1.0e-3\_DP,  &
49     &    1.0\_DP, &
50     &    1.0e+3\_DP,  1.0e+6\_DP,  1.0e+9\_DP,  1.0e+12\_DP, &
51     &    1.0e+15\_DP, 1.0e+18\_DP, 1.0e+21\_DP, 1.0e+24\_DP, &
52     &    1.0e+27\_DP /)
\end{DoxyCode}
