fitacf_fit_short-f2pywrappers.f
63 lines
| 1.4 KiB
| text/x-fortran
|
FortranFixedLexer
| r1774 | 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 | ||||
