COMMON /CSUBS/ BPOS(MAXSUBS), EPOS(MAXSUBS)
   INTEGER BPOS%%# BEGINNING OF PARTIAL MATCH
   INTEGER EPOS%%# END OF CORRESPONDING PARTIAL MATCH
