Пример. real function integ (f, a, b, n)

We would welcome you completing the voluntary Equal Opportunities and Diversity Monitoring form.We monitor all stages of our recruitment and selection process to ensure there is no potential for unjustified discrimination on irrelevant grounds. Our monitoring data is externally analysed each year, and recommendations are published and acted upon.

All information supplied will be treated in strict confidence and no identifying details will be attached to it. It will help us to monitor and evaluate the success and application of our equal opportunity policy and diversity strategy and to compile anonymised statistics which will be included within our formal reporting structures.

 

 

Оператор External.

Функции и подпрограммы как параметры процедур.

До сих пор мы рассматривали случаи, когда параметрами процедур были данные. Иногда параметром процедуры (функций или подпрограмм) может быть другая процедура. Тогда такие параметры называются формальными процедурами. В задачах вычислительной математики часто приходится сталкиваться с проблемой выполнения одного типа вычислений для различных функций (интегрирование, нахождений корней уравнений, поиск экстремума и т. п.). В таких случаях создается процедура решения типовой задачи, а конкретная функция ( ее имя ) передается как фактический параметр. Тогда, чтобы компилятор смог разобраться, что это не просто переменная, а процедура, имя фактического параметра должно быть описано в вызывающем модуле:
либо с помощью оператора External (внешний):

External < имя внешней процедуры или список имен >;

или заданием атрибута External в операторе объявления типа:

real, external:: <имя внешней процедуры или список имен >;,

или необходимо использовать блок Interface в вызывающей программной единице (заданные в интерфейсном блоке процедуры обладают атрибутом External, и их можно использовать в качестве параметров процедур).

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

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

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

Если в качестве фактического параметра необходимо использовать встроенную процедуру, то такая процедура описывается с атрибутом Intrinsic ( например, cos ).

Любая внешняя процедура неявно обладает атрибутом external, если к ней явно задан интерфейс. В этом случае явное задание атрибута external запрещено.

Если в качестве формального параметра выступает имя процедуры, то атрибут intent для такого параметра не может быть использован.

Пример.

Найти площадь между двумя кривыми: f1(x)=cos²x, f2(x)=1/x на отрезке [0.1, 0.5] при заданном числе разбиений n=100. Площадь будем определять, как . Вычисление интеграла производить по формуле прямоугольников: . n – число разбиений отрезка [a,b]

Пример программы вариант 1
(без модуля описаний и интерфейсного блока).

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

По умолчанию интерфейс неявный. Пока интерфейсный блок писать не будем.

Функция, вычисляющей значение интеграла методом прямоугольников, должна быть универсальной. Она должна быть пригодна для вычисления интеграла любой функции. Для этого используем external.

Модули, или внешние процедуры, написанные для других проектов, могут быть добавлены в текущий проект: Project, Add To Project, Files.

!процедура, вычисляющая интеграл любой функции

real function integ (f, a, b, n)

implicit none

real, intent(in)::a, b

integer, intent(in)::n

integer i

real h, f, s! f – имя подынтегральной функции

s=0

h=(b-a)/n

do i = 1, n

s=s+ f (a+i*h)

Enddo

integ= s*h