xp Function

public elemental function xp(reg, y)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(reg_type), intent(in) :: reg
real, intent(in) :: y

Return Value real


Contents

Source Code

xp

Source Code

  elemental function xp (reg, y)
    implicit none
    real :: xp
    type (reg_type), intent (in) :: reg
    real, intent (in) :: y

    if (reg%b == 0.) then
       xp = 100.
    else
       xp = (y-reg%a)/reg%b
    end if
  end function xp