dc_units Module Reference

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

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

Function/Subroutine Documentation

add_okay()

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

Definition at line 174 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)