blob: ccbb82a35586ce8aaa72b0576189eaca2973278b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
subroutine entdef (name, defn, table)
integer name (100), defn (100)
integer table
integer lookup
integer text
integer sdupl
if (.not.(lookup (name, text, table) .eq. 1))goto 23000
call dsfree (text)
23000 continue
call enter (name, sdupl (defn), table)
return
end
|
