parallelize loop2 in srad

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(*);

juno_samples/rodinia/srad/src/srad.jn

@@ -51,7 +51,7 @@ fn srad<nrows, ncols: usize>(
     @scratch let dE : f32[ncols, nrows];
     @scratch let dW : f32[ncols, nrows];
 
-    let c : f32[ncols, nrows];
+    @scratch let c : f32[ncols, nrows];
 
     @loop2 for j in 0..ncols {
       for i in 0..nrows {