------------------------------------------------------------------------
   GTOOL3 dennou version for dcl-5.0  $BLdBjE@(B
                                         96/01/26(takepiro)
------------------------------------------------------------------------
$B!&(BIBM AIX $B$G$N%3%s%Q%$%k(B
	gftool/gfoepn.F $B$G%3%s%Q%$%k%(%i!<(B
	 -> $B0J2<$NItJ,$r=$@5(B
	 
	C#ifdef SYS_IBMS
		     OPEN ( UNIT=IFILE , FILE=HFILE, IOSTAT=IERR,
	      &                ACTION=HACT, FORM=HFORM,
	      &                ACCESS='SEQUENTIAL'                 )
	C#else
	C	     IF ( HACT .EQ. 'APPEND' ) THEN
	C		OPEN ( UNIT=IFILE , FILE=HFILE, IOSTAT=IERR,
	C      &                FORM=HFORM,
	C      &                ACCESS='APPEND'                     )
	C	     ELSE
	C		OPEN ( UNIT=IFILE , FILE=HFILE, IOSTAT=IERR,
	C      &                FORM=HFORM,
	C      &                ACCESS='SEQUENTIAL'                 )
	C	     ENDIF
	C #endif      
