1      subroutine argos_cafe_fix(lfnout,lfn,numfix,iwgmn,iwdt,numw,
2     + isgan,isatt,isdt,issgm,nums,xwm,xs)
3c
4      implicit none
5c
6#include "argos_cafe_common.fh"
7#include "mafdecls.fh"
8c
9      integer lfnout,lfn,numfix,numw,nums
10      integer iwdt(mwm),iwgmn(mwm),isgan(msa),isatt(msa),isdt(msa)
11      integer issgm(msa)
12      real*8 xwm(mwm,3),xs(msa,3)
13c
14      integer i_temp,l_temp
15c
16      if(.not.ma_push_get(mt_int,nsatot,'itemp',l_temp,i_temp))
17     + call md_abort
18     + ('Unable to allocate temp array in argos_cafe_fix',0)
19c
20      call argos_cafe_fix_sw(lfnout,lfn,numfix,iwgmn,iwdt,numw,
21     + isgan,isatt,isdt,issgm,nums,byte_mb(i_snam),xwm,xs,
22     + int_mb(i_ibnd(2)),mbt(2),numb(2),int_mb(i_temp))
23c
24      if(.not.ma_pop_stack(l_temp))
25     + call md_abort
26     + ('Unable to deallocate temp array in argos_cafe_fix',0)
27      return
28      end
29c $Id$
30