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