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