Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A module mod_A contains subroutine init write(*,*) "Initializing A" end subroutine init end module
Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A
module mod_A
contains
subroutine init
write(*,*) "Initializing A"
end subroutine init
end module mod_A
module mod_B
contains
subroutine init
write(*,*) "Initializing B"
end subroutine init
end module mod_B
PROGRAM prog
use mod_A
use mod_B
implicit none
call init() ! вызываем процедуру из модуля A
end
вопрос
Правильный ответ:
закомментировать
use mod_A
в модуле
A указать private init
в модуле
B указать private init
в модуле
A указать public A
в головной программе записать
use mod_A, A => init
в головной программе записать
use mod_B, only : Сложность вопроса
58
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Если бы не опубликованные ответы - я бы не смог решить c этими тестами intuit.
15 май 2016
Аноним
Зачёт всё. Бегу отмечать отмечать победу над тестом интут
10 ноя 2015
Другие ответы на вопросы из темы программирование интуит.
- # Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interface contains 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 pnt3 end module mod_E
- # Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interface contains real function pnt1(x,y) integer x,y pnt1=x+y end function pnt1 logical function pnt2(x,y) integer x,y pnt2=x+y<1000 end function pnt2 character function pnt3(x,y) real x integer y pnt3=achar(mod(int(x),20)*mod(y,2)) end function pnt3 end module mod_E
- # Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interface contains 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 pnt3 end module mod_E
-
#
Используя процедуры MKL, вычислите произведение
![math]()
, где ![math]()
- треугольная квадратная матрица,![math]()
-квадратная матрица. Данные находятся в файле и ![math]()
записаны по строкам). В ответ введите целую часть суммы модулей элементов главной диагонали матрицы ![math]()
.
- # Укажите параметр компиляции, который создает приложение для конкретного типа процессора
, где 
- треугольная квадратная матрица,
-квадратная матрица. Данные находятся в файле и 
.