dc_units.f90 File Reference

Go to the source code of this file.

Data Types
type	dc_units::units
interface	dc_units::clear
interface	dc_units::deallocate
interface	dc_units::assignment(=)
interface	dc_units::operator(*)
interface	dc_units::operator(/)
interface	dc_units::operator(+)

Modules
module	dc_units

Functions/Subroutines
subroutine, private	dc_units::units_simplify (u, name, power)
type(units) function	dc_units::dcunitsmul (u1, u2)
type(units) function	dc_units::dcunitsdiv (u1, u2)
type(units) function	dc_units::dcunitsadd (u1, u2)
logical function, public	dc_units::add_okay (u1, u2)
subroutine	dc_units::dcunitsclear (u)
subroutine	dc_units::dcunitsdeallocate (u)
subroutine	dc_units::dcunitstostring (string, u)
subroutine	dc_units::dcunitsbuild (u, cunits)
subroutine	cancel_exp
subroutine	error
subroutine	power_next
subroutine	factor_next
subroutine	units_finalize
subroutine	ustack_clear
subroutine	ustack_grow
subroutine	pstack_clear
subroutine	pstack_push
subroutine	pstack_pop

Function/Subroutine Documentation

cancel_exp()

subroutine dcunitsbuild::cancel_exp

(

)

Definition at line 411 of file dc_units.f90.

Referenced by dc_units::dcunitsbuild().

      print *, operator"DCUnitsBuild: syntax error, (**) ignored"

Here is the caller graph for this function:

error()

subroutine dcunitsbuild::error ( )

private

Definition at line 415 of file dc_units.f90.

Referenced by dc_units::dcunitsbuild().

      print *, "DCUnitsBuild: unexpected token <", &
        & trim(cvalue), "> ignored"

Here is the caller graph for this function:

factor_next()

subroutine dcunitsbuild::factor_next ( )

private

Definition at line 426 of file dc_units.f90.

References power_next().

Referenced by dc_units::dcunitsbuild(), and units_finalize().

      ! factor_exp の終了処理
      real(DP):: factor
      i = pstack(pi)%factor_exp
      factor = product(ustack(i:ui)%factor) * pstack(pi)%factor
      if (pstack(pi)%factor_inv) then
        ustack(i:ui)%power = -ustack(i:ui)%power
        factor = 1.0_dp / factor
      endif
      ustack(i)%factor = factor
      ustack(i+1:ui)%factor = 1.0_dp
      call power_next
      pstack(pi)%factor = 1.0_dp
      pstack(pi)%factor_exp = ui

Here is the call graph for this function:

Here is the caller graph for this function:

power_next()

subroutine dcunitsbuild::power_next ( )

private

Definition at line 420 of file dc_units.f90.

References ustack_grow().

Referenced by dc_units::dcunitsbuild(), factor_next(), and pstack_pop().

      ! power_exp の終了処理
      call ustack_grow
      pstack(pi)%power_exp = ui

Here is the call graph for this function:

Here is the caller graph for this function:

pstack_clear()

subroutine dcunitsbuild::pstack_clear ( )

private

Definition at line 459 of file dc_units.f90.

References pstack_push().

Referenced by dc_units::dcunitsbuild().

      pi = 0
      call pstack_push

Here is the call graph for this function:

Here is the caller graph for this function:

pstack_pop()

subroutine dcunitsbuild::pstack_pop ( )

private

Definition at line 475 of file dc_units.f90.

References power_next().

Referenced by dc_units::dcunitsbuild().

      ! factor_exp の終了処理
      call power_next
      pi = pi - 1

Here is the call graph for this function:

Here is the caller graph for this function:

pstack_push()

subroutine dcunitsbuild::pstack_push ( )

private

Definition at line 464 of file dc_units.f90.

References ustack_grow().

Referenced by dc_units::dcunitsbuild(), and pstack_clear().

      if (pi >= size(pstack)) stop 'DCUnitsBuild: too many parens'
      pi = pi + 1
      call ustack_grow
      pstack(pi)%factor_exp = ui
      pstack(pi)%factor = 1.0_dp
      pstack(pi)%factor_inv = .false.
      pstack(pi)%power_exp = ui
      pstack(pi)%paren_exp = ui

Here is the call graph for this function:

Here is the caller graph for this function:

units_finalize()

subroutine dcunitsbuild::units_finalize ( )

private

Definition at line 442 of file dc_units.f90.

References factor_next().

Referenced by dc_units::dcunitsbuild().

      call factor_next

Here is the call graph for this function:

Here is the caller graph for this function:

ustack_clear()

subroutine dcunitsbuild::ustack_clear ( )

private

Definition at line 446 of file dc_units.f90.

References ustack_grow().

Referenced by dc_units::dcunitsbuild().

      ui = 0
      call ustack_grow

Here is the call graph for this function:

Here is the caller graph for this function:

ustack_grow()

subroutine dcunitsbuild::ustack_grow ( )

private

Definition at line 451 of file dc_units.f90.

Referenced by dc_units::dcunitsbuild(), power_next(), pstack_push(), and ustack_clear().

      if (ui >= size(ustack)) stop 'DCUnitsBuild: too many elements'
      ui = ui + 1
      ustack(ui)%name = ""
      ustack(ui)%factor = 1.0_dp
      ustack(ui)%power = 1.0_dp

Here is the caller graph for this function: