1 subroutine argos_zinit(iwz,isz) 2c 3 implicit none 4c 5#include "argos.fh" 6c 7 integer iwz(mwm),isz(msa) 8c 9 integer i 10c 11 do 1 i=1,mwm 12 iwz(i)=0 13 1 continue 14c 15 do 2 i=1,msa 16 isz(i)=0 17 2 continue 18c 19 return 20 end 21c $Id$ 22