More optimization

• Some fixes and optimization.

juno_samples/rodinia/srad/src/cpu.sch

@@ -35,7 +35,12 @@ simpl!(*);
 slf(*);
 simpl!(*);
 
-fork-split(*);
-unforkify(*);
+fork-tile[32, 0, false, false](loop2);
+let split = fork-split(loop2);
+let loop2_body = outline(split.srad_1.fj1);
+simpl!(loop2, loop2_body);
+
+fork-split(extract, compress, loop1, loop2_body, loop3);
+unforkify(extract, compress, loop1, loop2_body, loop3);
 
 gcm(*);