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

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

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

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

В следующем фрагменте программы, укажите имена перегруженных процедур и операций.

  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 из модуля A

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() ! вызываем процедуру из модуля Aend    

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A

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() ! вызываем процедуру из модуля Aend        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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