dc_units::operator(+) Interface Reference

Public Member Functions
type(units) function	dcunitsadd (u1, u2)

Detailed Description

Definition at line 56 of file dc_units.f90.

Member Function/Subroutine Documentation

dcunitsadd()

type(units) function dc_units::operator(+)::dcunitsadd	(	type(units), intent(in)	u1,
		type(units), intent(in)	u2 )

Definition at line 151 of file dc_units.f90.

    type(UNITS), intent(in):: u1, u2
    type(UNITS):: x
    result%offset = u1%offset
    result%nelems = u1%nelems
    result%factor = u1%factor + u2%factor
    x = u1 / u2
    if (x%nelems == 0) then
      nullify(result%name, result%power)   
      return
    endif
    if (all(abs(x%power(1:result%nelems)) < tiny(0.0_dp))) then
      allocate(result%name(result%nelems), result%power(result%nelems))
      result%name = u1%name
      result%power = u1%power
      return
    endif
    result%factor = 0.0
    result%nelems = -1
    result%offset = "MISMATCH"
    nullify(result%name, result%power)   

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_units.f90