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