$set2801
$assign w2801E.dat for005
$assign sys$output for006
$assign rr2801E.dat for007
$run cray:sigmaQ