1      subroutine argos_cafe_index(ip,np)
2c
3      implicit none
4c
5      integer np
6      integer ip(0:np,2)
7c
8      integer i,j
9c
10      ip(0,1)=0
11      do 1 i=1,np
12      j=iabs(ip(i,1))
13      if(j.gt.0) ip(j,1)=i
14    1 continue
15      do 2 i=1,np
16      if(ip(i,1).lt.0) ip(i,1)=ip(i-1,1)
17    2 continue
18c
19      return
20      end
21c $Id$
22