dc_units Module Reference

単位系処理用モジュール More...

Data Types
interface	clear
interface	deallocate
interface	operator(*)
interface	operator(+)
interface	operator(/)
type	units

Functions/Subroutines
logical function, public	add_okay (u1, u2)

Detailed Description

単位系処理用モジュール

Author

Youhei SASAKI, Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Function/Subroutine Documentation

add_okay()

logical function, public dc_units::add_okay	(	type(units), intent(in)	u1,
		type(units), intent(in)	u2
	)

2つの UNITS が加算互換かチェック

2つの単位は同じ次元を持つ場合（すなわち、同じ単位要素と 同じべき乗を持つ場合）に互換となります.

Parameters

[in]	u1	1番目の UNITS 変数
[in]	u2	2番目の UNITS 変数

Returns

互換なら .true., そうでなければ .false.

Definition at line 307 of file dc_units.f90.

    type(UNITS), intent(in):: u1, u2
    type(UNITS):: x
    character(STRING):: debug
    call clear(x)
    x = u1 / u2
    debug = u1
    debug = u2
    debug = x
    if (x%nelems == 0) then
      result = .true.
    else if (all(abs(x%power(1:x%nelems)) < tiny(0.0_dp))) then
      result = .true.
    else
      result = .false.
    endif
    call deallocate(x)