1      subroutine argos_diana_rama()
2c
3c $Id$
4c
5      implicit none
6c
7#include "argos_diana_params.fh"
8#include "argos_diana_common.fh"
9#include "global.fh"
10#include "mafdecls.fh"
11#include "msgids.fh"
12c
13      character*255 string
14      integer ilt,iht,jlt,jht,ndxt,ldt
15c
16      string=card(8:80)
17      strram=string
18c
19c     get access to local trajectory and time
20c
21      call ga_distribution(ga_trj,me,il,ih,jl,jh)
22      call ga_access(ga_trj,il,ih,jl,jh,ndx,ld)
23      call ga_distribution(ga_trt,me,ilt,iht,jlt,jht)
24      call ga_access(ga_trt,ilt,iht,jlt,jht,ndxt,ldt)
25c
26      call argos_diana_rama1(int_mb(i_iram),dbl_mb(ndx),dbl_mb(ndxt))
27c
28      return
29      end
30