Google
 

Trailing-Edge - PDP-10 Archives - BB-R775A-BM - subsys/dilv7.for
There are 20 other files named dilv7.for in the archive. Click here to see a list.
C	DIL interface support file for FORTRAN-10/20 Version 7
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	%(  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 in DILV7
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**
	INTEGER XDESCR, XCVST, XCVFB, XCVFP, XCGEN
        INTEGER NFGND, NFOPA, NFOPB, NFOP8, NFOPP, NFACC, NFRCV, NFSND
	INTEGER NFCLS
        INTEGER ROPEN, RREAD, RWRITE, RCLOSE, RDEL, RSUB, RPRINT
	INTEGER STSWRN, STSSUC, STSERR, STSINF, STSSEV, SYS36, SYSVAX
	INTEGER NORMAL
	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