dc_units Module Reference

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 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.

    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)

Here is the call graph for this function: