Объявлена подпрограмма subroutine GetIndicator(param, var, gr1, gr2, val) logical, intent (out) :: param real, intent (out) :: var(:) integer(1), intent (in) :: gr1 integer(2), intent (out) :: gr2 complex(16), intent (in) :: val ... end subroutine GetIndicator
Какие вызовы подпрограммы являются верными, если logical ST(10), dum real A(100), B(100), C(100) integer(2) kf1, kf2 complex(16) R(200)
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
call GetIndicator(ST(10), C(1:10), 9, kf2, R(90))(Верный ответ)
call GetIndicator(dum, A(9:55), 100, kf2, (1.0, 9.0))
call GetIndicator(ST(5), C(45:95), 100, kf1, R(10))(Верный ответ)
call GetIndicator(.TRUE., B(10:40), 4, kf1, R(10))
call GetIndicator(ST(9), C(::2), 0, 0, R(1:10))