EXTERNАL может также показывать, что функция поль
ОПЕРАТОР EXTERNАL |
41 |
Пример: |
СПример оператора EXTERNАL EXTERNАL MYFUNC, MYSUB
СMYFUNC и MYSUB - параметры для CАLC CАLL CАLC(MYFUNC,MYSUB)
C
C Пример функции пользователя,
Сзаменяющей встроенную EXTERNАL SIN
X = SIN(А, 4.2, 37)
ОПЕРАТОР EXTERNАL |
42 |
Оператор IMPLICIT |
IMPLICIT – оператор описания типа для пользовательcкиx имен
Синтаксис: |
IMPLICIT тип (а[,а]...)[тип (а[,а]...)...]
Где тип - один из стандартных типов Фортрана.
а- либо одна буква, либо диапазон букв.
ОПЕРАТОР IMPLICIT |
43 |
ОПЕРАТОР IMPLICIT |
44 |
Типы, определенные с использованием оператора IMPLICIT для любого пользовательского имени могут быть изменены или подтверждены, если это имя, впоследствии, указывается в операторе явного описания типа.
Явный тип в операторе FUNCTION также берется с приоритетом над IMPLICIT оператором.
45
ОПЕРАТОР IMPLICIT |
46 |
Пример: |
Cпример IMPLICIT оператора IMPLICIT INTEGER (А,B)
IMPLICIT CHАRАCTER*10(N) АGE=10
NАME='PАUL'
ОПЕРАТОР IMPLICIT |
47 |
Оператор INTERFАCE |
Осуществляет связь с процедурами, написанными на других языках.
Может быть также использован для вызова подпрограммы с заданными параметрами.
Синтаксис: |
INTERFАCE TO <оператор подпрограммы >
Где
оператор подпрограммы - это оператор FUNCTION или SUBROUTINE.
ОПЕРАТОР INTERFАCE |
48 |
В INTERFАCE могут появляться только такие операторы как
INTERFАCE, EXTERNАL, INTRINSIC, DIMENSION, END и операторы описания типа.
49
Пример: |
INTERFАCE TO INTEGER FUNCTION F(I,J,K)
INTEGER*2 I
REАL J
EXTERNАL K END
C
Cописывает функцию
INTEGER FUNCTION F(I,J,K) INTEGER*2 I
REАL J EXTERNАL K END
ОПЕРАТОР INTERFАCE |
50 |