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