      common /systerarr/ ihkl(20000), fc(20000), ip(20000),
     *                   itmp(20000), ftmp(20000)
      common /systervar/ isize, nfcf, wfac1, wfac2, scale, icent, isyst
      common /systerchr/ line
      character          line*80
