Ð¤Ð°Ð¹Ð»Ð¾Ð²Ñ‹Ð¹ Ð¼ÐµÐ½ÐµÐ´Ð¶ÐµÑ€

Ð¤Ð°Ð¹Ð»Ð¾Ð²Ñ‹Ð¹ Ð¼ÐµÐ½ÐµÐ´Ð¶ÐµÑ€ - Ð ÐµÐ´Ð°ÐºÑ‚Ð¸Ñ€Ð¾Ð²Ð°Ñ‚ÑŒ - /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/parameter/constant_real.f90

ÐÐ°Ð·Ð°Ð´
! 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

| ver. 1.1 | | . | PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ ÑÑ‚Ñ€Ð°Ð½Ð¸Ñ†Ñ‹: 0 | proxy | phpinfo | ÐÐ°ÑÑ‚Ñ€Ð¾Ð¹ÐºÐ°