01 sub standarization { # was standarization(void)
02   my(i,j,k);
03   for (i=1; i<=10; i++) # where does "for" end?
04     if (d[i][0]!=0)     # where does "if" end?
05       for (k=1; k<24; k++)
06       {
07         d[0][k] += d[i][k];
08         d[i][k] /= d[i][0];
09       }  
         # end of "for" statement on line 05
       # end of "if" on line 04
    # end of "for" on line 03
10
11   for (i=9; i<=18; i++) # where does "for" end?
12     if (psb[i][0]!=0)   # where does "if" end?
13       for (k=11; k<=BUST; k++)
14       { # new
15         psb[i][k] /= psb[i][0];
16       } # new
       # end of "if" on line 12
    # end of "for" on line 11
17
18   for (j=1; j<=10; j++) # where does "for" end?
19     if (s[j][0][0]!=0) {
20       for (i=12; i<=18; i++) {
21         if (s[j][i][0]!=0) # where does "if" end?
22           for (k=12; k<=BUST; k++)
23           { # new
24             s[j][i][k] /= s[j][i][0];
25           } # new
           # end of "if" on line 21
26
27         if (s[j+10][i][0]!=0) # where does "if" end?
28           for (k=12; k<=BUST; k++)
29           { # new
30             s[j+10][i][k] /= s[j+10][i][0];
31           } # new
           # end of "if" on line 27
32         s[j][i][0]    /= s[j][0][0];
33         s[j][i][1]    /= s[j][0][0];
34         s[j+10][i][0] /= s[j][0][0];
35         s[j+10][i][1] /= s[j][0][0];
36       } # end "for" line 20
37
38       for (k=17; k<=BUST; k++) {
39         s[j][0][k]    /= s[j][0][0];
40         s[j+10][0][k] /= s[j][0][0];
41       }
42     } # end of "if" line 19
43 } # end of sub