! Check that parameters are correct intercepted.
|
! Constants with comma separations are commonly
|
! used, for instance Pi = 3._dp
|
subroutine foo_single(x)
|
implicit none
|
integer, parameter :: rp = selected_real_kind(6)
|
real(rp), intent(inout) :: x
|
dimension x(3)
|
real(rp), parameter :: three = 3._rp
|
x(1) = x(1) + x(2) + x(3) * three
|
return
|
end subroutine
|
|
subroutine foo_double(x)
|
implicit none
|
integer, parameter :: rp = selected_real_kind(15)
|
real(rp), intent(inout) :: x
|
dimension x(3)
|
real(rp), parameter :: three = 3._rp
|
x(1) = x(1) + x(2) + x(3) * three
|
return
|
end subroutine
|
