C     -*- fortran -*-
C     This file is autogenerated with f2py (version:2)
C     It contains Fortran 77 wrappers to fortran functions.

      subroutine f2pywrapspect1 (spect1f2pywrap, omega)
      external spect1
      real omega
      real spect1f2pywrap, spect1
      spect1f2pywrap = spect1(omega)
      end


      subroutine f2pywrapspmpar (spmparf2pywrap, i)
      external spmpar
      integer i
      real spmparf2pywrap, spmpar
      spmparf2pywrap = spmpar(i)
      end


      subroutine f2pyinitspec(setupfunc)
      external setupfunc
      real te
      real ti(10)
      real fi(10)
      real ven
      real vin(10)
      real alpha
      real dens
      real bfld
      integer nion
      integer wi(10)
      real ak
      common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
      call setupfunc(te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak)
      end

      subroutine f2pyinitmode(setupfunc)
      external setupfunc
      integer imode
      common /mode/ imode
      call setupfunc(imode)
      end

      subroutine f2pyinitfitter(setupfunc)
      external setupfunc
      real tau(100)
      real rho(100)
      real sigma2(100)
      real params(10)
      integer ifit(10)
      common /fitter/ tau,rho,sigma2,params,ifit
      call setupfunc(tau,rho,sigma2,params,ifit)
      end

      subroutine f2pyinittrans(setupfunc)
      external setupfunc
      real ev(10000)
      common /trans/ ev
      call setupfunc(ev)
      end