----------------------------------------------------
$Id: rwaspc.for 2.600 1998/01/21 21:53:30 BenH Exp BenH $
----------------------------------------------------
DATE : 80417