common /struct/ cart_base(3,maxres_base,maxseq),str_nam(maxseq),
     &     nres_base(3,maxseq),nseq
      character*8 str_nam