c     information needed for spectral computations

      parameter(nimax=10) 
      integer nion,wi(nimax)
      real te,ti(nimax),fi(nimax),ven,vin(nimax),alpha,dens,bfld,ak
      common /spec/te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak