! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:38 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:38 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]EDT$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE EDT$ROUTINES IDENT X-1 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  EDT Editor (EDT) Routines
 ! 
 ! 
 !  EDT$EDIT - Edit a file
 ! 
 !  status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] 
 !                     [,fileio] [,workio] [,xlate] )
 ! 
 !   in_file  - Input file specification
 !   out_file - Output file specification
 !   com_file - Startup command file specification
 !   jou_file - Journal file specification
 !   options  - Options for edit operation
 !   fileio   - Bound procedure value for file I/O routine
 !   workio   - Bound procedure value for work I/O routine 
 !   xlate    - Bound procedure value for XLATE routine
 ! 
	INTEGER*4 EDT$EDIT
	EXTERNAL EDT$EDIT
!DEC$ END OPTIONS