1 subroutine argos_diana_puttrj() 2c 3c read the trajectory 4c ------------------- 5c 6 implicit none 7c 8#include "argos_diana_common.fh" 9#include "argos_diana_params.fh" 10#include "global.fh" 11#include "mafdecls.fh" 12#include "rtdb.fh" 13#include "msgids.fh" 14#include "util.fh" 15c 16 return 17 end 18c $Id$ 19