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