integer MAXFIELDS
      integer MAXATOMS
      integer MAXRAD
      parameter (MAXFIELDS=10)
      parameter (MAXRAD=1000)
      parameter (MAXATOMS=100000)

      integer included(MAXATOMS)
      integer ltoken(MAXFIELDS),ntokens,nrad,n_atoms

      character*3 res_type(MAXATOMS)
      character*1 chain(MAXATOMS),alt(MAXATOMS)
      character*4 res_name(MAXATOMS)
      character*4 atom_name(MAXATOMS)
      character*4 rad_res_type(MAXRAD),rad_atom_name(MAXRAD)
      character*80 ctoken1(MAXFIELDS)

      real*4 rad(MAXRAD),x(MAXATOMS),y(MAXATOMS),z(MAXATOMS)
      real*4 rad_atom(MAXATOMS)

      common /bl2/ctoken1,ltoken,ntokens
      common /bl1/ rad_res_type,rad_atom_name,nrad,rad,alt
      common /bl3/x,y,z,rad_atom,chain,res_name,atom_name,
     .            n_atoms,res_type
      common /bl14/ included