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