\hypertarget{namespacedc__scaledsec}{}\section{dc\+\_\+scaledsec Module Reference}
\label{namespacedc__scaledsec}\index{dc\+\_\+scaledsec@{dc\+\_\+scaledsec}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\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 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a7312a24e2deeebd64bc57f82de0716df}{dcscaledsec\+\_\+add\+\_\+si} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_af332fdf84b1c91467e8d35428f7cd45c}{dcscaledsec\+\_\+mul\+\_\+si} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_acd55645dcc41abecba4040f4ca1c7735}{dcscaledsec\+\_\+mul\+\_\+is} (factor, sclsec)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a3023c4d325498088eee3af360ecf5c9a}{dcscaledsec\+\_\+mul\+\_\+ds} (factor, sclsec)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a70a1f35f9ce5042b42b037e754612e77}{dcscaledsec\+\_\+mul\+\_\+sr} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_ae5b2c07e23fa9ee118c8aa45b620b691}{dcscaledsec\+\_\+mul\+\_\+rs} (factor, sclsec)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_aa89dc4ee4effc20ba41ff306bf18d923}{dcscaledsec\+\_\+div\+\_\+ss} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_af11fd2297e4fa3aaa627a2e94c25e593}{dcscaledsec\+\_\+div\+\_\+si} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a85d140a2045f04d54f0c15e988f9b3b6}{dcscaledsec\+\_\+div\+\_\+sd} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_af4f166304a6800767c182df20e7bf486}{dcscaledsec\+\_\+div\+\_\+sr} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a65032a304957d2b283195dd37a35b04c}{dcscaledsec\+\_\+mod\+\_\+ss} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_af59189c00b972a753c914687a9d1c59b}{dcscaledsec\+\_\+mod\+\_\+si} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a327e2a41c322e67b0d67bd0515833661}{dcscaledsec\+\_\+mod\+\_\+sr} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_aa6fb0ce94e1204c119128831b9c03fd6}{dcscaledsec\+\_\+mod\+\_\+sd} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_ae130f94ebc3698066d8cc4f918640df8}{dcscaledsec\+\_\+modulo\+\_\+ss} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a2e215c3912e88c796dc6607e0bb23412}{dcscaledsec\+\_\+modulo\+\_\+si} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_a658c1944abccbbd499aa46089e67c9ac}{dcscaledsec\+\_\+modulo\+\_\+sr} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_ac8aa4c86c251c44e15d24c4705dd6226}{dcscaledsec\+\_\+modulo\+\_\+sd} (sclsec, factor)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{namespacedc__scaledsec_abdb1f1b3167ba6f854af611cfb539cfd}{dcscaledsec\+\_\+abs\+\_\+s} (sclsec)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+abs\+\_\+s (\begin{DoxyParamCaption}\item[{type(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}(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_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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+add\+\_\+si (\begin{DoxyParamCaption}\item[{type(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}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1006     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1007     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1008   \textcolor{keywordflow}{continue}
1009     factor\_scl = factor
1010     result = sclsec + factor\_scl
\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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+sd (\begin{DoxyParamCaption}\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec,  }\item[{real(dp), intent(in)}]{factor }\end{DoxyParamCaption})}



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


\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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1556     \textcolor{keywordtype}{implicit none}
1557     \textcolor{keywordtype}{type}(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 = 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) = int( ( sclsec % sec\_ary(i) + move\_down ) / factor\_abs )
1577         sec\_ary\_mod(i) = &
1578           & mod( ( sclsec % sec\_ary(i) + move\_down ), factor\_abs )
1579       \textcolor{keywordflow}{else}
1580         result % sec\_ary(i-imin) = int( move\_down / factor\_abs )
1581         sec\_ary\_mod(i) = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+si (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1540     \textcolor{keywordtype}{implicit none}
1541     \textcolor{keywordtype}{type}(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, 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+sr (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1608     \textcolor{keywordtype}{implicit none}
1609     \textcolor{keywordtype}{type}(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, 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+div\+\_\+ss (\begin{DoxyParamCaption}\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{factor }\end{DoxyParamCaption})}



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


\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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1511     \textcolor{keywordtype}{implicit none}
1512     \textcolor{keywordtype}{type}(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 }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_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(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec1,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec2 }\end{DoxyParamCaption})}



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


\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}(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_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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+sd (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1734     \textcolor{keywordtype}{implicit none}
1735     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1736     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1737     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1738 
1739   \textcolor{keywordflow}{continue}
1740     factor\_scl = factor
1741     result = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+si (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1696     \textcolor{keywordtype}{implicit none}
1697     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1698     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1699     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1700 
1701   \textcolor{keywordflow}{continue}
1702     factor\_scl = factor
1703     result = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+sr (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1715     \textcolor{keywordtype}{implicit none}
1716     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1717     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1718     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1719 
1720   \textcolor{keywordflow}{continue}
1721     factor\_scl = factor
1722     result = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mod\+\_\+ss (\begin{DoxyParamCaption}\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{factor }\end{DoxyParamCaption})}



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


\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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1624     \textcolor{keywordtype}{implicit none}
1625     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec, factor
1626 
1627     \textcolor{keywordtype}{type}(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}(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 }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} ( 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           & mod( ( sclsec % sec\_ary(i) + move\_down ), factor\_dp )
1666       \textcolor{keywordflow}{else}
1667         sec\_ary\_mod(i) = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+sd (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1878     \textcolor{keywordtype}{implicit none}
1879     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1880     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1881     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1882 
1883   \textcolor{keywordflow}{continue}
1884     factor\_scl = factor
1885     result = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+si (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1840     \textcolor{keywordtype}{implicit none}
1841     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1842     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
1843     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1844 
1845   \textcolor{keywordflow}{continue}
1846     factor\_scl = factor
1847     result = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+sr (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1859     \textcolor{keywordtype}{implicit none}
1860     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1861     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1862     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1863 
1864   \textcolor{keywordflow}{continue}
1865     factor\_scl = factor
1866     result = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+modulo\+\_\+ss (\begin{DoxyParamCaption}\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{factor }\end{DoxyParamCaption})}



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


\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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1753     \textcolor{keywordtype}{implicit none}
1754     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec, factor
1755 
1756     \textcolor{keywordtype}{type}(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}(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 }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} ( 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           & mod( ( sclsec % sec\_ary(i) + move\_down ), factor\_dp )
1795       \textcolor{keywordflow}{else}
1796         sec\_ary\_mod(i) = 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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+ds (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{factor,  }\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1461     \textcolor{keywordtype}{implicit none}
1462     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
1463     \textcolor{keywordtype}{type}(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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+is (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\item[{type(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}(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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+rs (\begin{DoxyParamCaption}\item[{real, intent(in)}]{factor,  }\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1495     \textcolor{keywordtype}{implicit none}
1496     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1497     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1498   \textcolor{keywordflow}{continue}
1499     result = sclsec * factor
\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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+si (\begin{DoxyParamCaption}\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec,  }\item[{integer, intent(in)}]{factor }\end{DoxyParamCaption})}



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


\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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1377     \textcolor{keywordtype}{implicit none}
1378     \textcolor{keywordtype}{type}(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}(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 = 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 = 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 }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(dc\+\_\+scaled\+\_\+sec) function dc\+\_\+scaledsec\+::dcscaledsec\+\_\+mul\+\_\+sr (\begin{DoxyParamCaption}\item[{type(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 }dc\_message\textcolor{keywordtype}{, only}: messagenotify
1477     \textcolor{keywordtype}{implicit none}
1478     \textcolor{keywordtype}{type}(dc\_scaled\_sec), \textcolor{keywordtype}{intent(in)}:: sclsec
1479     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
1480     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: factor\_scl
1481   \textcolor{keywordflow}{continue}
1482     factor\_scl = factor
1483     result = sclsec * factor\_scl
\end{DoxyCode}
\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(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\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\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 }dc\_string\textcolor{keywordtype}{, only}: printf, \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
353     \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, 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}(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)}:: 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       sign = \textcolor{stringliteral}{'-'}
394     \textcolor{keywordflow}{else}
395       sign = \textcolor{stringliteral}{'+'}
396 \textcolor{keywordflow}{    end if}
397     \textcolor{keywordflow}{if} ( imax - imin + 1 == 6 ) \textcolor{keywordflow}{then}
398       \textcolor{keyword}{call }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 = sign )
402     \textcolor{keywordflow}{elseif} ( imax - imin + 1 == 11 ) \textcolor{keywordflow}{then}
403       \textcolor{keyword}{call }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 = sign )
407       \textcolor{keyword}{call }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 }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 = sign )
416 \textcolor{keywordflow}{    end if}
417   999 \textcolor{keywordflow}{continue}
418     \textcolor{comment}{!call EndSub(subname)}
\end{DoxyCode}
\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(dc\+\_\+scaled\+\_\+sec), intent(in)}]{sclsec }\end{DoxyParamCaption})}



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



References dc\+\_\+types\+::dp.


\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}(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}
\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(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}(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(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}(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}
