Объявлена функция complex(8) function Ex(A,V,W,alfa,betta,gamma) real, intent(in) :: A(:,:) complex(8), intent(out) :: V(:,:,:) character(*), intent(in) :: W(:) integer, optional, intent(in) :: alfa real, optional, intent(inout) :: betta complex, optional, intent(out) :: gamma ... end function Ex
Какие вызовы функции являются верными, если real M2D(100,100) complex(8) C1(10,10,10), A(10,10,10), B(10,10,10) character(128) CH(100) integer kparam real sparam complex zparam
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
write(*,*) Ex(M2D,A+B,CH(1:15),kparam, sparam)
write(*,*) Ex(M2D, B(1:3,:,:), CH(::5), alfa=kparam, gamma=zparam)(Верный ответ)
write(*,*) Ex(M2D(1:50,1:40), C1(:,:,1:7), CH(1:12), gamma=zparam)(Верный ответ)
zparam=Ex(M2D(:,1:40:4), C1, CH(1:1), alfa=5, betta=7.0)
zparam=Ex(M2D(:,::2),A,CH(1:10),alfa=9)(Верный ответ)