1      logical function argos_diana_getcard()
2c
3      implicit none
4c
5#include "argos_diana_common.fh"
6#include "argos_diana_params.fh"
7#include "global.fh"
8#include "mafdecls.fh"
9#include "msgids.fh"
10#include "util.fh"
11c
12      if(me.eq.0) then
13      read(lfncmd,1000,end=9999) card
14 1000 format(a)
15      endif
16c
17      argos_diana_getcard=.true.
18      return
19c
20 9999 continue
21      argos_diana_getcard=.false.
22c
23      return
24      end
25c $Id$
26