База ответов ИНТУИТ

Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel

<<- Назад к вопросам

В головной программе описаны переменные
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

(Отметьте один правильный вариант ответа.)

Варианты ответа
A
cPT
cPN
cRT
LOGO
C
y
Z(Верный ответ)
B
x
Похожие вопросы
В головной программе описаны переменные
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
В головной программе описаны переменные
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
В головной программе описаны переменные
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
Объявлена функция
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
Объявлена функция
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
В головной программе описаны переменные
  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 function CH(str, N, status, param, maska)    character(*), intent(in) :: str    integer, intent(inout)   :: N    integer, intent(out)     :: status    character, optional, intent(out) :: param    logical,   optional, intent(in)  :: maska(:)    ...  end function CH
Какие вызовы функции являются верными, если
character(128) adr  integer, parameter :: N=7000  integer i  character symbol  logical  ::  mask(100) = .TRUE.
Объявлена подпрограмма
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)
Объявлена подпрограмма
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 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