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