Вопрос есть в коллекциях
Объявлена функция 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)