Вычислительная математика и программирование - Боглаев Ю.П.
ISBN 5-06-00623-9
Скачать (прямая ссылка):
WRITE
писать
ZERO
нуль
!
ПРИЛОЖЕНИЕ 2
Фортран 77
Текст программ на фортране состоит из строк.
Операторы занимают позиции 7—72 в строке.
Символы: буквы верхнего регистра А — Z, цифры 0—9, спец. символы
= Н */()'.$,: пробел.
Символы С или * в первой позиции обозначают строку — комментарий. Символ, отличный от нуля и пробела в 6-й позиции, означает, что строка есть продолжение предыдущей.
Метка оператора помещается в позиции 1—5.
Применяемые обозначения
(...) = (элемент, включаемый в программу пользователем)
!...] = [необязательная часть оператора]
...^{последовательность из нуля или более элементов}
(список) = (элемент списка, элемент списка, ..., элемент списка)
Конструкции фортрана Программа
PROGRAM (имя программы) {невыполняемый оператор} {выполняемый оператор}
END
Невыполняемые операторы
INTEGER (список)
REAL (список)
CHARACTER [*(длина)]
LOGICAL (список)
DOUBLE PRECISION (список) COMPLEX (список)
IMPLICIT (список)
PARAMETER ((список описания» DIMENSION (список описания) EQUIVALENCE (список эквивалент.) EXTERN AL (список имен) INTRINSIC (список имен)
DATA (список имен)/(список констан)/
{[,](список имен)/(список конст.)/} (метка) FORMAT ((список спецификаций» 10 FORMAT (F6.2,I3)
Примеры
PROGRAM TRAP EXTERNAL FI CALL S [(...)]
END
INTEGER K(15),N REAL X,Y(10)
CHARACTER *60WOR(16) LOGICAL BOOL DOUBLE PRECISION Z(8),W COMPLEX Z(6),U(8) IMPLICIT REAL(A-Z) PARAMETER (E=2.7) DIMENSION K(15),Y(10) EQUIVALENCE (A,B,C) EXTERNAL FI,A1A0 INTRINSIC DSIN DATA M,N/1,3/X/0.1/
529
Выполняемые операторы
Y —A * SQRT(B) + 0.3 PRINT *,M,X READ *,C PRINT 10,X,Y
READ 5,R,T,I
IF (M.EQ.l) THEN X = Y*Y — 2.
ELSE IF (M.EQ.2) THEN X = SIN(Y)
ELSE
X = COS(Y) +1.
ENDIF
DO 1,1 = 4*K,ABS(A), — 1 X(I) = X(I)+1.
CONTINUE CALL SIM(X,0.5)
GO TO 10 IF (M.GT.l) X = X+1 IF (W) 1,10,100
ASSIGN 10 TO K GO TO K
(имя) = (выражение)
PRINT *, (список вывода)
READ *, (список ввода)
PRINT (метка формата), (список вывода)
READ (метка формата), (список ввода)
IF ((логич. выр.» THEN
{( выполняемый оператор >}
ELSE IF ((логич. выр.» THEN {(выполняемый оператор)}
[ELSE]
{{(выполняемый оператор)}}
ENDIF
DO (метка) [,] (диапазон индекса)
{(выполняемый оператор)}
(метка) CONTINUE 1
CALL (имя подпрогр) [((список факт, пар.»]
GO ТО (метка)
IF ((логич. выр.» (выполн. оператор)
IF ((арифм. выр.» (метка), (метка),
(метка)
ASSIGN (метка) ТО (имя)
GO ТО (имя)
Процедуры
SUBROUTINE (имя)
[((список форм, пар.»]
{(невыполняемый оператор)}
{(выполняемый оператор)}
END
[(тип)] FUNCTION (имя)
[((список форм, пар.»]
{(невыполняемый оператор)}
{(выполняемый оператор)}
END
ENTRY (имя входа) [((список форм, пар»]
SAVE [(список локальных переменных) ]
Операторы ввода—вывода с файлами
WRITE ((управляющий список» WRITE (3,1) Y,(X(I),1 = 9,1,-2) (список)
READ ((управляющий список» READ (N,'(A)') К (список)
OPEN ((устр-во), (список открытия» OPEN (3,FILE = 'DATA') CLOSE ((устр-во), (список закрытия»
INQUIRE ((устр-во), (список
SUBROUTINE SIM(A,B) REAL А,В
IF (B.LT.0.) RETURN END
REAL FUNCTION S(A)
REAL A
S = ABS(COS(A))
RETURN
END
ENTRY V(X,Y)
SAVE /TOR/,1
опроса»
CLOSE (3)
INQUIRE (2,EXIST = LOG)
530
V
v
INQUIRE «файл), (список onpoca»INQUIRE (YAP,OPENED = L) BACKSPACE (устройство) BACKSPACE 5
ENDFILE (устройство) ENDFILE 3
Управление вводом—выводом файла
Элементы (управляющего списка) ввода—вывода
Элементы (списка открытия)
Элементы (списка закрытия)
Элементы (списка опроса)
[UNIT = ] (целое выражение)
[FMT = ] (текстовое выражение) или
[FMT = ] (форматная метка)
REC = (целое выражение)
END = (метка)
IOSTAT = (hmb целой переменной) [UNIT = ] (целое выражение)
FILE = (текстовое выражение) ACCESS = (текстовое выражение)
STATUS = (текстовое выражение) FORM = (текстовое выражение) RECL = (целое выражение)
BLANK = (текстовое выражение)
ERR = (метка)
IOSTAT = (hmh целой переменной) [UNIT = ] (целое выражение) STATUS = (текстовое выражение) ERR = (метка)
IOSTAT = (hmh целой переменной) [UNIT = ] (целое выражение)
FILE = (текстовое выражение)
EXIST = (имя логической переменной)
OPENED = (имя логической переменной)
NUMBER = (имя целой переменной) NAMED = (имя логической переменной)
NAME = (имя текстовой переменной) ACCESS = (имя текстовой переменной)
SEQUENTIAL = (имя логич. переменной)
DIRECT = (имя логической переменной)
FORM = (имя текстовой переменной) FORMATTED = (имя логической переменной)
UNFORMATTED = (имя логич. переменной)
RECL = (hm4 целой переменной) NEXTREC = (hm4 целой переменной) BLANK = (имя текстовой переменной)
ERR = (метка)
Ю8ТАТ = (имя целой переменной)
531
<список спецификаций формата)
необязательные элементы
повторяемые
неповторяемые
1<кол-во позиций) 415 1<кол-во позиций).(цифры) 16.3 А(кол-во позиций) А6 Ь(кол-во позиций) L2 F<koh-bo позиций).(цифры) F6.3 Е(кол-во позиций).(цифры) Е13.6 D(koh-bo позиций).(цифры) D10.5 G(koh-bo позиций).(цифры) G10.3 (масштабный множитель) Р ЗРЕ13.6 (текстовая константа) 'VARIANT' (холлеритова константа) 7HVARIANT Т(номер позиции) Т8 ТЬ(число позиций) TL5 TR(4Hcno позиций) TR6 (число позиций) X ЗХ S
