/************************************************************************
* init -- initializes tables						*
************************************************************************/
subroutine init
include ratfor.def
include clook.cmm		#def table stuff
include forgen.cmm		#for code stuff
include getlin.cmm		#input buffer stuff
include outbuf.cmm		#output buffer stuff
include flags.cmm		#flags stuff
include string.cmm
common/lab/labl			#label generation stuff
common/longnm/numnam		#long name stuff

lastt = 0			#clook
do i = 1,MAXPTR
	namptr(i) = 0
storit(5) = 127			#forgen
buf(INBUFSIZE) = NEWLINE	#getlin
ptr = INBUFSIZE + 1
outp = 0			#outbuf
labl = 23000			#lab
numnam = 0			#longnm
write_long_names = .false.	#clear long names flag
include_profile = .false.	#clear profile flag
print_version = .false.		#clear the version flag

string_used = 0			#no string statements so far

return
end