schain Files · schainf/Ffiles/fitacf_acf2-f2pywrappers.f

Added ToLilBlock class from Roberto

Christianpl - - Load All Authors

File last commit:

r1774:e7bb496918b2


                r1789:2739006ee497

isr_v2

Download file

             fitacf_acf2-f2pywrappers.f
        
                    37 lines
            
             | 862 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / schainf / Ffiles / fitacf_acf2-f2pywrappers.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      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 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

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

				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 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