blob: 431745024dd5e20804102dab585e51c746c520be (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
include defs
# entfkw - place Fortran keywords in symbol table.
# Place in the following table any long (> 6 characters)
# keyword that is used by your Fortran compiler:
subroutine entfkw
include COMMON_BLOCKS
string sequiv "equivalence"
call enter (sequiv, 0, fkwtbl)
end
|
