1      real*8 function argos_cafe_am(ia,wgt)
2c
3      implicit none
4c
5#include "argos_cafe_common.fh"
6c
7      integer ia
8      real*8 wgt(mat,mset)
9c
10      argos_cafe_am=wgt(ia,iset)
11c
12      return
13      end
14c $Id$
15