Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Укажите функцию, которая вычисляет верхнюю границу coarray-переменной
Укажите функцию, которая вычисляет верхнюю границу coarray-переменной
вопросПравильный ответ:
cobound
ucobound
ubound
lcobound
codimension
Сложность вопроса
78
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Благодарю за подсказками по интуиту.
27 сен 2020
Аноним
Экзамен сдан на пять. Спасибо за ответы
07 окт 2016
Другие ответы на вопросы из темы программирование интуит.
- # Описан модуль, который подключен к головной программе module mod_1 integer, private :: A,B,C private SetA public F, init contains subroutine SetA(X) integer X A=X+1 end subroutine SetA subroutine init() call SetA(500); B=20; C=10 end subroutine integer function F F=A+B+C end function F end module mod_1 Какой результат вернет функция F после вызова процедуры init в головной программе ?
- # Какие функции используются в выражении 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 cos end module mod_F PROGRAM prog use mod_F, only : sin, cos implicit none real res res=sin(2.0)*cos(1.0) end
- # В головной программе используется модуль 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 proc5 end module flow
- # Используя процедуры MKL, вычислите произведение , где - прямоугольная матрица,-квадратная матрица. Данные находятся в файле и записаны по строкам). В ответ введите целое значение от суммы элементов матрицы .
- # Укажите параметр компиляции, который управляет уровнями диагностики автоматического распараллеливания