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