c
c     header information
      character*70   title
      integer        ipar,niso,maxr,sumrec
      common /head1/ title
      common /head2/ ipar,niso,maxr,sumrec