1 Continue

! вычисление суммы элементов массива, значения которых больше 5

do i=1,10 ! инициализация цикла

if (a(i).eq.0) exit ! прерывание цикла при обнаружении 0

if (a(i)>5) then

summa=summa + a(i) ! суммирование чисел больших 5

end if

end do

! вывод результатов

print *, 'sum (ar(i,i), i=1,5,1):', sumar

if (x0==0.) then

print *, 'not square(x), x0=0'

else

print *, 'square(x):', x

end if

print *, 'sum (a(i)>5, 1=1,10,1):', summa

end program yok3

3.6.4. Операторы CONTINUE, RETURN, CALL

Оператор CONTINUE: CONTINUE

Оператор RETURN: RETURN <метка>

Оператор CALL: CALL имя(a₁,a₂,...,a_n)

3.6.5. Операторы pause, stop, end

Оператор PAUSE: PAUSE <сообщение>

Если сообщение отсутствует, то на экран выдается строка:

Please enter a blank line (to continue) or system command .

Оператор STOP: STOP <сообщение>

Если сообщение не является числом, выводится предложение: Return code число .

Если сообщения нет, то выводится строка: STOP - Program terminated .

Оператор END: END <имя программной единицы> .

3.7. Форматный ввод-вывод

3.7.1. Вводный комментарий

3.7.2. Оператор format

Оператор FORMAT: метка FORMAT (ДП)

3.7.3. Дескрипторы данных

Таблица 3.6. Дескрипторы преобразования данных

Дескриптор	Тип аргумента	Внешнее представление
Iw[.m]	Целый	Целое число
Bw[.m]	Целый	Двоичное представление
Ow[.m]	Целый	Восьмеричное представление
Zw[.m]	Любой	Шестнадцатеричное представление
Fw.d	Вещественный	Вещественное число в F-форме
Ew.d[Ee]	Вещественный	Вещественное число в E-форме
Enw.d[Ee]	Вещественный	Вещественное число в E-форме
Dw.d	Вещественный	Вещественное число двойной точности
Lw	Логический	T и F, .TRUE. и .FALSE.
A[w]	Символьный	Строка символов
Gw.d[Ee]	Любой	Зависит от типа данных

Примеры использования дескрипторов.

Спецификатор Число Отведенное поле

I4 20 20

F10.2 0,3 .30

F10.4 -3445 -3445.00

E10.4 346 0.3460E+03

E10.5E1 -346 -.34600E+3

G5.3 2.3 2.3

G5.3 2300 0.230E+04

L1 истина T

при вводе L2 ложь FА

при выводе L2 ложь F

A2 JB JB

A3 KAJA KAJ