Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

C	DIL interface support file for FORTRAN-10/20 Version 6
C
C	  COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983
C	
C	  The information contained in this document is subject to change
C	without notice and should not be construed as a commitment by Digital
C	Equipment Corporation.  Digital assumes no responsibility for any
C	errors that may appear in this document.
C	
C	  The software described in this document is furnished under a license
C	and may only be used or copied in accordance with the terms of such
C	license.  Title to and ownership of the software will at all times
C	remain in DEC.
C	
C	  Digital assumes no responsibility for the use or reliability of its
C	software on equipment which is not supplied by DEC.
C
C	Facility: DIL
C	
C	Edit History:
C	
C	new_version (1, 0)
C	
C	EDIT (%O'16', '12-Oct-82', 'David Dyer-Bennet')
C	%(  (IN PROGRESS) Split DILF36.INT into DILV6.FOR and DILV7.FOR.
C	    Related to DIX edit %o'14'.
C	    FILES: DILV6.FOR (was DILF36.INT), DILV7.FOR (NEW). )%
C
C Edit (%O'21', '20-Oct-82', 'David Dyer-Bennet')
C %(  Concoct a viable dil-wide VAX build procedure and clean up NET 
C     routine names.
C     Put correct NET routine names into DILV6.
C )%
C Edit (%O'24', '25-Oct-82', 'David Dyer-Bennet')
C %(  Fix line length problem in DILV6, DILV7.
C     Files: DILV6.FOR, DILV7.FOR
C )%
C Edit (%O'46', '19-Jan-83', 'David Dyer-Bennet')
C %(  Update copyright notice, mark end of edit histories.
C )%
C ! **EDIT**
C	
	PARAMETER STSWRN = 0
	PARAMETER STSSUC = 1
	PARAMETER STSERR = 2
	PARAMETER STSINF = 3
	PARAMETER STSSEV = 4
	PARAMETER SYS36 = 1
	PARAMETER SYSVAX = 2
	PARAMETER normal = 1
C	Success
	INTEGER XDESCR, XCVST, XCVFB, XCVFP, XCGEN
        INTEGER NFGND, NFOPA, NFOPB, NFOP8, NFOPP, NFACC, NFRCV, NFSND
        INTEGER NFCLS, ROPEN, RREAD, RWRITE, RCLOSE, RDEL, RSUB, RPRINT