FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(reg_type), | intent(in) | :: | reg | |||
real, | intent(in) | :: | y |
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