GetUnitSystem Function

public function GetUnitSystem() result(UnitSystem)

Arguments

None

Return Value integer

Contents

Source Code

GetUnitSystem

Source Code

  function GetUnitSystem() result(UnitSystem)
    !+ Return the system of units in use.
    integer :: UnitSystem
    UnitSystem = PSYCHROLIB_UNITS
  end function GetUnitSystem