Объявлена подпрограмма

subroutine GetVolume(A,B,C, ind, symbol)    complex(16) A(:)    logical(8)  B(500)    real(4)     C(:)    integer(1)  ind    character   symbol    ...  end subroutine GetVolume

Какие вызовы подпрограммы являются верными, если

complex(16) X(1000)      logical(8)  V(500)      real(4)     R(250)

Объявлена подпрограмма

  subroutine InitST(name, stat, param, index, vector)    character(*) name    logical stat    real param    integer index    complex vector(1000)    ...  end subroutine InitST

Какие вызовы подпрограммы являются верными, если complex Z(1000)

Объявлена подпрограмма

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)

Объявлена функция

integer function FX(x,y,z,A,B,C)    complex, intent(in)   :: x    logical, intent(out)  :: y    real z    complex, intent(in)   :: A(:)    character(*), intent(in) :: B(:)    real, intent(inout)      :: C(3)    ...  end function FX

Какие вызовы функции являются верными, если

complex xc, yc, zc, Z(50), W(50)  logical status, fс  real param, alfa, beta, gamma  character NAME(100)  real VEC(1000)  integer dummy

Объявлена подпрограмма

subroutine ModifyMassiv(A,B,st,sp,status)   real, intent(in) :: A(:)   complex, intent(out) :: B(:,:,:)   integer, intent (in) :: st,sp   integer, optional, intent(in) :: status   ...end subroutine ModifyMassiv

Какие вызовы подпрограммы являются верными, если

real S(1000)  complex Q(100,100,100)  integer ik, k1, jk

Объявлена подпрограмма

recursive subroutine proc(param, p, A, B, C)    real param    logical p    real A(:), B(:), C(:)    ...  end subroutine proc

Какие вызовы подпрограммы являются верными, если real X(1000), Y(1000), Z(1000)

В головной программе описаны переменные

character(64), parameter :: NAME = "C:\DATA\FLOW\SWIRL\V1"  real, pointer :: p1, p2  real, target  :: T(1000)  logical flag(10)  complex(16) C1, C2

Какие из них доступны во внутренней подпрограмме proc ?

subroutine proc(C1, C2, flags)    real(4), intent(out)  :: C1    complex(16), intent(out) :: C2    character(*), optional, intent(in) :: flags    real, pointer :: p1    ...  end subroutine proc

Объявлена функция

complex function fun(a,b,ind,symbol) result(gnew)    real a,b    integer ind    character symbol    ...  end function fun

Какие вызовы функции являются верными ?

Объявлена функция

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

В головной программе описаны переменные

complex, parameter :: k=(0.0,1.0)  integer s1,s2  real A(100,100)  logical :: MASK(2,2,3,3,4,4,5)=.TRUE.  character, pointer :: pcA, pcB  character, target ::  str1, str2

Какие из них доступны во внутренней функции F ?

  real function F(str1, str2, x, y, z, QW) result(A)    logical MASKA(2,2,3,3,4,4,5)    complex k    integer(1) s1    ...  end function F

В головной программе описаны переменные

real(4) A,B,C  logical, target :: LOGO  complex(8), pointer :: cPT, cPN, cRT  integer x,y,z

Какие из них доступны во внутренней функции InitFlowAVI?

  logical function InitFlowAVI(A,B,C,N,name,LOGO) result (cRT)    real(4), intent(in) :: A(:,:,:), B(:,:,:), C(:,:,:)    character(256) name    logical, optional :: LOGO    integer x,y    complex(8), pointer, save :: CPT, CPN    ...  end function InitFlowAVI