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