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

  real A,B,C,D  integer K1, K2, M, N  complex S

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

  subroutine proc(A,C,M,N)    real, intent(in)  :: A(:)    complex, intent(out) :: C    integer, optional, intent(in) :: M,N    complex R,T    ...  end subroutine proc

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

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

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

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

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

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

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

integer, pointer :: pk  character(32), target :: file  logical :: st=.FALSE., flag=.TRUE.  complex(16) Z1(10,10,10,10)  real sk,sp,R

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

complex function GetParamVector(V,N,z1) result(flag)    complex(16) V    integer(8)  N    complex(16), optional, intent(out) :: z1    real x,y,ks,kp,st    ...  end function GetParamVector

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

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

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

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

Дана подпрограмма

subroutine proc(a,b,N,func)    interface       real function func(x)        real x      end function func    end interface     real, intent(in) :: a,b    integer, intent(in) :: N    write(*,*) func(a+b*N)  end subroutine proc

Выберите верные вызовы, если

real function f(x) real x  f=sqrt(x)+cos(x)+(1.0,1.0)end function freal function S(x,y) real x,y  S=10000*x*yend function Srecursive function fr(x) real x  if ((x-1)<0) then     fr=1.0     return  end if  fr=sin(x)+cos(x)+fr(x-1)end function fr

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

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

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

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)