Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | b | |||
real(kind=dp), | intent(out), | optional | :: | x0 | ||
real(kind=dp), | intent(out), | optional | :: | x1 |
pure subroutine fullStop_00(b, x0, x1)
real(dp), intent(in) :: b
real(dp), intent(out), optional :: x0, x1
unused_var(b)
if (present(x0)) x0 = 0.0_dp
if (present(x1)) x1 = 0.0_dp
end subroutine fullStop_00