1      subroutine argos_cafe_parseq(id,idp)
2c
3c     argos_cafe_parseq
4c
5#include "argos_cafe_common.fh"
6#include "mafdecls.fh"
7c
8      integer id,idp
9c
10      int_mb(i_mprot+id-1)=idp
11c
12      return
13      end
14c $Id$
15