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

      subroutine f2pywrapenorm (enormf2pywrap, n, x)
      external enorm
      integer n
      real x(n)
      real enormf2pywrap, enorm
      enormf2pywrap = enorm(n, x)
      end


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


      subroutine f2pywrapcdtr1 (cdtr1f2pywrap, depth)
      external cdtr1
      real depth
      real cdtr1f2pywrap, cdtr1
      cdtr1f2pywrap = cdtr1(depth)
      end


      subroutine f2pywrapczte1 (czte1f2pywrap, zlag, tr)
      external czte1
      real zlag
      real tr
      real czte1f2pywrap, czte1
      czte1f2pywrap = czte1(zlag, tr)
      end


      subroutine f2pywrapcj_ion (cj_ionf2pywrap, theta, psi)
      external cj_ion
      real theta
      real psi
      complex cj_ionf2pywrap, cj_ion
      cj_ionf2pywrap = cj_ion(theta, psi)
      end


      subroutine f2pywrapcj_electron (cj_electronf2pywrap, theta, 
     &phi, psi, alpha)
      external cj_electron
      real theta
      real phi
      real psi
      real alpha
      complex cj_electronf2pywrap, cj_electron
      cj_electronf2pywrap = cj_electron(theta, phi, psi, alpha)
      end


      subroutine f2pywrapy_ion (y_ionf2pywrap, theta, psi)
      external y_ion
      real theta
      real psi
      complex y_ionf2pywrap, y_ion
      y_ionf2pywrap = y_ion(theta, psi)
      end


      subroutine f2pywrapy_electron (y_electronf2pywrap, theta, ph
     &i, psi, alpha)
      external y_electron
      real theta
      real phi
      real psi
      real alpha
      complex y_electronf2pywrap, y_electron
      y_electronf2pywrap = y_electron(theta, phi, psi, alpha)
      end


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


      subroutine f2pywrapatanh (atanhf2pywrap, x)
      external atanh
      real x
      real atanhf2pywrap, atanh
      atanhf2pywrap = atanh(x)
      end


      subroutine f2pywrapbvalue (bvaluef2pywrap, t, bcoef, n, k, x
     &, jderiv)
      external bvalue
      integer n
      integer k
      real x
      integer jderiv
      real t(n+k)
      real bcoef(n)
      real bvaluef2pywrap, bvalue
      bvaluef2pywrap = bvalue(t, bcoef, n, k, x, jderiv)
      end


      subroutine f2pywrapr1mach (r1machf2pywrap, i)
      external r1mach
      integer i
      real r1machf2pywrap, r1mach
      r1machf2pywrap = r1mach(i)
      end


      subroutine f2pyinitchisq(setupfunc)
      external setupfunc
      real chi2
      common /chisq/ chi2
      call setupfunc(chi2)
      end

      subroutine f2pyinitfpa(setupfunc)
      external setupfunc
      real densp(91)
      real tep(91)
      real trp(91)
      real tip(91)
      real hfp(91)
      real hefp(91)
      real altp(91)
      real r0
      real dr
      real wl
      common /fpa/ densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl
      call setupfunc(densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl)
      end

      subroutine f2pyinitdata(setupfunc)
      external setupfunc
      real plag(16,91)
      real plag_errors(16,91)
      common /data/ plag,plag_errors
      call setupfunc(plag,plag_errors)
      end

      subroutine f2pyinitsys(setupfunc)
      external setupfunc
      real sconst
      common /sys/ sconst
      call setupfunc(sconst)
      end

      subroutine f2pyiniterrs(setupfunc)
      external setupfunc
      real edensp(91)
      real etep(91)
      real etip(91)
      real ehfp(91)
      real ehefp(91)
      common /errs/ edensp,etep,etip,ehfp,ehefp
      call setupfunc(edensp,etep,etip,ehfp,ehefp)
      end

      subroutine f2pyinitmag(setupfunc)
      external setupfunc
      real bfld_prof(85)
      real alpha_prof(85)
      common /mag/ bfld_prof,alpha_prof
      call setupfunc(bfld_prof,alpha_prof)
      end

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

      subroutine f2pyinitutime(setupfunc)
      external setupfunc
      real uttime
      common /utime/ uttime
      call setupfunc(uttime)
      end

      subroutine f2pyinitspline(setupfunc)
      external setupfunc
      real ta(34)
      real bcoef(30,5)
      common /spline/ ta,bcoef
      call setupfunc(ta,bcoef)
      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 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

      subroutine f2pyinitd8mach(setupfunc)
      external setupfunc
      integer cray1
      common /d8mach/ cray1
      call setupfunc(cray1)
      end