1      subroutine argos_diana_rdssl()
2c
3      implicit none
4c
5#include "argos_diana_common.fh"
6#include "mafdecls.fh"
7c
8      filsel=card(8:80)
9      call argos_diana_readsel(lfnsel,filsel,int_mb(i_wsel),
10     + int_mb(i_ssel))
11      call argos_diana_wcount(int_mb(i_wsel),int_mb(i_ndxw))
12c
13      return
14      end
15c $Id$
16