round_mod Module Reference

Functions/Subroutines
real(dp) function, public	round (x, ct)
real(dp) function, public	tceil (x, ct)
real(dp) function, public	tfloor (x, ct)
real(dp) function, private	ufloor (x)

Function/Subroutine Documentation

round()

real(dp) function, public round_mod::round	(	real (dp), intent(in)	x,
		real (dp), intent(in)	ct )

Definition at line 64 of file round.F.

!***********************************************************************
!
!  Imported variable declarations.
!
      real (dp), intent(in) :: X, CT
!
!  Local variable declarations.
!
      real(dp) :: Y
!
!------------------------------------------------------------------------
!  Compute tolerant round function.
!------------------------------------------------------------------------
!
      y=tfloor(x+0.5_dp,ct)
!
      RETURN

References tfloor().

Referenced by dateclock_mod::caldate(), and dateclock_mod::datevec().

Here is the call graph for this function:

Here is the caller graph for this function:

tceil()

real(dp) function, public round_mod::tceil	(	real (dp), intent(in)	x,
		real (dp), intent(in)	ct )

Definition at line 85 of file round.F.

!***********************************************************************
!
!  Imported variable declarations.
!
      real (dp), intent(in) :: X, CT
!
!  Local variable declarations.
!
      real(dp) :: Y
!
!------------------------------------------------------------------------
!  Compute tolerant ceiling function.
!------------------------------------------------------------------------
!
      y=-tfloor(-x,ct)
!
      RETURN

References tfloor().

Here is the call graph for this function:

tfloor()

real (dp) function, public round_mod::tfloor	(	real (dp), intent(in)	x,
		real (dp), intent(in)	ct )

Definition at line 106 of file round.F.

!***********************************************************************
!
!  Imported variable declarations.
!
      real (dp), intent(in) :: X, CT
!
!  Local variable declarations.
!
      real (dp) :: EPS5, Q, RMAX, Y
!
!------------------------------------------------------------------------
!  Compute tolerant floor function.
!------------------------------------------------------------------------
!
!  Hagerty FL5 function
!
      q=1.0_dp
      IF (x.lt.0.0_dp) q=1.0_dp-ct
      rmax=q/(2.0_dp-ct)
      eps5=ct/q
      y=ufloor(x+max(ct,min(rmax,eps5*abs(1.0_dp+ufloor(x)))))
      IF ((x.le.0.0_dp).or.(y-x).lt.rmax) RETURN
      y=y-1.0_dp
!
      RETURN

References ufloor().

Referenced by round(), and tceil().

Here is the call graph for this function:

Here is the caller graph for this function:

ufloor()

real(dp) function, private round_mod::ufloor ( real (dp), intent(in) x )

private

Definition at line 135 of file round.F.

!***********************************************************************
!
!  Imported variable declarations.
!
      real (dp), intent(in) :: X
!
!  Local variable declarations.
!
      real(dp) :: Y
!
!-----------------------------------------------------------------------
!  Compute the largest integer algebraically less than or equal to X;
!  that is, the unfuzzy Floor Function.
!-----------------------------------------------------------------------
!
      y=x-mod(x,1.0_dp)-mod(2.0_dp+sign(1.0_dp,x),3.0_dp)
!
      RETURN

Referenced by tfloor().

Here is the caller graph for this function: