Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in) | :: | x |
real(r64) function pos(x)
!***********************************************************************
!
!***********************************************************************
real(r64), intent(in) :: x
pos = (x + ABS(x)) / 2.0d0
end function pos