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