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