! 30Nov1999 fgtok -s r8_precision.sub r8bloat_names.sub "r8con_incl.csh conversion"
! include file for low level BLOAT routines -- size of Fourier transform
!
      integer ntk,ntk2
      parameter (ntk=128,ntk2=(ntk/2 + 1))
