/************************************************************************
*	global	-do global define and global file statements		*
*									*
*	This file contains the programs GDEF and GFILE which		*
*	deal with global statemets.					*
*									*
*	The routine GDEF creates global names and stores them into	*
*	a global definition file.					*
*									*
*	The routine GFILE opens/creates a global definition file.	*
*	All new identifiers from global definitions are stored here.	*
************************************************************************/
include ratfor.def

/************************************************************************
*	gfile	-open/create a global definition file			*
*									*
*	usage:	call gfile						*
************************************************************************/
subroutine gfile
integer gettok,scan
character name(MAXTOKEN),definition(MAXTOKEN),temp(MAXTOKEN)

close(unit=GLOBAL_LUN)