$set2801
$assign w2801O.dat for005
$assign sys$output for006
$assign rr2801O.dat for007
$run cray:sigmaQ