RAT.FTN/-AU=RAT.FOR
-3,,/;APR2RLM/
C	**** CORRECTION HISTORY ****
C
C	RLM01 - AUG/78
C  USE ASNLUN SO RATFOR WILL WORK ACROSS DEVICES.
C
-313,314,/;APR2RLM/
	CALL ASNLUN(LUNIN,'SY',0)		! RLM01
	CALL ASNLUN(LUNOUT,'SY',0)		! RLM01
	CALL ASNLUN(LUNLST,'SY',0)		! RLM01
	CLOSE(UNIT=LUNLST)			! RLM01
	CLOSE(UNIT=LUNIN)			! RLM01
/