blob: b2c7766afc44416133666e2fb9e821f7c58cee8e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
{
Copyright (C) 1995 Free Software Foundation, Inc.
Contributed by James Craig Burley (burley@gnu.ai.mit.edu).
This file is part of GNU Fortran.
GNU Fortran is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
GNU Fortran is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Fortran; see the file COPYING. If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.
}
FFESTR_first // // ffestrFirst ffestr_first 1 1
;Accept ACCEPT
;Allocatable ALLOCATABLE
;Allocate ALLOCATE
Assign ASSIGN
Backspace BACKSPACE
Block BLOCK
BlockData BLOCKDATA
Byte BYTE
Call CALL
Case CASE
CaseDefault CASEDEFAULT
Character CHRCTR
Close CLOSE
Common COMMON
Complex CMPLX
;Contains CONTAINS
Continue CONTINUE
Cycle CYCLE
Data DATA
;Deallocate DEALLOCATE
Decode DECODE
Define DEFINE
;DefineFile DEFINEFILE
Delete DELETE
Dimension DIMENSION
Do DO
Double DBL
DoubleComplex DBLCMPLX
DoublePrecision DBLPRCSN
DoWhile DOWHILE
Else ELSE
ElseIf ELSEIF
;ElseWhere ELSEWHERE
Encode ENCODE
End END
EndBlock ENDBLOCK
EndBlockData ENDBLOCKDATA
EndDo ENDDO
EndFile ENDFILE
EndFunction ENDFUNCTION
EndIf ENDIF
;EndInterface ENDINTERFACE
;EndMap ENDMAP
;EndModule ENDMODULE
EndProgram ENDPROGRAM
EndSelect ENDSELECT
;EndStructure ENDSTRUCTURE
EndSubroutine ENDSUBROUTINE
;EndType ENDTYPE
;EndUnion ENDUNION
;EndWhere ENDWHERE
Entry ENTRY
Equivalence EQUIVALENCE
Exit EXIT
External EXTERNAL
Find FIND
Format FORMAT
Function FUNCTION
Go GO
Goto GOTO
If IF
Implicit IMPLICIT
Include INCLUDE
Inquire INQUIRE
Integer INTGR
;Intent INTENT
;Interface INTERFACE
;InterfaceAssignment INTERFACEASSGNMNT
;InterfaceOperator INTERFACEOPERATOR
Intrinsic INTRINSIC
Logical LGCL
;Map MAP
;Module MODULE
;ModuleProcedure MODULEPROCEDURE
NameList NAMELIST
;Nullify NULLIFY
Open OPEN
;Optional OPTIONAL
Parameter PARAMETER
Pause PAUSE
;Pointer POINTER
Print PRINT
;Private PRIVATE
Program PROGRAM
;Public PUBLIC
Read READ
Real REAL
;Record RECORD
;Recursive RECURSIVE
;RecursiveFunction RECURSIVEFNCTN
Return RETURN
Rewind REWIND
;Rewrite REWRITE
Save SAVE
Select SELECT
SelectCase SELECTCASE
;Sequence SEQUENCE
Stop STOP
;Structure STRUCTURE
Subroutine SUBROUTINE
;Target TARGET
Then THEN
Type TYPE
;Union UNION
;Unlock UNLOCK
;Use USE
Virtual VIRTUAL
Volatile VOLATILE
;Where WHERE
Word WORD
Write WRITE
|
