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

Правильный ответ:

• # Описан модуль, который подключен к головной программе module mod_1 integer, protected :: A=1,B=1,C=1 integer, private :: D, E private SetA public F, init contains subroutine SetA(X) integer X A=X-1 end subroutine SetA subroutine init_D_E(x,y) integer x,y D=X*10; E=Y*2; call SetA(0) end subroutine init_D_E integer function F F=A+D+E end function F end module mod_1 Какой результат вернет функция F после вызова процедуры init_D_E(4,5) в головной программе ?
• # Модуль module mod_1 type plot integer x1,y1,x2,y2 integer, private :: color(255) end type plot type indicator type (plot) plt logical :: free character(4), public :: date end type indicator type card type (indicator) indic integer fparam integer, private :: sparam end type card end module mod_1 используется в головной программе. Объявлена переменная type(card) cd Укажите верные варианты доступа к полям производного типа.
• # Какое значение будет присвоено переменной k в результате выполнения оператора select type в следующем фрагменте программы ? type point integer x, y end type point type, extends(point) :: point_ex integer z end type point_ex type, extends(point_ex) :: point_phys real vx real tm end type point_phys type, extends(point_phys) :: point_mech character(32) name end type point_mech class (point_ex), pointer :: poly class (point), target, allocatable :: pt class (point_ex), target, allocatable :: pt_ex class (point_phys), target, allocatable :: pt_ph class (point_mech), target, allocatable :: pt_mh integer k allocate (pt, source=point(1,2)) allocate (pt_ex, source=point_ex(3,4,5)) allocate (pt_ph, source=point_phys(6,7,8,0.0,9.0)) allocate (pt_mh, source=point_mech(9,10,11,0.0,0.0,"ABC")) poly=>pt_mh select type (poly) class is (point_ex); k=poly.x class is (point_phys); k=poly.z class default; k=0 end select ...
• # Какие компоненты входят в состав MKL ?
• # Укажите параметр компиляции запрещающий оптимизацию