\hypertarget{namespacedc__units}{}\section{dc\+\_\+units Module Reference}
\label{namespacedc__units}\index{dc\+\_\+units@{dc\+\_\+units}}
\subsection*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \hyperlink{interfacedc__units_1_1assignment_07_0A_08}{assignment(=)}
\item 
interface \hyperlink{interfacedc__units_1_1clear}{clear}
\item 
interface \hyperlink{interfacedc__units_1_1deallocate}{deallocate}
\item 
interface \hyperlink{interfacedc__units_1_1operator_07_5_08}{operator($\ast$)}
\item 
interface \hyperlink{interfacedc__units_1_1operator_07_09_08}{operator(+)}
\item 
interface \hyperlink{interfacedc__units_1_1operator_07_2_08}{operator(/)}
\item 
type \hyperlink{structdc__units_1_1units}{units}
\end{DoxyCompactItemize}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, private \hyperlink{namespacedc__units_ae5db2bd77e4bc46ffa8487a564fa24ed}{units\+\_\+simplify} (u, name, power)
\item 
type(\hyperlink{structdc__units_1_1units}{units}) function \hyperlink{namespacedc__units_a2ba52d97e51b399225adeb1f4dfd5088}{dcunitsmul} (u1, u2)
\item 
type(\hyperlink{structdc__units_1_1units}{units}) function \hyperlink{namespacedc__units_abc18fe119ce0df6d95d43101f84f5508}{dcunitsdiv} (u1, u2)
\item 
type(\hyperlink{structdc__units_1_1units}{units}) function \hyperlink{namespacedc__units_a43ab6b04459fa03b678c7c8f2c1bf7a8}{dcunitsadd} (u1, u2)
\item 
logical function, public \hyperlink{namespacedc__units_ac0da92106f72e724931c4918550b3dbe}{add\+\_\+okay} (u1, u2)
\item 
subroutine \hyperlink{namespacedc__units_afc1d352b961ae221a87fc7117df796f0}{dcunitsclear} (u)
\item 
subroutine \hyperlink{namespacedc__units_a346e6d85849f26d32a0c4745726c82e8}{dcunitsdeallocate} (u)
\item 
subroutine \hyperlink{namespacedc__units_a5f7f58b7f28e41dfc94c90bad13d6d14}{dcunitstostring} (string, u)
\item 
subroutine \hyperlink{namespacedc__units_a8af45c04838d19612f7d61172d8be264}{dcunitsbuild} (u, cunits)
\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(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u1,  }\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u2 }\end{DoxyParamCaption})}



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



Referenced by getmatch().


\begin{DoxyCode}
175     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(in)}:: u1, u2
176     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}):: x
177     \textcolor{keywordtype}{character(STRING)}:: \hyperlink{interfacedc__trace_1_1debug}{debug}
178     \textcolor{keyword}{call }\hyperlink{interfacedc__units_1_1clear}{clear}(x)
179     x = u1 / u2
180     \hyperlink{interfacedc__trace_1_1debug}{debug} = u1
181     \hyperlink{interfacedc__trace_1_1debug}{debug} = u2
182     \hyperlink{interfacedc__trace_1_1debug}{debug} = x
183     \textcolor{keywordflow}{if} (x%nelems == 0) \textcolor{keywordflow}{then}
184       result = .true.
185     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} (all(\hyperlink{interfacedc__scaledsec_1_1abs}{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 }\hyperlink{interfacedc__units_1_1deallocate}{deallocate}(x)
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__units_ac0da92106f72e724931c4918550b3dbe_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__units_a43ab6b04459fa03b678c7c8f2c1bf7a8}\label{namespacedc__units_a43ab6b04459fa03b678c7c8f2c1bf7a8}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitsadd@{dcunitsadd}}
\index{dcunitsadd@{dcunitsadd}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitsadd()}{dcunitsadd()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__units_1_1units}{units}) function dc\+\_\+units\+::dcunitsadd (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u1,  }\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u2 }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
152     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(in)}:: u1, u2
153     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}):: x
154     result%offset = u1%offset
155     result%nelems = u1%nelems
156     result%factor = u1%factor + u2%factor
157     x = u1 / u2
158     \textcolor{keywordflow}{if} (x%nelems == 0) \textcolor{keywordflow}{then}
159       \textcolor{keyword}{nullify}(result%name, result%power)   
160       \textcolor{keywordflow}{return}
161 \textcolor{keywordflow}{    endif}
162     \textcolor{keywordflow}{if} (all(\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(x%power(1:result%nelems)) < tiny(0.0\_dp))) \textcolor{keywordflow}{then}
163       \textcolor{keyword}{allocate}(result%name(result%nelems), result%power(result%nelems))
164       result%name = u1%name
165       result%power = u1%power
166       \textcolor{keywordflow}{return}
167 \textcolor{keywordflow}{    endif}
168     result%factor = 0.0
169     result%nelems = -1
170     result%offset = \textcolor{stringliteral}{"MISMATCH"}
171     \textcolor{keyword}{nullify}(result%name, result%power)   
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__units_a8af45c04838d19612f7d61172d8be264}\label{namespacedc__units_a8af45c04838d19612f7d61172d8be264}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitsbuild@{dcunitsbuild}}
\index{dcunitsbuild@{dcunitsbuild}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitsbuild()}{dcunitsbuild()}}
{\footnotesize\ttfamily subroutine dc\+\_\+units\+::dcunitsbuild (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(out)}]{u,  }\item[{character($\ast$), intent(in)}]{cunits }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References cancel\+\_\+exp(), dcunits\+\_\+com\+::dcunitsgettoken(), dcunits\+\_\+com\+::dcunitssetline(), error(), factor\+\_\+next(), power\+\_\+next(), pstack\+\_\+clear(), pstack\+\_\+pop(), pstack\+\_\+push(), 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, dcunits\+\_\+com\+::s\+\_\+text, units\+\_\+finalize(), units\+\_\+simplify(), ustack\+\_\+clear(), and ustack\+\_\+grow().


\begin{DoxyCode}
260     \textcolor{comment}{!}
261     \textcolor{comment}{! 文字型変数から UNITS 型変数を生成します (constructor)。}
262     \textcolor{comment}{!}
263     \textcolor{keywordtype}{use }\hyperlink{namespacedcunits__com}{dcunits\_com}
264     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(out)}:: u
265     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: cunits
266 
267     \textcolor{comment}{! 構築中の情報、乗算対象の列として保持する。}
268     \textcolor{comment}{! これは shift オペレータ付き単位を乗算できないことを示す。}
269     \textcolor{keyword}{type} elem\_units
270       \textcolor{keywordtype}{character(TOKEN)}:: name
271       \textcolor{keywordtype}{real(DP)}:: power, factor
272 \textcolor{keyword}{    end type }elem\_units
273     \textcolor{keywordtype}{type}(elem\_units), \textcolor{keywordtype}{target}:: ustack(100)
274     \textcolor{keywordtype}{integer}:: ui = 1
275 
276     \textcolor{comment}{! 構文単位が占める乗算対象の stack における最初の添字}
277     \textcolor{keyword}{type} paren\_t
278       \textcolor{keywordtype}{real(DP)}:: factor
279       \textcolor{keywordtype}{integer}:: factor\_exp
280       \textcolor{keywordtype}{logical}:: factor\_inv
281       \textcolor{keywordtype}{integer}:: power\_exp
282       \textcolor{keywordtype}{integer}:: paren\_exp
283 \textcolor{keyword}{    end type }paren\_t
284     \textcolor{keywordtype}{type}(paren\_t):: pstack(50)
285     \textcolor{keywordtype}{integer}:: pi = 1
286 
287     \textcolor{comment}{! パーサの状態遷移}
288     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}:: y\_init = 1, y\_number = 2, y\_name = 3, &
289       & y\_nx = 4, y\_ni = 5, y\_mul = 6, y\_shift = 7
290     \textcolor{keywordtype}{integer}:: yparse\_status = y\_init
291 
292     \textcolor{comment}{! 字句}
293     \textcolor{keywordtype}{integer}:: ltype
294     \textcolor{keywordtype}{integer}:: ivalue(5)
295     \textcolor{keywordtype}{real(DP)}:: dvalue
296     \textcolor{keywordtype}{character(TOKEN)}:: cvalue
297     \textcolor{comment}{! その他}
298     \textcolor{keywordtype}{integer}:: \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}
299         
300     \textcolor{comment}{! --- 実行部 ---}
301     \textcolor{comment}{! 初期化}
302     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(u%name)) \textcolor{keyword}{deallocate}(u%name)
303     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(u%power)) \textcolor{keyword}{deallocate}(u%power)
304     u%nelems = 0
305     u%offset = \textcolor{stringliteral}{""}
306     u%factor = 1.0\_dp
307     \textcolor{keywordflow}{if} (cunits == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{return}
308     \textcolor{keyword}{call }\hyperlink{namespacedcunits__com_aa2be69c2ff217f412c58c1862bfba09e}{dcunitssetline}(cunits)
309     \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a7b76779ed3ff42b372defa16b66c134b}{ustack\_clear}
310     \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a3537cd4cf0e4fbd95cdb1d9aa39dedee}{pstack\_clear}
311     yparse\_status = y\_init
312 
313     \textcolor{keywordflow}{do}
314       \textcolor{keyword}{call }\hyperlink{namespacedcunits__com_aa146907b55342dd95b0c855734eba662}{dcunitsgettoken}(ltype, ivalue, dvalue, cvalue)
315       \textcolor{keywordflow}{select case}(ltype)
316       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a891255225975744c1d51a6922882c611}{s\_integer})
317         \textcolor{keywordflow}{select case}(yparse\_status)
318         \textcolor{keywordflow}{case} (y\_init, y\_mul)
319           pstack(pi)%factor = pstack(pi)%factor * ivalue(1)
320           yparse\_status = y\_number
321         \textcolor{keywordflow}{case} (y\_name, y\_nx)
322           \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = pstack(pi)%power\_exp
323           ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%power = ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%power * ivalue(1) 
324           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
325           yparse\_status = y\_ni
326         \textcolor{keywordflow}{case} (y\_shift)
327           u%offset = cvalue
328 \textcolor{keywordflow}{        case default}
329           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
330 \textcolor{keywordflow}{        end select}
331       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a020aa6b50721d81d1fe5aecc2c8a3dae}{s\_real})
332         \textcolor{keywordflow}{select case}(yparse\_status)
333         \textcolor{keywordflow}{case} (y\_init, y\_mul)
334           pstack(pi)%factor = pstack(pi)%factor * dvalue
335           yparse\_status = y\_number
336         \textcolor{keywordflow}{case} (y\_name, y\_nx)
337           \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = pstack(pi)%power\_exp
338           ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%power = ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%power * dvalue
339           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
340           yparse\_status = y\_ni
341         \textcolor{keywordflow}{case} (y\_shift)
342           u%offset = cvalue
343 \textcolor{keywordflow}{        case default}
344           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
345 \textcolor{keywordflow}{        end select}
346       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a1a648fd6045bdb49ac21f9ee227a1558}{s\_text})
347         \textcolor{keywordflow}{select case}(yparse\_status)
348         \textcolor{keywordflow}{case} (y\_init, y\_number, y\_mul)
349           ustack(ui)%name = cvalue
350           yparse\_status = y\_name
351         \textcolor{keywordflow}{case} (y\_name, y\_ni)
352           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a05c0d4f177c3db21fc3435905dc439b8}{ustack\_grow}
353           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
354           ustack(ui)%name = cvalue
355           yparse\_status = y\_name
356         \textcolor{keywordflow}{case} (y\_shift)
357           u%offset = cvalue
358 \textcolor{keywordflow}{        case default}
359           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
360 \textcolor{keywordflow}{        end select}
361       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_abb4406015d7a895bcc6e9e1b05b1edc5}{s\_exponent})
362         \textcolor{keywordflow}{select case}(yparse\_status)
363         \textcolor{keywordflow}{case} (y\_name)
364           yparse\_status = y\_nx
365 \textcolor{keywordflow}{        case default}
366           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
367 \textcolor{keywordflow}{        end select}
368       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a41511b43fef56a230d8a529f123f1ee8}{s\_multiply})
369         \textcolor{keywordflow}{select case}(yparse\_status)
370         \textcolor{keywordflow}{case} (y\_number, y\_name)
371           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ad7599bef030a7217a030b775bb4be90f}{factor\_next}
372           yparse\_status = y\_mul
373 \textcolor{keywordflow}{        case default}
374           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
375 \textcolor{keywordflow}{        end select}
376       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_ac67d63de28b1fff7d472c511517bcd1e}{s\_divide})
377         \textcolor{keywordflow}{select case}(yparse\_status)
378         \textcolor{keywordflow}{case} (y\_number, y\_name)
379           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ad7599bef030a7217a030b775bb4be90f}{factor\_next}
380           pstack(pi)%factor\_inv = .true.
381           yparse\_status = y\_mul
382 \textcolor{keywordflow}{        case default}
383           \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
384 \textcolor{keywordflow}{        end select}
385       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a62bf20e71e6a99e72574e78f242ad2c4}{s\_shift})
386         \textcolor{keywordflow}{if} (yparse\_status == y\_nx) \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a5e30ae125a89f9bc82bd203e8e86b290}{cancel\_exp}
387         \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a87171df5468ab8a45f9c97700b7cea22}{units\_finalize}
388         yparse\_status = y\_shift
389       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a5bb3ca8615865489dca1dcce878cc036}{s\_openpar})
390         \textcolor{keywordflow}{if} (yparse\_status == y\_nx) \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a5e30ae125a89f9bc82bd203e8e86b290}{cancel\_exp}
391         \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a1446d88feff0e9e5f1e27640ebf2c32e}{pstack\_push}
392       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a129d9cc679aa2bbbf4e79de4012351ec}{s\_closepar})
393         \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a87171df5468ab8a45f9c97700b7cea22}{units\_finalize}
394         \textcolor{keyword}{call }\hyperlink{dc__units_8f90_afb556464c081101d47378560db7783c6}{pstack\_pop}
395       \textcolor{keywordflow}{case} (\hyperlink{namespacedcunits__com_a9ff9e3b80552927051cf2fe5a8927c25}{s\_eof})
396         \textcolor{keywordflow}{exit}
397 \textcolor{keywordflow}{      case default}
398         \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
399 \textcolor{keywordflow}{      end select}
400 \textcolor{keywordflow}{    enddo}
401     \textcolor{keywordflow}{if} (yparse\_status == y\_nx) \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a5e30ae125a89f9bc82bd203e8e86b290}{cancel\_exp}
402     \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a87171df5468ab8a45f9c97700b7cea22}{units\_finalize}
403 
404     u%nelems = ui
405     u%factor = product(ustack(1:ui)%factor)
406     \textcolor{keyword}{call }units\_simplify(u, ustack(1:ui)%name, ustack(1:ui)%power)
407 
408   \textcolor{keyword}{contains}
409 
410 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_a5e30ae125a89f9bc82bd203e8e86b290}{cancel\_exp}
411       print *, \textcolor{keyword}{operator}\textcolor{stringliteral}{"DCUnitsBuild: syntax error, (**) ignored"}
412 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_a5e30ae125a89f9bc82bd203e8e86b290}{cancel\_exp}
413 
414 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
415       print *, \textcolor{stringliteral}{"DCUnitsBuild: unexpected token <"}, &
416         & trim(cvalue), \textcolor{stringliteral}{"> ignored"}
417 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_ac6d365a346621db800ca0c8ceea67975}{error}
418 
419 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
420       \textcolor{comment}{! power\_exp の終了処理}
421       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a05c0d4f177c3db21fc3435905dc439b8}{ustack\_grow}
422       pstack(pi)%power\_exp = ui
423 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
424 
425 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_ad7599bef030a7217a030b775bb4be90f}{factor\_next}
426       \textcolor{comment}{! factor\_exp の終了処理}
427       \textcolor{keywordtype}{real(DP)}:: factor
428       \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = pstack(pi)%factor\_exp
429       factor = product(ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%factor) * pstack(pi)%factor
430       \textcolor{keywordflow}{if} (pstack(pi)%factor\_inv) \textcolor{keywordflow}{then}
431         ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%power = -ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}:ui)%power
432         factor = 1.0\_dp / factor
433 \textcolor{keywordflow}{      endif}
434       ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})%factor = factor
435       ustack(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}+1:ui)%factor = 1.0\_dp
436       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
437       pstack(pi)%factor = 1.0\_dp
438       pstack(pi)%factor\_exp = ui
439 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_ad7599bef030a7217a030b775bb4be90f}{factor\_next}
440 
441 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_a87171df5468ab8a45f9c97700b7cea22}{units\_finalize}
442       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ad7599bef030a7217a030b775bb4be90f}{factor\_next}
443 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_a87171df5468ab8a45f9c97700b7cea22}{units\_finalize}
444 
445 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_a7b76779ed3ff42b372defa16b66c134b}{ustack\_clear}
446       ui = 0
447       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a05c0d4f177c3db21fc3435905dc439b8}{ustack\_grow}
448 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_a7b76779ed3ff42b372defa16b66c134b}{ustack\_clear}
449 
450 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_a05c0d4f177c3db21fc3435905dc439b8}{ustack\_grow}
451       \textcolor{keywordflow}{if} (ui >= \textcolor{keyword}{size}(ustack)) stop \textcolor{stringliteral}{'DCUnitsBuild: too many elements'}
452       ui = ui + 1
453       ustack(ui)%name = \textcolor{stringliteral}{""}
454       ustack(ui)%factor = 1.0\_dp
455       ustack(ui)%power = 1.0\_dp
456 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_a05c0d4f177c3db21fc3435905dc439b8}{ustack\_grow}
457 
458 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_a3537cd4cf0e4fbd95cdb1d9aa39dedee}{pstack\_clear}
459       pi = 0
460       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a1446d88feff0e9e5f1e27640ebf2c32e}{pstack\_push}
461 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_a3537cd4cf0e4fbd95cdb1d9aa39dedee}{pstack\_clear}
462 
463 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_a1446d88feff0e9e5f1e27640ebf2c32e}{pstack\_push}
464       \textcolor{keywordflow}{if} (pi >= \textcolor{keyword}{size}(pstack)) stop \textcolor{stringliteral}{'DCUnitsBuild: too many parens'}
465       pi = pi + 1
466       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_a05c0d4f177c3db21fc3435905dc439b8}{ustack\_grow}
467       pstack(pi)%factor\_exp = ui
468       pstack(pi)%factor = 1.0\_dp
469       pstack(pi)%factor\_inv = .false.
470       pstack(pi)%power\_exp = ui
471       pstack(pi)%paren\_exp = ui
472 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_a1446d88feff0e9e5f1e27640ebf2c32e}{pstack\_push}
473 
474 \textcolor{keyword}{    subroutine }\hyperlink{dc__units_8f90_afb556464c081101d47378560db7783c6}{pstack\_pop}
475       \textcolor{comment}{! factor\_exp の終了処理}
476       \textcolor{keyword}{call }\hyperlink{dc__units_8f90_ab443ffcbfae670820da561bb6908a694}{power\_next}
477       pi = pi - 1
478 \textcolor{keyword}{    end subroutine }\hyperlink{dc__units_8f90_afb556464c081101d47378560db7783c6}{pstack\_pop}
479 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__units_a8af45c04838d19612f7d61172d8be264_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__units_afc1d352b961ae221a87fc7117df796f0}\label{namespacedc__units_afc1d352b961ae221a87fc7117df796f0}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitsclear@{dcunitsclear}}
\index{dcunitsclear@{dcunitsclear}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitsclear()}{dcunitsclear()}}
{\footnotesize\ttfamily subroutine dc\+\_\+units\+::dcunitsclear (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(inout)}]{u }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
194     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(inout)}:: u
195     \textcolor{keyword}{nullify}(u%name)
196     \textcolor{keyword}{nullify}(u%power)
197     u%factor = 1.0\_dp
198     u%offset = \textcolor{stringliteral}{""}
199     u%nelems = 0
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__units_a346e6d85849f26d32a0c4745726c82e8}\label{namespacedc__units_a346e6d85849f26d32a0c4745726c82e8}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitsdeallocate@{dcunitsdeallocate}}
\index{dcunitsdeallocate@{dcunitsdeallocate}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitsdeallocate()}{dcunitsdeallocate()}}
{\footnotesize\ttfamily subroutine dc\+\_\+units\+::dcunitsdeallocate (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(inout)}]{u }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
203     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(inout)}:: u
204     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(u%name)) \textcolor{keyword}{deallocate}(u%name)
205     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(u%power)) \textcolor{keyword}{deallocate}(u%power)
206     u%factor = 1.0\_dp
207     u%offset = \textcolor{stringliteral}{""}
208     u%nelems = 0
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__units_abc18fe119ce0df6d95d43101f84f5508}\label{namespacedc__units_abc18fe119ce0df6d95d43101f84f5508}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitsdiv@{dcunitsdiv}}
\index{dcunitsdiv@{dcunitsdiv}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitsdiv()}{dcunitsdiv()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__units_1_1units}{units}) function dc\+\_\+units\+::dcunitsdiv (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u1,  }\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u2 }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References units\+\_\+simplify().


\begin{DoxyCode}
118     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(in)}:: u1, u2
119     \textcolor{keywordtype}{integer}:: n, n1
120     \textcolor{keywordtype}{character(TOKEN)}, \textcolor{keywordtype}{allocatable}:: name(:)
121     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: power(:)
122     \textcolor{keywordflow}{if} (\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(u2%factor) < tiny(u2%factor)) \textcolor{keywordflow}{then}
123       result%factor = \hyperlink{interfacedc__scaledsec_1_1sign}{sign}(u1%factor, 1.0\_dp) * &
124         & \hyperlink{interfacedc__scaledsec_1_1sign}{sign}(u2%factor, 1.0\_dp) * &
125         & huge(1.0\_dp)
126     \textcolor{keywordflow}{else}
127       result%factor = u1%factor / u2%factor
128 \textcolor{keywordflow}{    endif}
129     result%nelems = u1%nelems + u2%nelems
130     result%offset = \textcolor{stringliteral}{""}
131     n = result%nelems
132     \textcolor{keywordflow}{if} (n == 0) \textcolor{keywordflow}{then}
133       \textcolor{keyword}{nullify}(result%name, result%power)
134       \textcolor{keywordflow}{return}
135 \textcolor{keywordflow}{    endif}
136     \textcolor{keyword}{allocate}(name(n), power(n))
137     n1 = u1%nelems
138     \textcolor{keywordflow}{if} (n1 >= 1) \textcolor{keywordflow}{then}
139       name(1:n1) = u1%name(1:n1)
140       power(1:n1) = u1%power(1:n1)
141 \textcolor{keywordflow}{    endif}
142     n1 = n1 + 1
143     \textcolor{keywordflow}{if} (n >= n1) \textcolor{keywordflow}{then}
144       name(n1:n) = u2%name(1:u2%nelems)
145       power(n1:n) = -u2%power(1:u2%nelems)
146 \textcolor{keywordflow}{    endif}
147     \textcolor{keyword}{call }units\_simplify(result, name, power)
148     \textcolor{keyword}{deallocate}(name, power)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespacedc__units_abc18fe119ce0df6d95d43101f84f5508_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__units_a2ba52d97e51b399225adeb1f4dfd5088}\label{namespacedc__units_a2ba52d97e51b399225adeb1f4dfd5088}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitsmul@{dcunitsmul}}
\index{dcunitsmul@{dcunitsmul}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitsmul()}{dcunitsmul()}}
{\footnotesize\ttfamily type(\hyperlink{structdc__units_1_1units}{units}) function dc\+\_\+units\+::dcunitsmul (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u1,  }\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u2 }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



References units\+\_\+simplify().


\begin{DoxyCode}
98     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(in)}:: u1, u2
99     \textcolor{keywordtype}{integer}:: n
100     \textcolor{keywordtype}{character(TOKEN)}, \textcolor{keywordtype}{allocatable}:: name(:)
101     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: power(:)
102     result%factor = u1%factor * u2%factor
103     result%nelems = u1%nelems + u2%nelems
104     result%offset = \textcolor{stringliteral}{""}
105     n = result%nelems
106     \textcolor{keywordflow}{if} (n == 0) \textcolor{keywordflow}{then}
107       \textcolor{keyword}{nullify}(result%name, result%power)
108       \textcolor{keywordflow}{return}
109 \textcolor{keywordflow}{    endif}
110     \textcolor{keyword}{allocate}(name(n), power(n))
111     name = (/u1%name, u2%name/)
112     power = (/u1%power, u2%power/)
113     \textcolor{keyword}{call }units\_simplify(result, name, power)
114     \textcolor{keyword}{deallocate}(name, power)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=342pt]{namespacedc__units_a2ba52d97e51b399225adeb1f4dfd5088_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__units_a5f7f58b7f28e41dfc94c90bad13d6d14}\label{namespacedc__units_a5f7f58b7f28e41dfc94c90bad13d6d14}} 
\index{dc\+\_\+units@{dc\+\_\+units}!dcunitstostring@{dcunitstostring}}
\index{dcunitstostring@{dcunitstostring}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{dcunitstostring()}{dcunitstostring()}}
{\footnotesize\ttfamily subroutine dc\+\_\+units\+::dcunitstostring (\begin{DoxyParamCaption}\item[{character($\ast$), intent(out)}]{string,  }\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(in)}]{u }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
212     \textcolor{comment}{!}
213     \textcolor{comment}{! UNITS 型変数から文字型変数を生成します。}
214     \textcolor{comment}{!}
215     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
216     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(in)}:: u
217     \textcolor{keywordtype}{integer}:: \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}, ip, npower
218     \textcolor{keywordtype}{character(TOKEN)}:: buffer
219     \textcolor{keywordtype}{character}:: mul = \textcolor{stringliteral}{'.'}
220     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{parameter}:: allowed = epsilon(1.0\_dp) * 16.0
221 
222     \textcolor{keywordflow}{if} (u%nelems < 0) \textcolor{keywordflow}{then}
223       \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = \textcolor{stringliteral}{'error from '} // u%offset
224       \textcolor{keywordflow}{return} 
225 \textcolor{keywordflow}{    endif}
226 
227     \textcolor{keyword}{write}(buffer, \textcolor{stringliteral}{"(1pg20.12)"}) u%factor
228     \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = buffer
229     \textcolor{keywordflow}{if} (u%nelems < 1) \textcolor{keywordflow}{return}
230 
231     \textcolor{keywordflow}{if} (\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(u%factor - 1.0) < allowed) \textcolor{keywordflow}{then}
232       \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = \textcolor{stringliteral}{""}
233     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} (\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(u%factor + 1.0) < allowed) \textcolor{keywordflow}{then}
234       \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = \textcolor{stringliteral}{"-"}
235 \textcolor{keywordflow}{    endif}
236 
237     ip = len\_trim(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}) + 1
238     \textcolor{keywordflow}{do}, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, u%nelems
239       npower = nint(u%power(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}))
240       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(1.0 - u%power(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) < allowed) \textcolor{keywordflow}{then}
241         buffer = \textcolor{stringliteral}{" "}
242       \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} (\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(npower - u%power(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) < allowed) \textcolor{keywordflow}{then}
243         \textcolor{keyword}{write}(buffer, \textcolor{stringliteral}{"(i10)"}) npower
244         buffer = adjustl(buffer)
245       \textcolor{keywordflow}{else}
246         \textcolor{keyword}{write}(buffer, \textcolor{stringliteral}{"(1pg10.3)"}) u%power(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})
247         buffer = adjustl(buffer)
248 \textcolor{keywordflow}{      endif}
249       \textcolor{keywordflow}{if} (buffer == \textcolor{stringliteral}{'0'}) cycle
250       \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = trim(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}) // mul // trim(u%name(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) // trim(buffer)
251 \textcolor{keywordflow}{    enddo}
252     \textcolor{keywordflow}{if} (ip <= len(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string})) \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}(ip:ip) = \textcolor{stringliteral}{' '}
253     \textcolor{keywordflow}{if} (\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}(1:1) == \textcolor{stringliteral}{" "}) \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = adjustl(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string})
254     \textcolor{keywordflow}{if} (u%offset /= \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
255       \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} = trim(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}) // \textcolor{stringliteral}{'@'} // trim(u%offset)
256 \textcolor{keywordflow}{    endif}
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__units_ae5db2bd77e4bc46ffa8487a564fa24ed}\label{namespacedc__units_ae5db2bd77e4bc46ffa8487a564fa24ed}} 
\index{dc\+\_\+units@{dc\+\_\+units}!units\+\_\+simplify@{units\+\_\+simplify}}
\index{units\+\_\+simplify@{units\+\_\+simplify}!dc\+\_\+units@{dc\+\_\+units}}
\subsubsection{\texorpdfstring{units\+\_\+simplify()}{units\_simplify()}}
{\footnotesize\ttfamily subroutine, private dc\+\_\+units\+::units\+\_\+simplify (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__units_1_1units}{units}), intent(inout)}]{u,  }\item[{character($\ast$), dimension(u\%nelems), intent(in)}]{name,  }\item[{real(dp), dimension(u\%nelems), intent(in)}]{power }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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



Referenced by dcunitsbuild(), dcunitsdiv(), and dcunitsmul().


\begin{DoxyCode}
63     \textcolor{keywordtype}{type}(\hyperlink{structdc__units_1_1units}{units}), \textcolor{keywordtype}{intent(inout)}:: u
64     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: name(u%nelems)
65     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: power(u%nelems)
66     \textcolor{keywordtype}{integer}:: \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}, n, j, onazi
67     \textcolor{keywordtype}{integer}:: table(u%nelems)
68 
69     \textcolor{keywordflow}{if} (u%nelems < 1) \textcolor{keywordflow}{return}
70     table(:) = 0
71     n = 0
72     \textcolor{keywordflow}{do}, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, u%nelems
73       \textcolor{keywordflow}{if} (name(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) == \textcolor{stringliteral}{''}) cycle
74       onazi = 0
75       \textcolor{keywordflow}{do}, j = 1, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} - 1
76         \textcolor{keywordflow}{if} (name(j) == name(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) \textcolor{keywordflow}{then}
77           onazi = j
78 \textcolor{keywordflow}{        endif}
79 \textcolor{keywordflow}{      enddo}
80       \textcolor{keywordflow}{if} (onazi > 0) \textcolor{keywordflow}{then}
81         table(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) = table(onazi)
82       \textcolor{keywordflow}{else}
83         n = n + 1
84         table(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) = n
85 \textcolor{keywordflow}{      endif}
86 \textcolor{keywordflow}{    enddo}
87     \textcolor{keyword}{allocate}(u%name(n), u%power(n))
88     u%power = 0.0\_dp
89     \textcolor{keywordflow}{do}, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, u%nelems
90       \textcolor{keywordflow}{if} (table(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) == 0) cycle
91       u%name(table(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) = name(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})
92       u%power(table(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) = u%power(table(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})) + power(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})
93 \textcolor{keywordflow}{    enddo}
94     u%nelems = n
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=346pt]{namespacedc__units_ae5db2bd77e4bc46ffa8487a564fa24ed_icgraph}
\end{center}
\end{figure}
