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

Процедурные указатели объявляются при помощи оператора

• procedure
• contains
• class
• final
• pass

Перегрузка процедур объявляется при помощи операторов

• interface и module procedure
• interface и contains
• use и private
• use и module procedure
• private и contains

Укажите параметр компиляции, который задействует создание кода на базе директив OpenMP

• /Qparallel
• /Qopenmp
• /Qtcheck
• /Qpar-report
• /Qtprofile

Укажите директиву, которая подключает имя библиотеки в процессе сборки программы

• !DEC$OBJCOMMENT LIB
• !DEC$OBJ
• !DEC$LIB
• !DEC$OBJ LIB
• !DEC$OBJCOMMENT

Укажите параметр компиляции устанавливающий размер памяти для типа double precision

• /double:128
• /double_kind:128
• /double_kind:16
• /double_size:8
• /double_size:128

Какие компоненты входят в состав IMSL ?

• кластерные дискретные преобразования Фурье
• построители расчетных сеток
• сортировка и поиск данных
• интерполяция
• дифференцирование и интегрирование

В следующем фрагменте программы, какие имена являются процедурами привязанными к типу по имени ? use algebra type (matrix) MTR, MTR1, MTR2 real det ... call MTR.Create(10,10) call MTR.Random() call MTR1.Transpose() det=MTR1.determinant ... MTR=MTR1.CONVERT.MTR2 write(*,*) MTR.value(10,2:10,10) ...

• Create
• Random
• Transpose
• determinant
• CONVERT
• value

Укажите оператор, используемый для задания производного типа

• record
• type
• select type
• extends
• class

Укажите параметр компиляции, который не использует методов оптимизации, увеличивающие размер кода

• /O1
• /Ob2
• /O2
• /O3
• /Ob1

Укажите параметр компиляции, который позволяет получить информацию для диагностики ошибок в параллельной части параллельного приложения

• /Qtcheck
• /Qx
• /Qb2
• /Od
• /Qpar

Выберите оператор выполняющий синхронизацию избранных копий программы

• sync all
• this_image
• sync memory
• critical
• sync images

В программе объявлены типы и переменная type point complex x,y end type point type NewType integer a type (point) z(3) character(4) border(2) end type NewType type (NewType) pt(10) Укажите верные варианты инициализации элемента pt(5)

• pt(5)=NewType(50,[point((1.0,1.0),(2.0,2.0)), & point((0.0,1.0),(3.0,8.0)), & point((0.0,0.0),(3.0,0.0))],['A101','B120'])
• pt(5)=NewType(50,0.0,['A101','B120'])
• pt(5)=NewType(50,point(0.0,0.0),['A101','B120'])
• pt(5)=NewType(50,point(0.0),['A101','B120'])
• pt(5)=NewType(50,[(1.0,1.0),(2.0,2.0)],'A101')

Укажите оператор, который указывает какие процедуры привязаны к типу по имени

• contains
• private
• type
• class
• select type

Переменные, объявленные как public

• доступны модульным процедурам при несовпадении имен
• доступны в головной программе
• недоступны в головной программе
• доступны в головной программе, но их нельзя изменять
• недоступны модульным процедурам

Объявлены следующие типы и переменные. type sma real p(100) real mid(100) logical res end type sma type, extends (sma) :: ssma real middle end type ssma type uma type (sma) sm(100) complex p(100) logical ret character bis end type uma class (sma), pointer :: polym type (uma), target :: um1 type (ssma), target :: ssm1 Какие справедливы прикрепления ссылки polym?

• polym=>um1
• polym=>um1.sm(50)
• polym=>null()
• polym=>ssm1
• polym=>um1.sm(1:100:4)

Какое количество копий CAF-программы можно создать на двухядерном процессоре ?

• 2
• 4
• определяется параметром Coarray Images в свойствах проекта
• 8
• 1

Дан модуль, который используется в головной программеmodule mod_1 type rectangle integer x1,y1,x2,y2 integer, private :: color character(16), private :: name = "REC_0001" end type rectangle type, extends (rectangle) :: roundrect integer r1, r2 real center end type roundrectend module mod_1 В головной программе объявлена переменнаяtype (roundrect) rcУкажите верные варианты доступа к полям производного типа из головной программы.

• rc.center
• rc.name
• rc.rectangle
• rc.x1
• rc.color

В головной программе используется модуль geom, который содержит только тип figure и модульную процедуру Modify. Головная программа использует модуль geom.В головной программе объявлена переменная class (figure), allocatable :: FG.Укажите верное описание типа figure и процедуры Modify, чтобы при вызове call FG.Modify(10) из головной программы, происходило изменение поля points в переменной FG.

• type figure integer, private :: points(5) integer, private :: color contains procedure :: Modifyend type figure
• subroutine Modify(fg, scale) class(figure) fg integer scale fg.points=fg.points*scaleend subroutine Modify
• subroutine Modify(fg, scale) type(figure) fg integer scale fg.points=fg.points*scaleend subroutine Modify
• type figure integer, private :: points(5) integer, private :: color contains procedure, nopass :: Modifyend type figure
• type figure integer :: points(5) integer, private :: color contains procedure, nopass :: Modifyend type figure

Укажите функцию, которая вычисляет верхнюю границу coarray-переменной

• cobound
• ucobound
• lcobound
• codimension
• ubound

Какой режим компиляции позволяет использовать CoArray

• /Qcoarray
• /CAF
• /CoArray
• /Qcoarray images = 0
• /Qcoarray:shared

Объявлен следующий модуль module matrix private integer :: A=100, B=200, C=300 complex, private :: S=9 integer, protected :: P=8 integer :: Q=100, W=200 integer, public :: N=500end module matrix Какие из перечисленных модульных переменных могут быть использованыкачестве границ размещаемых массивов в вызывающей головной программе?

• A
• B
• C
• S
• P
• Q
• W
• N
• нет вариантов

Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : sin implicit none real res res=sin(2.0)*cos(1.0) end

• стандартная функция вычисления синуса
• стандартная функция вычисления косинуса
• функция cos из модуля mod_F
• функция sin из модуля mod_F

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interfacecontains logical function pnt1(x,y) real x,y pnt1=x+y<1000 end function pnt1 real function pnt2(x,y) real x real y pnt2=x+y end function pnt2 real function pnt3(x,y) real y real x pnt3=x*y+x**y end function pnt3end module mod_E

• pnt1 и pnt2
• pnt1 и pnt3
• pnt2 и pnt3
• конфликты отсутствуют
• pnt1 и pnt2 и pnt3

Выберите верные утверждения касающиеся конструктора

• все параметры конструктора являются optional-параметрами
• конструктор можно использовать в операторе allocate
• конструктор может вызываться только при объявлении переменной
• имя конструктора совпадает с именем типа
• конструктор должен объявляться внутри типа при помощи атрибута deferred

В головной программе используется модуль flow. Объявлена переменная PT типа point. Какие из процедур в типе point могут изменить приватную часть переменной PT ?module flow type point integer x integer y real, private :: cp contains procedure, nopass :: proc1 procedure proc2 procedure, pass :: proc3 procedure, nopass :: proc4 procedure proc5 procedure show end type point contains subroutine proc1(pt,val) type(point) pt real val pt.cp = val end subroutine proc1 subroutine proc2(pt) class(point) pt pt.cp=real(pt.x+pt.y) end subroutine proc2 subroutine proc3(pt) class(point) pt integer tmp tmp=pt.x; pt.x=pt.y; pt.y=tmp end subroutine proc3 subroutine proc4(pt) type(point) pt if (pt.cp<=0) write(*,*) "ERROR" end subroutine proc4 subroutine proc5(pt,M,N,S) class(point) pt integer M,N real, optional :: S pt.x=pt.x+N pt.y=pt.y+M if (present(S)) call random_number(pt.cp) end subroutine proc5end module flow

• proc1
• proc2
• proc3
• proc4
• proc5

Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : sin, cos implicit none real res res=sin(2.0)*cos(1.0) end

• стандартная функция вычисления синуса
• стандартная функция вычисления косинуса
• функция cos из модуля mod_F
• в модуле A указать public A

Укажите параметр компиляции разрешающий округление результатов с плавающей точкой в присваиваниях

• /Qfp-speculation=fast
• /Qftz
• /Qfp-stack-check
• /Qfp_port
• /fpconstant

Финальные процедуры объявляются при помощи атрибута

• final
• non_overridable
• procedure
• extends
• deferred

Какие компоненты входят в состав MKL ?

• базовые операции линейной алгебры
• дискретные преобразования Фурье
• решатели обыкновенных дифференциальных уравнений
• построители расчетных сеток
• библиотека статистики

Укажите атрибут используемый для инкапсуляции данных модуля

• save
• public
• protected
• automatic
• private

Наследование производных типов осуществляется при помощи атрибута

• pass
• extend
• class
• extends
• select type

Укажите функцию, которая позволит определить количество байт памяти отведенное под coarray-переменную?

• this_image
• imagesize
• sizeof
• size
• num_images

Укажите директиву, которая задает идентификатор объектного файла

• !DEC$PACK
• !DEC$OPTIONAL
• !DEC$IDENT
• !DECSIMD
• !DEC$MESSAGE

Какой раздел библиотеки Intel ® Math Kernel Library содержит процедуру PARDISO ?

• DFT
• PDES
• BLAS
• LAPACK
• Sparse Solver Routines

В каком разделе находится описание функции asum ?

• BLAS level 1
• BLAS level 2
• BLAS level 3

В головной программе используется модуль farm, который содержит только тип animal и модульную процедуру PrintTitle. Головная программа использует модуль farm.В головной программе объявлена переменная type (animal) AN.Укажите верное описание типа animal и процедуры PrintTitle, для организации вызова call AN.PrintTitle() из головной программы.

• subroutine PrintTitle() write(*,*) "****************" write(*,*) "* ANIMAL *" write(*,*) "****************"end subroutine PrintTitle
• type animal character(64) name logical, private :: status integer, private :: age contains procedure, nopass :: PrintTitleend type animal
• type animal character(64) name logical :: status integer :: age contains procedure :: PrintTitleend type animal
• subroutine PrintTitle() type (animal) an write(*,*) "****************" write(*,*) "* ANIMAL *" write(*,*) "****************"end subroutine PrintTitle
• type animal character(64) name logical, private :: status integer, private :: age contains procedure, pass :: PrintTitleend type animal

Модульmodule mod_1 type region integer x1,y1,x2,y2 end type region type blk logical st(3) character(5), private :: name end type blk type NewType type (region) reg type (blk) bee end type NewTypeend module mod_1 используется в головной программе.Описан массивtype (NewType) matrix(10,10,100)Укажите верные варианты инициализации элемента matrix(1:5:2,:,20)

• matrix(1:5:2,:,20)=NewType((1,2,3,4),blk(.FALSE.,'TERMO'))
• matrix(1:5:2,:,20)=NewType(region(0,0,0,0),blk('TER','TER'))
• matrix(1:5:2,:,20)=NewType(region(1,2,3,4),blk(.TRUE.,'TERMO'))
• matrix(1:5:2,:,20)=NewType(region(0),blk('TERMO',.FALSE.))
• matrix(1:5:2,:,20)=NewType(region(0,0,0,0),blk(.FALSE.,'TERMO'))

Перегрузка операции деления реализуется при помощи оператора

• extends
• interface operator
• operator
• interface assignment
• procedure

Укажите директиву, которая указывает сколько байт следует отводить для целого типа по умолчанию

• !DEC$INTEGER
• !DEC$DEFINE
• !DEC$STRICT
• !DEC$DECLARE
• !DEC$REAL

В каких разделах "Свойства проекта" указывается количество байт отводимых для хранения целых данных по умолчанию?

• General
• Code Generation
• Data
• Libraries
• Diagnostics

Выберите допустимые объявления модульных переменных для данного варианта программы module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*sin(val)+A end subroutine init_solverend module mod_APROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Bnew=1+Anew write(*,*) Bnew+Anew+X call init_solver(-1.0)end

• real, protected :: X
• integer, private :: A
• integer, protected :: A
• integer, protected :: B
• integer, public :: B

Укажите параметр компиляции, который управляет отчетом о возможности векторизации циклов

• /Qguide
• /Qvec-report
• /Qpar-report
• /warn:declarations
• /warn:stderrors

Переменные, объявленные как protected

• доступны модульным процедурам при несовпадении имен
• доступны в головной программе
• недоступны в головной программе
• доступны в головной программе, но их нельзя изменять
• недоступны модульным процедурам

Какой раздел библиотеки Intel ® Math Kernel Library содержит генераторы квазислучайных чисел ?

• BLAS
• Cluster DFT
• VML
• PDES
• VSL

В каком разделе находится описание подпрограммы hemm ?

• BLAS level 1
• BLAS level 2
• BLAS level 3

Выберите оператор выполняющий барьерную синхронизацию.

• sync memory
• this_image
• critical
• sync all
• sync images(1)

Дан модуль, который используется в головной программеmodule mod_1 type maps integer x,y integer color logical, private :: status end type maps type, extends (maps) :: e_maps integer segment character, private :: code end type e_mapsend module mod_1 В головной программе объявлена переменнаяtype (e_maps) EMУкажите верные варианты доступа к полям производного типа из головной программы.

• EM.code
• EM.segment
• EM.color
• EM.status
• EM.maps

Объявлен модуль и головная программа module matrix real, private :: A=1.6 real, public :: B=5.8 real, protected :: C=1.0E+10 private integer :: X=50 integer :: Y=70end module matrixPROGRAM prog use matrix, only : BNEW => B implicit none real :: C=5000, B=10 integer :: Y=800 ... Какие из вариантов выражений допустимы в головной программе ?

• call random_number(X)
• call random_number(BN)
• C=Y*B
• BNEW=B+1
• нет вариантов

Объявлены следующие типы и переменные. type cell real next real prev logical stat end type cell type object integer code real dist real radius end type object type grid type (object) object type (cell) cell integer xa,xb,ya,yb end type grid class (*), pointer :: polym class (cell), pointer :: ptc type (grid), target :: ptg Какие справедливы прикрепления ссылок ?

• polym => ptg.cell
• ptc => ptg.cell
• ptc => ptg.object
• ptc => ptg.cell.next
• polym => ptg.cell.next

В следующем фрагменте программы, укажите имена перегруженных процедур и операций. use flow type (grid) GRD type (velocity) VX, VY, VZ ... GRID.Init() call GRD.Add(VX) call GRD.Add(VY,VZ) call GRD.Build(X1=0.0,Y1=0.0,X2=2.0,Y2=1.0) write(1,*) VX + VY, VX - VZ ... call GRD.Draw() ... call VX.VectorField(GRD)

• Init
• Add
• Draw
• операция " + "
• операция " - "
• VectorField
• Build

Подключение модуля к головной программе происходит посредствомоператора

• interface
• module
• contains
• use
• public

В каком разделе находится описание функции ddot

• BLAS level 3
• BLAS level 2
• BLAS level 1

В каких разделах "Свойства проекта" можно выполнить настройку оптимизации ?

• Debugging
• General
• Data
• Libraries
• Output Files

Укажите директиву, которая предупреждает о необъявленных переменных

• !DEC$NODECLARE
• !DEC$STRICT
• !DEC$DEC!MESSAGE
• !DEC$DECLARE
• !DEC$DEFINE

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interfacecontains real function pnt1(x,y) real x integer y pnt1=x+y end function pnt1 real function pnt2(x,y) integer x,y pnt2=x+y end function pnt2 character function pnt3(x,y) real x integer y pnt3=achar(mod(int(x),20)*mod(y,2)) end function pnt3end module mod_E

• pnt1 и pnt2
• pnt1 и pnt3
• pnt2 и pnt3
• конфликты отсутствуют
• pnt1 и pnt2 и pnt3

Укажите параметр компиляции устанавливающий максимальное число раскруток цикла

• /Qunroll
• /Qipo
• /Ob1
• /Qopt-prefetch=1
• /Qparallel

Укажите параметр компиляции запрещающий оптимизацию

• /Ov
• /Od
• /Oo
• /No
• /Ox

В каком разделе находится описание подпрограммы symv ?

• BLAS level 2
• BLAS level 3
• BLAS level 1

Какие опции компилятора отвечают за использование библиотеки MKL ?

• /Qmkl:sequential
• /Qmkl:cluster
• /Qmkl:thread
• /Qmkl:blas
• /Qmkl:parallel

В головной программе используется модуль peoples, который содержит только тип person и модульную процедуру PrintInfo. Головная программа использует модуль peoples.В головной программе объявлена переменная type (person) PS.Укажите верное описание типа person и процедуры PrintInfo, чтобы при вызове call PS.PrintInfo() из головной программы, отображалась информация, содержащаяся в полях переменной PS.

• subroutine PrintInfo(PS) class(person) PS write(*,*) "FIO = ", PS.fio write(*,*) "flag = ", PS.flag write(*,*) "year = ", PS.yearend subroutine PrintInfo
• subroutine PrintInfo(PS) type(person) PS write(*,*) "FIO = ", PS.fio write(*,*) "flag = ", PS.flag write(*,*) "year = ", PS.yearend subroutine PrintInfo
• type person character(128) fio logical, private :: flag integer, private :: year contains procedure, pass :: PrintInfoend type person
• type person character(128) fio logical, private :: flag integer, private :: year contains procedure, nopass :: PrintInfoend type person
• type person character(128) fio logical :: flag integer :: year contains procedure, nopass :: PrintInfoend type person

Модульmodule mod_1 type plot integer x1,y1,x2,y2 integer color(255) end type plot type indicator type (plot) plt logical, private :: free character(4) date end type indicator type card type (indicator) indic integer fparam integer sparam end type cardend module mod_1 используется в головной программе.Объявлена переменнаяtype(card) cdУкажите верные варианты доступа к полям производного типа.

• cd.indic
• cd.indic.free
• cd.indic.plt.color(200)
• cd.indic.date(1:3)
• cd.indic.plot

Выберите верное задание операции EXTRACT для производного типа

• interface operator (EXTRACT) module procedure extend interface
• interface operator (.EXTRACT.) module procedure extend interface
• interface assignment (EXTRACT) module procedure extend interface
• interface operator :: EXTRACT module procedure extend interface
• interface operator => .EXTRACT. module procedure extend interface

Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F implicit none real res res=sin(2.0)*cos(1.0) end

• функция cos из модуля mod_F
• функция sin из модуля mod_F
• стандартная функция вычисления косинуса
• стандартная функция вычисления синуса

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B module mod_A contains subroutine init write(*,*) "Initializing A" end subroutine initend module mod_Amodule mod_B contains subroutine init write(*,*) "Initializing B" end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Bend

• в головной программе записать use mod_B, only :
• в модуле A указать public init
• в модуле B указать private init
• в модуле A указать private init
• в головной программе записать use mod_A, init_A => init
• в головной программе записать use mod_B, init_B => init

Выберите допустимые объявления модульных переменных для данного варианта программы module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val B=val*A end subroutine init_solverend module mod_APROGRAM prog use mod_A, Anew => A, Xnew => X implicit none Xnew=2.0 write(*,*) B+Anew+Xnew call init_solver(0.0)end

• real, protected :: X
• real, public :: X
• integer, public :: B
• integer, protected :: A
• integer, private :: B

Объявлен модуль и головная программа module matrix real, public :: A=1.6 real, protected :: B=5.8 real, private :: C=1.0E+10 integer, protected :: X=50 integer, private :: Y=70end module matrixPROGRAM prog use matrix, only : X, BN => B implicit none real :: C=5000, B=10 integer :: Y=800 ... Какие из вариантов выражений допустимы в головной программе ?

• call random_number(X)
• call random_number(BN)
• X=Y+C*B
• do X=1,10 end do
• нет вариантов

Объявлен следующий модуль module matrix public integer :: A=100, B=200, C=300 complex, private :: S=9 integer, protected :: P=8 integer :: Q=100, W=200 integer, private :: N=500end module matrix Какие из перечисленных модульных переменных могут быть использованы вкачестве границ размещаемых массивов в вызывающей головной программе?

• A
• B
• C
• S
• P
• Q
• W
• N
• нет вариантов

Процедуры, описанные атрибутом private

• доступны модульным процедурам при несовпадении имен
• доступны в головной программе
• недоступны в головной программе
• доступны в головной программе, но их нельзя изменять
• нельзя объявлять

Объявлен модуль и головная программа module matrix real :: A=1000 real, private :: B=3000 real, protected :: C=5000 integer, public :: D=50 integer, protected :: F=70end module matrixPROGRAM prog use matrix, only : D, F, A implicit none real :: C=5000, B=10 ... Какие из вариантов выражений допустимы в головной программе ?

• D=C*F+B
• call random_number(A)
• call random_number(F)
• F=F+A
• нет вариантов

Переменные, объявленные как private

• доступны модульным процедурам при несовпадении имен
• доступны в головной программе
• недоступны в головной программе
• доступны в головной программе, но их нельзя изменять
• недоступны модульным процедурам

Укажите параметр компиляции означающий максимизацию скорости выполнения

• /Od
• /O1
• /O2
• /Ob0
• /Ob1

Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : cos implicit none real res res=sin(2.0)*cos(1.0) end

• стандартная функция вычисления синуса
• стандартная функция вычисления косинуса
• функция cos из модуля mod_F
• функция sin из модуля mod_F

Укажите функцию, которая возвращает номер копии caf-программы

• getimage
• imagesize
• num_images
• getgid
• this_image

Укажите параметр компиляции, который управляет уровнями диагностики автоматического распараллеливания

• /Qpar
• /Qtprofile
• /Qpar-report
• /Qtcheck
• /Qparallel

Какой раздел библиотеки Intel ® Math Kernel Library содержит процедуры, которые выполняют тригонометрические функции над векторам ?

• Sparse BLAS
• VSL
• PDES
• VML
• DFT

Для типа point выберите правильный код финальной процедуры DeletePointmodule flowinteger, private :: INDEX type point integer x,y,z integer color logical stat contains final :: DeletePoint end type point CONTAINS ... subroutine InitFlow() INDEX=0 end subroutine InitFlowend module flow

• subroutine DeletePoint() class(point) pt write(*,*) pt write(*,*) "Point is deleted...." INDEX=INDEX+1 end subroutine
• subroutine DeletePoint(pt) class(point) pt write(*,*) pt write(*,*) "Point is deleted...." INDEX=INDEX+1 end subroutine
• subroutine DeletePoint(pt) type(point) pt write(*,*) pt write(*,*) "Point is deleted...." INDEX=INDEX+1 end subroutine
• subroutine DeletePoint() type(point) pt write(*,*) pt write(*,*) "Point is deleted...." INDEX=INDEX+1 end subroutine
• subroutine DeletePoint() write(*,*) pt write(*,*) "Point is deleted...." INDEX=INDEX+1 end subroutine

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interfacecontains logical function pnt1(x,y) integer x,y pnt1=x+y<1000 end function pnt1 real function pnt2(x,y) real x real y pnt2=x+y end function pnt2 real function pnt3(x,y) real y real x pnt3=x*y+x**y end function pnt3end module mod_E

• pnt1 и pnt3
• pnt1 и pnt2
• конфликты отсутствуют
• pnt1 и pnt2 и pnt3
• pnt2 и pnt3

Перегрузка операции присваивания реализуется при помощи оператора

• operator
• extends
• interface operator
• procedure
• interface assignment

Укажите оператор используемый для инкапсуляции процедур модуля

• save
• automatic
• public
• private
• protected

Объявлены следующие типы и переменные. type grid integer adr real alfa real beta end type grid type, extends (grid) :: flow integer coord real dist real param end type flow type regime type (flow) flw real, allocatable :: ux(:,:,:), uy(:,:,:), uz(:,:,:) real R1, R2, R3 end type regime class(*), pointer :: polym class(regime), pointer :: pol_reg type(flow), target :: pol_flw Какие справедливы прикрепления ссылок ?

• polym => pol_flw.grid
• pol_reg => pol_flw.flw
• polym => pol_flw
• pol_reg => pol_flw
• polym => pol_reg

Процедуры, описанные атрибутом protected

• доступны в головной программе, но их нельзя изменять
• недоступны в головной программе
• нельзя объявлять
• доступны модульным процедурам при несовпадении имен
• доступны в головной программе

Выберите допустимые объявления модульных переменных для данного варианта программы module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*1.0E-10 end subroutine init_solverend module mod_APROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Anew = Anew + 1 write(*,*) Bnew+1 call init_solver(-1.0) Anew=Bnew+1end

• integer, private :: A
• integer, public :: A
• integer, protected :: B
• real, private :: X
• character, public :: B

Объявлен следующий модуль module matrix integer :: A=100, B=200, C=300 integer, private :: S=9 integer, protected :: P=8 private integer :: Q=100, W=200 integer :: N=500end module matrix Какие из перечисленных модульных переменных могут быть использованы вкачестве границ размещаемых массивов в вызывающей головной программе?

• A
• B
• C
• S
• P
• Q
• W
• N
• нет вариантов

Модульmodule mod_1 type region integer x(4) real R end type region type blk logical st(3) character(5), public :: name(2) end type blk type NewType type (region) reg(20) type (blk) bee(30) end type NewTypeend module mod_1 используется в головной программе.Объявлена переменнаяtype(NewType) NTУкажите верные варианты доступа к полям производного типа.

• NT.reg.x
• NT.bee(2:20:5).name(1)(1:3)
• NT.reg(10).x(2)
• NT.bee(1::2).name(1)
• NT.reg.x(3)

Укажите параметр компиляции, который создает приложение для конкретного типа процессора

• /Qax
• /Qsx
• /Qp
• /Qx
• /Qt

Дан модуль, который используется в головной программеmodule mod_1 type person integer year character(64), private :: name="ABC" character(64), private :: sname="DEF" end type person type, extends (person) :: student logical, private :: status character, public :: group end type studentend module mod_1 В головной программе объявлена переменнаяtype (person) pstype (student) stУкажите верные варианты доступа к полям производного типа из головной программы.

• ps.year
• st.person
• st.group
• st.status
• ps.status

Укажите параметр компиляции, который создает приложение не привязанное к конкретному типу процессора

• /Qp
• /Qt
• /Qs
• /Qax
• /Qx

Укажите параметр компиляции позволяющий проверять неинициализированные переменные

• /check:format
• /check:arg_temp_created
• /check:uninit
• /check:bounds
• /ccdefault:fortran

В каких разделах "Свойства проекта" указывается создание файла листинга программы ?

• Code Generation
• General
• Libraries
• Compatibility
• Language

Какой раздел библиотеки Intel ® Math Kernel Library содержит процедуры, которые выполняют умножение треугольной матрицы на вектор ?

• BLAS
• DFT
• VML
• PDES
• VSL

В каком разделе находится описание подпрограммы trmv ?

• BLAS level 1
• BLAS level 2
• BLAS level 3

Укажите верные имена *.mod файлов входящих в состав MKL

• mkl95_lapack.mod
• lapack.mod
• blas95.mod
• mkl_service.mod
• lapack95.mod

Каждая копия программы генерирует массив из случайных чисел. Каждая копия программы должна записать массив целиком в файл C:datа.txt.Какой оператор следует использовать при записи данных в файл ?

• sync images
• sync all
• critical
• this_image
• sync memory

Укажите функцию, которая вычисляет нижнюю границу coarray-переменной

• lcobound
• ucobound
• codimension
• cobound
• lbound

Выберите верные утверждения

• в CoArray Fortran используется модель параллельного программирования Partitioned Global Address Space
• в CoArray Fortran используется Single Program Multiple Data

Какие из циклов не подходят для параллелизации с использованием опции компилятора /Qparallel

• do p=1,M A(p,s)=B(s,p+1)*B(p-1,s)*pend do
• do j=1,Mj A(j)=(A(j+1)-2*A(j)+A(j-1))*koefend do
• do k=1,1000 V(k)=W(k-1)*S(k) R(k)=X(k)**2-S(k-1) end do
• do i=1,100do j=1,100 if ((i<50).AND.(j<30)) continue A(i,j)=B(i,j)-C(i,j)end do end do
• do sum=sum+A(k) val=val-B(k) if (sum > period) exitend do

Перечислите возможности Intel Parallel Studio, Intel Visual Fortran для создания параллельных программ.

• библиотека Intel Integrated Performance Primitives
• библиотека Message Passing Interface
• библиотека Intel Math Kernel Library
• директива !DEC$ DECLARE
• режим компиляции /Qparallel

В следующем фрагменте программы, какие имена не являются и могут не являться процедурами, привязанными к типу по имени? use grids type (grid_MKE) GR type (point) pt call GR.Init() call GR.PrintInfo() write(*,*) GR.coordinates(10,20) write(*,*) GR.next() write(*,*) GR.values(2,2) if (.NOT.GR.err) then ... pt = GR.points + pt ...

• points
• Init
• PrintInfo
• values
• next
• err
• coordinates

В головной программе используется модуль geom, который содержит только тип triangle и модульную процедуру Square. Головная программа использует модуль geom.В головной программе объявлена переменная type (triangle) TR.Укажите верное описание типа triangle и процедуры Square, для организации вызова write(*,*) TR.Square() из головной программы

• subroutine Square type(triangle) tr write(*,*) abs((tr.x1-tr.x2)*(tr.y3-tr.y2)-(tr.y1-tr.y2)*(tr.x3-tr.x2))/2 end subroutine Square
• real function Square(tr) class(triangle) tr Square=abs((tr.x1-tr.x2)*(tr.y3-tr.y2)-(tr.y1-tr.y2)*(tr.x3-tr.x2))/2 end function Square
• type triangle real x1,y1,x2,y2,x3,y3 contains procedure, pass :: Squareend type triangle
• type triangle real x1,y1,x2,y2,x3,y3 contains procedure, nopass :: Squareend type triangle
• real function Square(tr) type(triangle) tr Square=abs((tr.x1-tr.x2)*(tr.y3-tr.y2)-(tr.y1-tr.y2)*(tr.x3-tr.x2))/2 end function Square

Объявлены следующие типы и переменные. type cell real next real prev logical stat end type cell type, extends (cell) :: object integer code real dist real radius end type object type grid type (object) object integer n integer xa,xb,ya,yb end type grid class (*), pointer :: polym class (cell), pointer :: ptc type (grid), target :: ptg Какие справедливы прикрепления ссылок ?

• polym => ptg
• polym=>um1.sm(1:100:4)
• ptc => ptg.object
• polym => ptg.object
• polym => ptc