; 4-FEB-76
; FOLLOWING IS A LISTING OF VARIOUS UTILITY ROUTINES
; CALLABLE BY FORTRAN MAIN PROGRAMS.
; ALL BUT THE FIRST ARE WRITTEN IN MACRO.
; THE MACRO ROUTINES DO NOT SAVE ANY REGISTERS EXCEPT
; R5 (USED TO PASS ARGUMENTS).
; THIS DOES NOT DISTURB A FORTRAN CALLING PROGRAM,
; BUT A MACRO PROGRAM USING THESE ROUTINES MUST
; SAVE ANY REGISTERS IT NEEDS.
; ROUTINES DEALING WITH FLOATING POINT NUMBERS USE THE FPP OF THE PDP-11/45
; AUTHOR OF PACKAGE:
;	LARRY SIMPSON
;	DEPT. OF MEDICAL PHYSICS
;	MICHAEL REESE MEDICAL CENTER
;	CHICAGO, ILL.  60616
;	(312) 791-2515
QUE LP:=FORUTL.QUE
;
QUE LP:=FLOPEN.LST
; 'FOR' ROUTINE TO SOLICIT FILE NAME AND PREPARE FOR OPEN
;
QUE LP:=STRCMP.LST
; MACRO ROUTINE TO COMPARE STRINGS FOR EQUALITY
;
QUE LP:=MOCNVT.LST
; MACRO ROUTINE CONVERTS MONTH NUMBER TO ASCII AND VICE VERSA
;
QUE LP:=STRCON.LST
; MACRO ROUTINE TO CONCATENATE ANY NUMBER OF STRINGS
;
QUE LP:=MAXINT.LST
; MACRO ROUTINE TO FIND MAX OF AN INTEGER ARRAY
;
QUE LP:=AMAXFA.LST
; MACRO ROUTINE TO FIND MAX OF A FLOATING ARRAY
;
QUE LP:=CHRCNT.LST
; MACRO ROUTINE TO COUNT # OF GIVEN CHAR. IN ASCII ARRAY
;
QUE LP:=FLINTP.LST
; MACRO ROUTINE TO PERFORM FLOATING LINEAR INTERPOLATION
;
QUE LP:=LNFILL.LST
; MACRO ROUTINE TO FILL AN ASCII ARRAY WITH A GIVEN CHARACTER
;
QUE LP:=TRNCAT.LST
; MACRO ROUTINE TO GIVE POSITION OF LAST NON-BLANK CHAR IN ASCII ARRAY
;
QUE LP:=LUNDLT.LST
; MACRO ROUTINE TO DELETE AN OPEN FILE ON A GIVEN LUN
;
QUE LP:=ATTDET.LST
; MACRO ROUTINE TO ATTACH AND DETACH A DEVICE