!***START
!
!FXREF - FORTRAN IV PLUS Cross Reference Program
!
!VERSION - VAX REV 1.0
!
!DATE - 16 February 1979
!
!AUTHOR - J. Thompson  Intermetrics
!
!PROGRAM GENERATION:  FORTRAN the following files:
!
!		      FXREF,BNUMB,BQSTR,BIDENT,TNUMB,PRODUCE,FXREFPRNT
!		      MACRO the following file:
!
!		      SETPRN
!
!
!		      Do the following links:
!
!		      LINK FXREF,SETPRN,BNUMB,BQSTR,BIDENT,TNUMB,PRODUCE
!
!		      LINK FXREFPRNT,SETPRN
!
!REQUIRED DATA FILE:		RESERVED.DAT
!
!EXECUTION COMMAND FILE:	FXREF.COM
!
!PROGRAM INSTALLATION:
!
!	1.  Put FXREF.EXE, FXREFPRNT.EXE, FXREF.COM, and RESERVED.DAT
!	    in SYS$SYSTEM.
!
!	2.  DEF/SYS FX SYS$SYSTEM:FXREF.COM
!
!CONTENTS OF FXREF.COM:
!****************************************
!$ SHOW TIME
!$ ASSIGN 'P1' INFILE
!$ RUN SYS$SYSTEM:FXREF.EXE
!INFILE
!SYS$SYSTEM:RESERVED.DAT
!$ SORT/RSX FXREFOUT.DAT/FO:FIX:23/KE:1.23 FXREFOUT.SRT
!$ RUN SYS$SYSTEM:FXREFPRNT.EXE
!$ DEL FXREFOUT.DAT;
!$ DEL FXREFOUT.SRT;
!$ DEASS INFILE
!$ SHOW TIME
!*****************************************
!

	FORTRAN IV PLUS Cross Reference Program


	Useage:     @FX Input_file_name

	Input_file_name:  A FORTRAN or CROCK source file

	Output:     A listing file called CROSSREF.LIS which contains
		    a line numbered listing of the input deck.

		    A cross reference map called CROSSREF.MAP with items
		    keyed to the line numbers in CROSSREF.LIS.

		    Items are quoted strings, numbers (and labels),
		    identifiers (symbols), Hollerith constants,
		    and CROCK items.


*RESTRICTIONS:

	1.  Up to 80 columns are processed for each input record.
	    (This is not strictly 72 column FORTRAN.)

	2.  Items will be treated as complete when line end occurs.
	    (An identifier or number started on one line and
	    continued on the next will give two items.)

	3.  Blanks or tabs have no significance in numbers and usually no
	    significance in identifiers.  One identifier exception
	    occurs when blank(s) or tab(s) follow(s) RESERVED words.  Then
	    the RESERVED word is complete and the next item is looked for.
	    Another exception is that the DO in a DO statement must be followed
	    by one or more blanks or tabs.

	4.  Numbers beginning with a decimal point will be generated
	    without the leading decimal.

	5.  The DEC conventions for continuation cards are used.

	6.  Only the label of a FORMAT line (and no continuation lines)
	    is processed.

	7.  The input file may contain up to 999999 variable length lines.

	8.  All output items are given only to 15 characters.  An asterisk
	    or # sign symbol appearing after the 15th character indicates
	    the item is too long.  When items are too long the 16th
	    character is lost and the remainder of the item will be
	    processed to find the next item.

	9.  The input Hollerith string to the IRAD50 subroutine will
	    probably be broken into number and symbol items.

	10. The CROCK commands EOLCHAR, COMMANDC, CMODE, NOCMODE have been
	    implemented.  & has been added to the characters that can start
	    a symbol.  & can only start a CROCK symbol.  & symbols can be
	    concatenated to integer strings (e.g.  &P100.21).  The underscore
	    character is not allowed in CROCK symbols.

	11. An easy way to generate cross reference maps for languages other
	    than FORTRAN is to create an appropriate sorted RESERVED.DAT
	    and to put a line of text at the beginning of the input file
	    that contains the following CROCK command line

		$ CMODE

!
!***END