SUBROUTINE ASGSCR(IUNIT,IBLOCK)
C..
C..	THIS ROUTINE OPENS A SCRATCH UNIT
C..
	OPEN(UNIT=IUNIT,TYPE='SCRATCH',CARRIAGECONTROL='LIST',ERR=99)
	RETURN
99	TYPE 199,IUNIT
199	FORMAT('0*** ERROR ON ASGSCR UNIT ',I3,'***')
	RETURN
	END
	SUBROUTINE FREE(IUNIT,OPTION)
C..
C..	THIS ROUTINE CLOSES AND DELETES A FILE
C..
	CLOSE(UNIT=IUNIT,DISPOSE='DELETE',ERR=99)
	RETURN
99	TYPE 199,IUNIT
199	FORMAT('0*** ERROR ON FREE UNIT ',I3,'***')
	RETURN
	END