dc_units::operator(/) Interface Reference

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

Detailed Description

Definition at line 103 of file dc_units.f90.

Member Function/Subroutine Documentation

dcunitsdiv()

type(units) function dc_units::operator(/)::dcunitsdiv	(	type(units), intent(in)	u1,
		type(units), intent(in)	u2 )

Divide two UNITS

Parameters

[in]	u1	Dividend UNITS variable
[in]	u2	Divisor UNITS variable

Returns

Quotient of two UNITS

Definition at line 212 of file dc_units.f90.

    type(UNITS), intent(in):: u1, u2
    integer:: n, n1
    character(TOKEN), allocatable:: name(:)
    real(DP), allocatable:: power(:)
    if (abs(u2%factor) < tiny(u2%factor)) then
      result%factor = sign(u1%factor, 1.0_dp) * &
        & sign(u2%factor, 1.0_dp) * &
        & huge(1.0_dp)
    else
      result%factor = u1%factor / u2%factor
    endif
    result%nelems = u1%nelems + u2%nelems
    result%offset = ""
    n = result%nelems
    if (n == 0) then
      nullify(result%name, result%power)
      return
    endif
    allocate(name(n), power(n))
    n1 = u1%nelems
    if (n1 >= 1) then
      name(1:n1) = u1%name(1:n1)
      power(1:n1) = u1%power(1:n1)
    endif
    n1 = n1 + 1
    if (n >= n1) then
      name(n1:n) = u2%name(1:u2%nelems)
      power(n1:n) = -u2%power(1:u2%nelems)
    endif
    call units_simplify(result, name, power)
    deallocate(name, power)

---

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

• dc_utils/dc_units.f90