 Usage:  z = paf (x, ind)  
 
 Input:

  x                      d1 x ... x dn array 
                         
  ind                    d1 x 1 vector 
                         
 Output:

  z                      k x d2 x ... x dn array where k=sum_i ind_i 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
