1      subroutine argos_diana_tag(sgmnam,x)
2c
3c $Id$
4c
5      implicit none
6c
7#include "argos_diana_common.fh"
8#include "mafdecls.fh"
9c
10      character*16 sgmnam(nsa)
11      real*8 x(nsa,3)
12c
13      call argos_diana_settag(sgmnam,byte_mb(i_tag),dbl_mb(i_val),x)
14c
15      return
16      end
17