\hypertarget{namespacedc__units}{}\section{dc\+\_\+units Module Reference}
\label{namespacedc__units}\index{dc\+\_\+units@{dc\+\_\+units}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function, public \hyperlink{namespacedc__units_ac0da92106f72e724931c4918550b3dbe}{add\+\_\+okay} (u1, u2)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacedc__units_ac0da92106f72e724931c4918550b3dbe}\label{namespacedc__units_ac0da92106f72e724931c4918550b3dbe}} 
\index{dc\+\_\+units@{dc\+\_\+units}!add\+\_\+okay@{add\+\_\+okay}}
\index{add\+\_\+okay@{add\+\_\+okay}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{add\+\_\+okay()}{add\_okay()}}
{\footnotesize\ttfamily logical function, public dc\+\_\+units\+::add\+\_\+okay (\begin{DoxyParamCaption}\item[{type(units), intent(in)}]{u1,  }\item[{type(units), intent(in)}]{u2 }\end{DoxyParamCaption})}



Definition at line 175 of file dc\+\_\+units.\+f90.



References cancel\+\_\+exp(), dcunits\+\_\+com\+::dcunitsgettoken(), dcunits\+\_\+com\+::dcunitssetline(), dcunits\+\_\+com\+::s\+\_\+closepar, dcunits\+\_\+com\+::s\+\_\+divide, dcunits\+\_\+com\+::s\+\_\+eof, dcunits\+\_\+com\+::s\+\_\+exponent, dcunits\+\_\+com\+::s\+\_\+integer, dcunits\+\_\+com\+::s\+\_\+multiply, dcunits\+\_\+com\+::s\+\_\+openpar, dcunits\+\_\+com\+::s\+\_\+real, dcunits\+\_\+com\+::s\+\_\+shift, and dcunits\+\_\+com\+::s\+\_\+text.


\begin{DoxyCode}
175     \textcolor{keywordtype}{type}(units), \textcolor{keywordtype}{intent(in)}:: u1, u2
176     \textcolor{keywordtype}{type}(units):: x
177     \textcolor{keywordtype}{character(STRING)}:: debug
178     \textcolor{keyword}{call }clear(x)
179     x = u1 / u2
180     debug = u1
181     debug = u2
182     debug = x
183     \textcolor{keywordflow}{if} (x%nelems == 0) \textcolor{keywordflow}{then}
184       result = .true.
185     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} (all(abs(x%power(1:x%nelems)) < tiny(0.0\_dp))) \textcolor{keywordflow}{then}
186       result = .true.
187     \textcolor{keywordflow}{else}
188       result = .false.
189 \textcolor{keywordflow}{    endif}
190     \textcolor{keyword}{call }deallocate(x)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__units_ac0da92106f72e724931c4918550b3dbe_cgraph}
\end{center}
\end{figure}
