full_profile_profile-f2pywrappers.f
240 lines
| 5.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 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 | ||||
