1f (n, a)
2     int n;
3     double a[];
4{
5   double b[51];
6   int i, j;
7
8   i = 0;
9
10   for (j = n - 1; j > 0; j--)
11     b[i++] = 0;
12
13   if (b[0] > b[i - 1])
14     a[i] = b[i - 1];
15}
16