mirror of
https://github.com/Cantera/cantera.git
synced 2025-02-25 18:55:29 -06:00
*** empty log message ***
This commit is contained in:
Dave Goodwin
@@ -219,6 +219,7 @@ endif
|
||||
@INSTALL@ tools/src/finish_install.py tools/bin
|
||||
(PYTHONPATH=''; @PYTHON_CMD@ tools/bin/finish_install.py @prefix@ @PYTHON_CMD@)
|
||||
chmod +x @ct_bindir@/ctnew
|
||||
cp -f @homedir@/setup_cantera @ct_bindir@
|
||||
else
|
||||
cd Cantera/fortran/f77demos; sed s'/isentropic/ctlib/g' isentropic.dsp > ctlib.dsp
|
||||
@INSTALL@ Cantera/fortran/f77demos/*.dsp @ct_demodir@/f77
|
||||
|
||||
@@ -1,241 +0,0 @@
|
||||
! ------------------------------------------------------------------------
|
||||
!
|
||||
! Copyright 2002 California Institute of Technology
|
||||
!
|
||||
! Version 1.2.0.1
|
||||
! Mon Jan 7 07:13:18 2002
|
||||
! This file generated automatically.
|
||||
! Fortran 90 module implementing Cantera class FlowDev
|
||||
! ------------------------------------------------------------------------
|
||||
module ctfdev
|
||||
use cttypes
|
||||
|
||||
use ctreactor
|
||||
interface
|
||||
|
||||
integer function cfdev_newmfc()
|
||||
!DEC$ attributes c, reference :: cfdev_newmfc
|
||||
!DEC$ attributes alias:'_cfdev_newmfc_' :: cfdev_newmfc
|
||||
!DEC$ attributes dllimport :: cfdev_newmfc
|
||||
end function
|
||||
|
||||
integer function cfdev_newpc()
|
||||
!DEC$ attributes c, reference :: cfdev_newpc
|
||||
!DEC$ attributes alias:'_cfdev_newpc_' :: cfdev_newpc
|
||||
!DEC$ attributes dllimport :: cfdev_newpc
|
||||
end function
|
||||
|
||||
subroutine cfdev_delete(i)
|
||||
!DEC$ attributes c, reference :: cfdev_delete
|
||||
!DEC$ attributes alias:'_cfdev_delete_' :: cfdev_delete
|
||||
!DEC$ attributes dllimport :: cfdev_delete
|
||||
integer, intent(in) :: i
|
||||
end subroutine
|
||||
|
||||
subroutine cfdev_setspnt(flowDev, setpnt)
|
||||
!DEC$ attributes c, reference :: cfdev_setspnt
|
||||
!DEC$ attributes alias: '_cfdev_setspnt_' :: cfdev_setspnt
|
||||
!DEC$ attributes dllimport :: cfdev_setspnt
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
double precision, intent(in) :: setpnt
|
||||
end subroutine
|
||||
|
||||
|
||||
subroutine cfdev_install(flowDev_hndl, up_hndl, down_hndl)
|
||||
!DEC$ attributes c, reference :: cfdev_install
|
||||
!DEC$ attributes alias: '_cfdev_install_' :: cfdev_install
|
||||
!DEC$ attributes dllimport :: cfdev_install
|
||||
integer, intent(inout) :: flowDev_hndl
|
||||
integer, intent(inout) :: up_hndl
|
||||
integer, intent(inout) :: down_hndl
|
||||
end subroutine
|
||||
type(Reactor) function cfdev_upstream(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_upstream
|
||||
!DEC$ attributes alias: '_cfdev_upstream_' :: cfdev_upstream
|
||||
!DEC$ attributes dllimport :: cfdev_upstream
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end function
|
||||
|
||||
type(Reactor) function cfdev_downstream(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_downstream
|
||||
!DEC$ attributes alias: '_cfdev_downstream_' :: cfdev_downstream
|
||||
!DEC$ attributes dllimport :: cfdev_downstream
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end function
|
||||
|
||||
double precision function cfdev_mfrate(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_mfrate
|
||||
!DEC$ attributes alias: '_cfdev_mfrate_' :: cfdev_mfrate
|
||||
!DEC$ attributes dllimport :: cfdev_mfrate
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end function
|
||||
|
||||
subroutine cfdev_update(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_update
|
||||
!DEC$ attributes alias: '_cfdev_update_' :: cfdev_update
|
||||
!DEC$ attributes dllimport :: cfdev_update
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end subroutine
|
||||
|
||||
subroutine cfdev_reset(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_reset
|
||||
!DEC$ attributes alias: '_cfdev_reset_' :: cfdev_reset
|
||||
!DEC$ attributes dllimport :: cfdev_reset
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end subroutine
|
||||
|
||||
integer function cfdev_ready(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_ready
|
||||
!DEC$ attributes alias: '_cfdev_ready_' :: cfdev_ready
|
||||
!DEC$ attributes dllimport :: cfdev_ready
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end function
|
||||
|
||||
|
||||
integer function cfdev_setGains(flowDev_hndl, n, gains)
|
||||
!DEC$ attributes c, reference :: cfdev_setGains
|
||||
!DEC$ attributes alias: '_cfdev_setgains_' :: cfdev_setGains
|
||||
!DEC$ attributes dllimport :: cfdev_setGains
|
||||
integer, intent(inout) :: flowDev_hndl
|
||||
integer, intent(in) :: n
|
||||
double precision, intent(in) :: gains(n)
|
||||
end function
|
||||
|
||||
integer function cfdev_getGains(flowDev_hndl, n, gains)
|
||||
!DEC$ attributes c, reference :: cfdev_getGains
|
||||
!DEC$ attributes alias: '_cfdev_getgains_' :: cfdev_getGains
|
||||
!DEC$ attributes dllimport :: cfdev_getGains
|
||||
integer, intent(inout) :: flowDev_hndl
|
||||
integer, intent(in) :: n
|
||||
double precision, intent(out) :: gains(n)
|
||||
end function
|
||||
double precision function cfdev_maxError(flowDev)
|
||||
!DEC$ attributes c, reference :: cfdev_maxError
|
||||
!DEC$ attributes alias: '_cfdev_maxerror_' :: cfdev_maxError
|
||||
!DEC$ attributes dllimport :: cfdev_maxError
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
end function
|
||||
|
||||
end interface
|
||||
integer, parameter :: MassFlowController_Type = constant: requested text line not found.D
|
||||
integer, parameter :: PressureController_Type = constant: requested text line not found.D
|
||||
contains
|
||||
|
||||
type(Flowdev) function MassFlowController()
|
||||
type(Flowdev) mfc
|
||||
mfc%hndl = cfdev_newmfc()
|
||||
mfc%type = MassFlowController_Type;
|
||||
MassFlowController = mfc
|
||||
return
|
||||
end function
|
||||
|
||||
type(Flowdev) function PressureController()
|
||||
type(Flowdev) pc
|
||||
pc%hndl = cfdev_newpc()
|
||||
pc%type = PressureController_Type;
|
||||
PressureController = pc
|
||||
return
|
||||
end function
|
||||
|
||||
subroutine fdev_copy(dest, src)
|
||||
type (Flowdev), intent(out) :: dest
|
||||
type (Flowdev), intent(in) :: src
|
||||
call reac_copy(dest%upstream, src%upstream)
|
||||
call reac_copy(dest%downstream, src%downstream)
|
||||
dest%hndl = src%hndl
|
||||
dest%type = src%type
|
||||
end subroutine
|
||||
!
|
||||
! setSetpoint
|
||||
!
|
||||
subroutine fdev_setspnt(self, flowDev, setpnt)
|
||||
type(FlowDev), intent(inout) :: self
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
double precision, intent(in) :: setpnt
|
||||
call cfdev_setspnt(self%hndl, flowDev, setpnt)
|
||||
return
|
||||
end subroutine
|
||||
|
||||
subroutine fdev_install(object, upstream, downstream)
|
||||
type(Flowdev), intent(inout) :: object
|
||||
type(Reactor), intent(inout) :: upstream
|
||||
type(Reactor), intent(inout) :: downstream
|
||||
call cfdev_install(object%hndl, upstream%hndl,
|
||||
& downstream%hndl)
|
||||
call reac_copy(object%upstream, upstream)
|
||||
call reac_copy(object%downstream, downstream)
|
||||
return
|
||||
end subroutine
|
||||
|
||||
type(Reactor) function fdev_upstream(object)
|
||||
type(Flowdev), intent(in) :: object
|
||||
call reac_copy(fdev_upstream, object%upstream)
|
||||
end function
|
||||
|
||||
type(Reactor) function fdev_downstream(object)
|
||||
type(Flowdev), intent(in) :: object
|
||||
call reac_copy(fdev_downstream, object%downstream)
|
||||
end function
|
||||
!
|
||||
! massFlowRate
|
||||
!
|
||||
double precision function fdev_mfrate(self, flowDev)
|
||||
type(FlowDev), intent(inout) :: self
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
fdev_mfrate=cfdev_mfrate(self%hndl, flowDev)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! update
|
||||
!
|
||||
subroutine fdev_update(self, flowDev)
|
||||
type(FlowDev), intent(inout) :: self
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
call cfdev_update(self%hndl, flowDev)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! reset
|
||||
!
|
||||
subroutine fdev_reset(self, flowDev)
|
||||
type(FlowDev), intent(inout) :: self
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
call cfdev_reset(self%hndl, flowDev)
|
||||
return
|
||||
end subroutine
|
||||
|
||||
logical function fdev_ready(object)
|
||||
type(Flowdev), intent(inout) :: object
|
||||
if (cfdev_ready(object%hndl) .gt. 0) then
|
||||
fdev_ready = .true.
|
||||
else
|
||||
fdev_ready = .false.
|
||||
end if
|
||||
return
|
||||
end function
|
||||
|
||||
subroutine fdev_setGains(flowDev, gains)
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
double precision, intent(in) :: gains(4)
|
||||
iok = cfdev_setGains(flowDev%hndl, 4, gains)
|
||||
if (iok .eq. 0) write(*,*) 'error setting gains!'
|
||||
return
|
||||
end subroutine
|
||||
|
||||
subroutine fdev_getGains(flowDev, gains)
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
double precision, intent(out) :: gains(4)
|
||||
iok = cfdev_getGains(flowDev%hndl, 4, gains)
|
||||
if (iok .eq. 0) write(*,*) 'error getting gains!'
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! maxError
|
||||
!
|
||||
double precision function fdev_maxError(self, flowDev)
|
||||
type(FlowDev), intent(inout) :: self
|
||||
type(Flowdev), intent(inout) :: flowDev
|
||||
fdev_maxError=cfdev_maxError(self%hndl, flowDev)
|
||||
return
|
||||
end function
|
||||
end module
|
||||
@@ -1,205 +0,0 @@
|
||||
module ctkinetics
|
||||
|
||||
use ctmixture
|
||||
|
||||
|
||||
use ctmixture
|
||||
interface
|
||||
subroutine ckin_getrxnstr(mix_hndl, i, rxnString)
|
||||
!DEC$ attributes c, reference :: ckin_getrxnstr
|
||||
!DEC$ attributes alias: '_ckin_getrxnstr_' :: ckin_getrxnstr
|
||||
!DEC$ attributes dllimport :: ckin_getrxnstr
|
||||
integer, intent(in) :: mix_hndl
|
||||
integer, intent(in) :: i
|
||||
character*(*), intent(out) :: rxnString
|
||||
end subroutine
|
||||
|
||||
double precision function ckin_rstoich(mix_hndl, k, i)
|
||||
!DEC$ attributes c, reference :: ckin_rstoich
|
||||
!DEC$ attributes alias: '_ckin_rstoich_' :: ckin_rstoich
|
||||
!DEC$ attributes dllimport :: ckin_rstoich
|
||||
integer, intent(in) :: mix_hndl
|
||||
integer, intent(in) :: k
|
||||
integer, intent(in) :: i
|
||||
end function
|
||||
|
||||
double precision function ckin_pstoich(mix_hndl, k, i)
|
||||
!DEC$ attributes c, reference :: ckin_pstoich
|
||||
!DEC$ attributes alias: '_ckin_pstoich_' :: ckin_pstoich
|
||||
!DEC$ attributes dllimport :: ckin_pstoich
|
||||
integer, intent(in) :: mix_hndl
|
||||
integer, intent(in) :: k
|
||||
integer, intent(in) :: i
|
||||
end function
|
||||
|
||||
double precision function ckin_nstoich(mix_hndl, k, i)
|
||||
!DEC$ attributes c, reference :: ckin_nstoich
|
||||
!DEC$ attributes alias: '_ckin_nstoich_' :: ckin_nstoich
|
||||
!DEC$ attributes dllimport :: ckin_nstoich
|
||||
integer, intent(in) :: mix_hndl
|
||||
integer, intent(in) :: k
|
||||
integer, intent(in) :: i
|
||||
end function
|
||||
|
||||
subroutine ckin_get_fwdrop(mix_hndl, fwdrop)
|
||||
!DEC$ attributes c, reference :: ckin_get_fwdrop
|
||||
!DEC$ attributes alias: '_ckin_get_fwdrop_' :: ckin_get_fwdrop
|
||||
!DEC$ attributes dllimport :: ckin_get_fwdrop
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: fwdrop(*)
|
||||
end subroutine
|
||||
|
||||
subroutine ckin_get_revrop(mix_hndl, revrop)
|
||||
!DEC$ attributes c, reference :: ckin_get_revrop
|
||||
!DEC$ attributes alias: '_ckin_get_revrop_' :: ckin_get_revrop
|
||||
!DEC$ attributes dllimport :: ckin_get_revrop
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: revrop(*)
|
||||
end subroutine
|
||||
|
||||
subroutine ckin_get_netrop(mix_hndl, netrop)
|
||||
!DEC$ attributes c, reference :: ckin_get_netrop
|
||||
!DEC$ attributes alias: '_ckin_get_netrop_' :: ckin_get_netrop
|
||||
!DEC$ attributes dllimport :: ckin_get_netrop
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: netrop(*)
|
||||
end subroutine
|
||||
|
||||
subroutine ckin_get_kc(mix_hndl, kc)
|
||||
!DEC$ attributes c, reference :: ckin_get_kc
|
||||
!DEC$ attributes alias: '_ckin_get_kc_' :: ckin_get_kc
|
||||
!DEC$ attributes dllimport :: ckin_get_kc
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: kc(*)
|
||||
end subroutine
|
||||
|
||||
subroutine ckin_get_cdot(mix_hndl, cdot)
|
||||
!DEC$ attributes c, reference :: ckin_get_cdot
|
||||
!DEC$ attributes alias: '_ckin_get_cdot_' :: ckin_get_cdot
|
||||
!DEC$ attributes dllimport :: ckin_get_cdot
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: cdot(*)
|
||||
end subroutine
|
||||
|
||||
subroutine ckin_get_ddot(mix_hndl, ddot)
|
||||
!DEC$ attributes c, reference :: ckin_get_ddot
|
||||
!DEC$ attributes alias: '_ckin_get_ddot_' :: ckin_get_ddot
|
||||
!DEC$ attributes dllimport :: ckin_get_ddot
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: ddot(*)
|
||||
end subroutine
|
||||
|
||||
subroutine ckin_get_wdot(mix_hndl, wdot)
|
||||
!DEC$ attributes c, reference :: ckin_get_wdot
|
||||
!DEC$ attributes alias: '_ckin_get_wdot_' :: ckin_get_wdot
|
||||
!DEC$ attributes dllimport :: ckin_get_wdot
|
||||
integer, intent(in) :: mix_hndl
|
||||
double precision, intent(out) :: wdot(*)
|
||||
end subroutine
|
||||
|
||||
end interface
|
||||
contains
|
||||
!
|
||||
! getReactionString
|
||||
!
|
||||
subroutine kin_getrxnstr(mix, i, rxnString)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
integer, intent(in) :: i
|
||||
character*(*), intent(out) :: rxnString
|
||||
call ckin_getrxnstr(mix%hndl, i, rxnString)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! reactantStoichCoeff
|
||||
!
|
||||
double precision function kin_rstoich(mix, k, i)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
integer, intent(in) :: k
|
||||
integer, intent(in) :: i
|
||||
kin_rstoich=ckin_rstoich(mix%hndl, k, i)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! productStoichCoeff
|
||||
!
|
||||
double precision function kin_pstoich(mix, k, i)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
integer, intent(in) :: k
|
||||
integer, intent(in) :: i
|
||||
kin_pstoich=ckin_pstoich(mix%hndl, k, i)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! netStoichCoeff
|
||||
!
|
||||
double precision function kin_nstoich(mix, k, i)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
integer, intent(in) :: k
|
||||
integer, intent(in) :: i
|
||||
kin_nstoich=ckin_nstoich(mix%hndl, k, i)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! getFwdRatesOfProgress
|
||||
!
|
||||
subroutine kin_get_fwdrop(mix, fwdrop)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: fwdrop(mix%nrxn)
|
||||
call ckin_get_fwdrop(mix%hndl, fwdrop)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! getRevRatesOfProgress
|
||||
!
|
||||
subroutine kin_get_revrop(mix, revrop)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: revrop(mix%nrxn)
|
||||
call ckin_get_revrop(mix%hndl, revrop)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! getNetRatesOfProgress
|
||||
!
|
||||
subroutine kin_get_netrop(mix, netrop)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: netrop(mix%nrxn)
|
||||
call ckin_get_netrop(mix%hndl, netrop)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! getEquilibriumConstants
|
||||
!
|
||||
subroutine kin_get_kc(mix, kc)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: kc(mix%nsp)
|
||||
call ckin_get_kc(mix%hndl, kc)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! getCreationRates
|
||||
!
|
||||
subroutine kin_get_cdot(mix, cdot)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: cdot(mix%nsp)
|
||||
call ckin_get_cdot(mix%hndl, cdot)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! getDestructionRates
|
||||
!
|
||||
subroutine kin_get_ddot(mix, ddot)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: ddot(mix%nsp)
|
||||
call ckin_get_ddot(mix%hndl, ddot)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! getNetProductionRates
|
||||
!
|
||||
subroutine kin_get_wdot(mix, wdot)
|
||||
type(mixture_t), intent(in) :: mix
|
||||
double precision, intent(out) :: wdot(mix%nsp)
|
||||
call ckin_get_wdot(mix%hndl, wdot)
|
||||
return
|
||||
end subroutine
|
||||
end module
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,582 +0,0 @@
|
||||
! ------------------------------------------------------------------------
|
||||
!
|
||||
! Copyright 2002 California Institute of Technology
|
||||
!
|
||||
! Version 1.2.0.1
|
||||
! Mon Jan 7 07:13:18 2002
|
||||
! This file generated automatically.
|
||||
! Cantera Fortran 90 Interface module
|
||||
! ------------------------------------------------------------------------
|
||||
|
||||
module Cantera
|
||||
|
||||
use cttypes
|
||||
use ctmixture
|
||||
use cttransport
|
||||
use ctthermo
|
||||
use ctreactor
|
||||
use ctfdev
|
||||
use ctutils
|
||||
|
||||
double precision, parameter :: OneAtm = 1.01325D5
|
||||
double precision, parameter :: Avogadro = 6.022136736D23
|
||||
double precision, parameter :: GasConstant = 8314.0D0
|
||||
double precision, parameter :: StefanBoltz = 5.67D-8
|
||||
|
||||
interface assignment (=)
|
||||
module procedure mix_copy
|
||||
module procedure reac_copy
|
||||
end interface
|
||||
|
||||
interface addDirectory
|
||||
module procedure util_addDirectory
|
||||
end interface
|
||||
|
||||
interface addElement
|
||||
module procedure mix_addElement
|
||||
end interface
|
||||
|
||||
interface advance
|
||||
module procedure reac_advance
|
||||
end interface
|
||||
|
||||
interface atomicWeight
|
||||
module procedure mix_atwt
|
||||
end interface
|
||||
|
||||
interface charge
|
||||
module procedure mix_charge
|
||||
end interface
|
||||
|
||||
interface contents
|
||||
module procedure reac_contents
|
||||
end interface
|
||||
|
||||
interface copy
|
||||
module procedure mix_copy
|
||||
module procedure reac_copy
|
||||
module procedure fdev_copy
|
||||
end interface
|
||||
|
||||
interface cp_mass
|
||||
module procedure mix_cp_mass
|
||||
end interface
|
||||
|
||||
interface cp_mole
|
||||
module procedure mix_cp_mole
|
||||
end interface
|
||||
|
||||
interface critPressure
|
||||
module procedure mix_critpres
|
||||
end interface
|
||||
|
||||
interface critTemperature
|
||||
module procedure mix_crittemp
|
||||
end interface
|
||||
|
||||
interface cv_mass
|
||||
module procedure mix_cv_mass
|
||||
end interface
|
||||
|
||||
interface cv_mole
|
||||
module procedure mix_cv_mole
|
||||
end interface
|
||||
|
||||
interface delete
|
||||
module procedure mix_delete
|
||||
module procedure trans_delete
|
||||
end interface
|
||||
|
||||
interface density
|
||||
module procedure mix_density
|
||||
module procedure reac_density
|
||||
end interface
|
||||
|
||||
interface disableChemistry
|
||||
module procedure reac_chemoff
|
||||
end interface
|
||||
|
||||
interface downstream
|
||||
module procedure fdev_downstream
|
||||
end interface
|
||||
|
||||
interface elementIndex
|
||||
module procedure mix_eindex
|
||||
end interface
|
||||
|
||||
interface enableChemistry
|
||||
module procedure reac_chemon
|
||||
end interface
|
||||
|
||||
interface enthalpy_mass
|
||||
module procedure mix_enthalpy_mass
|
||||
module procedure reac_enthalpy_mass
|
||||
end interface
|
||||
|
||||
interface enthalpy_mole
|
||||
module procedure mix_enthalpy_mole
|
||||
end interface
|
||||
|
||||
interface entropy_mass
|
||||
module procedure mix_entropy_mass
|
||||
end interface
|
||||
|
||||
interface entropy_mole
|
||||
module procedure mix_entropy_mole
|
||||
end interface
|
||||
|
||||
interface equationOfState
|
||||
module procedure mix_get_eos
|
||||
end interface
|
||||
|
||||
interface equilibrate
|
||||
module procedure mix_equilib
|
||||
end interface
|
||||
|
||||
interface getChemPotentials_RT
|
||||
module procedure mix_gchempot
|
||||
end interface
|
||||
|
||||
interface getConcentrations
|
||||
module procedure mix_getconc
|
||||
end interface
|
||||
|
||||
interface getCp_R
|
||||
module procedure mix_gcp_r
|
||||
end interface
|
||||
|
||||
interface getCreationRates
|
||||
module procedure mix_get_cdot
|
||||
end interface
|
||||
|
||||
interface getDestructionRates
|
||||
module procedure mix_get_ddot
|
||||
end interface
|
||||
|
||||
interface getElementNames
|
||||
module procedure mix_getElementNames
|
||||
end interface
|
||||
|
||||
interface getEnthalpy_RT
|
||||
module procedure mix_gh_rt
|
||||
end interface
|
||||
|
||||
interface getEntropy_R
|
||||
module procedure mix_gs_r
|
||||
end interface
|
||||
|
||||
interface getEquilibriumConstants
|
||||
module procedure mix_get_kc
|
||||
end interface
|
||||
|
||||
interface getFwdRatesOfProgress
|
||||
module procedure mix_get_fwdrop
|
||||
end interface
|
||||
|
||||
interface getGains
|
||||
module procedure fdev_getGains
|
||||
end interface
|
||||
|
||||
interface getGibbs_RT
|
||||
module procedure mix_ggibbs_rt
|
||||
end interface
|
||||
|
||||
interface getMassFractions
|
||||
module procedure mix_gety
|
||||
end interface
|
||||
|
||||
interface getMoleFractions
|
||||
module procedure mix_getx
|
||||
end interface
|
||||
|
||||
interface getMolecularWeights
|
||||
module procedure mix_gmolwts
|
||||
end interface
|
||||
|
||||
interface getMultiDiffCoeffs
|
||||
module procedure mix_gmultidiff
|
||||
end interface
|
||||
|
||||
interface getNetProductionRates
|
||||
module procedure mix_get_wdot
|
||||
end interface
|
||||
|
||||
interface getNetRatesOfProgress
|
||||
module procedure mix_get_netrop
|
||||
end interface
|
||||
|
||||
interface getReactionString
|
||||
module procedure mix_getrxnstr
|
||||
end interface
|
||||
|
||||
interface getRevRatesOfProgress
|
||||
module procedure mix_get_revrop
|
||||
end interface
|
||||
|
||||
interface getSpeciesFluxes
|
||||
module procedure mix_gflux
|
||||
end interface
|
||||
|
||||
interface getSpeciesNames
|
||||
module procedure mix_getspnm
|
||||
end interface
|
||||
|
||||
interface getSpeciesViscosities
|
||||
module procedure mix_gspvisc
|
||||
end interface
|
||||
|
||||
interface getThermalDiffCoeffs
|
||||
module procedure mix_gtdiff
|
||||
end interface
|
||||
|
||||
interface gibbs_mass
|
||||
module procedure mix_gibbs_mass
|
||||
end interface
|
||||
|
||||
interface gibbs_mole
|
||||
module procedure mix_gibbs_mole
|
||||
end interface
|
||||
|
||||
interface install
|
||||
module procedure fdev_install
|
||||
end interface
|
||||
|
||||
interface intEnergy_mass
|
||||
module procedure mix_umass
|
||||
module procedure reac_umass
|
||||
end interface
|
||||
|
||||
interface intEnergy_mole
|
||||
module procedure mix_umole
|
||||
end interface
|
||||
|
||||
interface mass
|
||||
module procedure reac_mass
|
||||
end interface
|
||||
|
||||
interface massFlowRate
|
||||
module procedure fdev_mfrate
|
||||
end interface
|
||||
|
||||
interface massFraction
|
||||
module procedure mix_ybyname
|
||||
end interface
|
||||
|
||||
interface maxError
|
||||
module procedure fdev_maxError
|
||||
end interface
|
||||
|
||||
interface maxTemp
|
||||
module procedure mix_maxTemp
|
||||
end interface
|
||||
|
||||
interface meanMolecularWeight
|
||||
module procedure mix_meanmw
|
||||
end interface
|
||||
|
||||
interface mean_X
|
||||
module procedure mix_mean_X
|
||||
end interface
|
||||
|
||||
interface mean_Y
|
||||
module procedure mix_mean_Y
|
||||
end interface
|
||||
|
||||
interface minTemp
|
||||
module procedure mix_minTemp
|
||||
end interface
|
||||
|
||||
interface molarDensity
|
||||
module procedure mix_moldens
|
||||
end interface
|
||||
|
||||
interface moleFraction
|
||||
module procedure mix_xbyname
|
||||
end interface
|
||||
|
||||
interface molecularWeight
|
||||
module procedure mix_molwt
|
||||
end interface
|
||||
|
||||
interface nAtoms
|
||||
module procedure mix_nAtoms
|
||||
end interface
|
||||
|
||||
interface nElements
|
||||
module procedure mix_nElements
|
||||
end interface
|
||||
|
||||
interface nReactions
|
||||
module procedure mix_nReactions
|
||||
end interface
|
||||
|
||||
interface nSpecies
|
||||
module procedure mix_nSpecies
|
||||
end interface
|
||||
|
||||
interface netStoichCoeff
|
||||
module procedure mix_nstoich
|
||||
end interface
|
||||
|
||||
interface potentialEnergy
|
||||
module procedure mix_pe
|
||||
end interface
|
||||
|
||||
interface pressure
|
||||
module procedure mix_pressure
|
||||
module procedure reac_pressure
|
||||
end interface
|
||||
|
||||
interface printSummary
|
||||
module procedure util_printSummary
|
||||
end interface
|
||||
|
||||
interface productStoichCoeff
|
||||
module procedure mix_pstoich
|
||||
end interface
|
||||
|
||||
interface reactantStoichCoeff
|
||||
module procedure mix_rstoich
|
||||
end interface
|
||||
|
||||
interface ready
|
||||
module procedure mix_ready
|
||||
module procedure fdev_ready
|
||||
end interface
|
||||
|
||||
interface refPressure
|
||||
module procedure mix_refp
|
||||
end interface
|
||||
|
||||
interface reset
|
||||
module procedure fdev_reset
|
||||
end interface
|
||||
|
||||
interface residenceTime
|
||||
module procedure reac_residenceTime
|
||||
end interface
|
||||
|
||||
interface restoreState
|
||||
module procedure mix_restoreState
|
||||
end interface
|
||||
|
||||
interface satPressure
|
||||
module procedure mix_satpres
|
||||
end interface
|
||||
|
||||
interface satTemperature
|
||||
module procedure mix_sattemp
|
||||
end interface
|
||||
|
||||
interface saveState
|
||||
module procedure mix_saveState
|
||||
end interface
|
||||
|
||||
interface setArea
|
||||
module procedure reac_setArea
|
||||
end interface
|
||||
|
||||
interface setConcentrations
|
||||
module procedure mix_sconc
|
||||
end interface
|
||||
|
||||
interface setDensity
|
||||
module procedure mix_setDensity
|
||||
end interface
|
||||
|
||||
interface setEmissivity
|
||||
module procedure reac_setEmissivity
|
||||
end interface
|
||||
|
||||
interface setEquationOfState
|
||||
module procedure mix_set_eos
|
||||
end interface
|
||||
|
||||
interface setExtPressure
|
||||
module procedure reac_setepr
|
||||
end interface
|
||||
|
||||
interface setExtRadTemp
|
||||
module procedure reac_setExtRadTemp
|
||||
end interface
|
||||
|
||||
interface setExtTemp
|
||||
module procedure reac_setExtTemp
|
||||
end interface
|
||||
|
||||
interface setGains
|
||||
module procedure fdev_setGains
|
||||
end interface
|
||||
|
||||
interface setHeatTransferCoeff
|
||||
module procedure reac_seth
|
||||
end interface
|
||||
|
||||
interface setInitialTime
|
||||
module procedure reac_setitm
|
||||
end interface
|
||||
|
||||
interface setInitialVolume
|
||||
module procedure reac_setivol
|
||||
end interface
|
||||
|
||||
interface setMassFractions
|
||||
module procedure mix_sety
|
||||
end interface
|
||||
|
||||
interface setMassFractions_NoNorm
|
||||
module procedure mix_synonorm
|
||||
end interface
|
||||
|
||||
interface setMaxStep
|
||||
module procedure reac_setMaxStep
|
||||
end interface
|
||||
|
||||
interface setMixture
|
||||
module procedure reac_insmix
|
||||
end interface
|
||||
|
||||
interface setMoleFractions
|
||||
module procedure mix_setx
|
||||
end interface
|
||||
|
||||
interface setMoleFractions_NoNorm
|
||||
module procedure mix_sxnonorm
|
||||
end interface
|
||||
|
||||
interface setOptions
|
||||
module procedure trans_setopt
|
||||
end interface
|
||||
|
||||
interface setPotentialEnergy
|
||||
module procedure mix_setpe_k
|
||||
end interface
|
||||
|
||||
interface setPressure
|
||||
module procedure mix_setPressure
|
||||
end interface
|
||||
|
||||
interface setSetpoint
|
||||
module procedure fdev_setspnt
|
||||
end interface
|
||||
|
||||
interface setState_HP
|
||||
module procedure mix_setState_HP
|
||||
end interface
|
||||
|
||||
interface setState_PX
|
||||
module procedure mix_setState_PX
|
||||
end interface
|
||||
|
||||
interface setState_PY
|
||||
module procedure mix_setState_PY
|
||||
end interface
|
||||
|
||||
interface setState_RX
|
||||
module procedure mix_setState_RX
|
||||
end interface
|
||||
|
||||
interface setState_RY
|
||||
module procedure mix_setState_RY
|
||||
end interface
|
||||
|
||||
interface setState_SP
|
||||
module procedure mix_setState_SP
|
||||
end interface
|
||||
|
||||
interface setState_SV
|
||||
module procedure mix_setState_SV
|
||||
end interface
|
||||
|
||||
interface setState_TP
|
||||
module procedure mix_setState_TP
|
||||
end interface
|
||||
|
||||
interface setState_TPX
|
||||
module procedure mix_setTPXstr
|
||||
module procedure mix_setTPXarray
|
||||
end interface
|
||||
|
||||
interface setState_TPY
|
||||
module procedure mix_setTPYstr
|
||||
module procedure mix_setTPYarray
|
||||
end interface
|
||||
|
||||
interface setState_TR
|
||||
module procedure mix_setState_TR
|
||||
end interface
|
||||
|
||||
interface setState_TRX
|
||||
module procedure mix_setState_TRX
|
||||
end interface
|
||||
|
||||
interface setState_TRY
|
||||
module procedure mix_setState_TRY
|
||||
end interface
|
||||
|
||||
interface setState_TX
|
||||
module procedure mix_setState_TX
|
||||
end interface
|
||||
|
||||
interface setState_TY
|
||||
module procedure mix_setState_TY
|
||||
end interface
|
||||
|
||||
interface setState_UV
|
||||
module procedure mix_setState_UV
|
||||
end interface
|
||||
|
||||
interface setTemperature
|
||||
module procedure mix_settemp
|
||||
end interface
|
||||
|
||||
interface setTransport
|
||||
module procedure mix_set_trans
|
||||
end interface
|
||||
|
||||
interface setVDotCoeff
|
||||
module procedure reac_setVDotCoeff
|
||||
end interface
|
||||
|
||||
interface speciesIndex
|
||||
module procedure mix_speciesIndex
|
||||
end interface
|
||||
|
||||
interface sum_xlogQ
|
||||
module procedure mix_sum_xlogQ
|
||||
end interface
|
||||
|
||||
interface temperature
|
||||
module procedure mix_temperature
|
||||
module procedure reac_temperature
|
||||
end interface
|
||||
|
||||
interface thermalConductivity
|
||||
module procedure mix_tcon
|
||||
end interface
|
||||
|
||||
interface time
|
||||
module procedure reac_time
|
||||
end interface
|
||||
|
||||
interface transportMgr
|
||||
module procedure mix_transportMgr
|
||||
end interface
|
||||
|
||||
interface update
|
||||
module procedure fdev_update
|
||||
end interface
|
||||
|
||||
interface upstream
|
||||
module procedure fdev_upstream
|
||||
end interface
|
||||
|
||||
interface viscosity
|
||||
module procedure mix_visc
|
||||
end interface
|
||||
|
||||
interface volume
|
||||
module procedure reac_volume
|
||||
end interface
|
||||
|
||||
end module
|
||||
@@ -1,468 +0,0 @@
|
||||
! ------------------------------------------------------------------------
|
||||
!
|
||||
! Copyright 2002 California Institute of Technology
|
||||
!
|
||||
! Version 1.2.0.1
|
||||
! Mon Jan 7 07:13:18 2002
|
||||
! This file generated automatically.
|
||||
! Fortran 90 module implementing Cantera class Reactor
|
||||
! ------------------------------------------------------------------------
|
||||
module ctreactor
|
||||
use cttypes
|
||||
interface
|
||||
|
||||
integer function creac_newreactor()
|
||||
!DEC$ attributes c, reference :: creac_newreactor
|
||||
!DEC$ attributes alias:'_creac_newreactor_' :: creac_newreactor
|
||||
!DEC$ attributes dllimport :: creac_newreactor
|
||||
end function creac_newreactor
|
||||
|
||||
integer function creac_newreservoir()
|
||||
!DEC$ attributes c, reference :: creac_newreservoir
|
||||
!DEC$ attributes alias:'_creac_newreservoir_' :: creac_newreservoir
|
||||
!DEC$ attributes dllimport :: creac_newreservoir
|
||||
end function creac_newreservoir
|
||||
type(Reactor) function creac_StirredReactor()
|
||||
!DEC$ attributes c, reference :: creac_StirredReactor
|
||||
!DEC$ attributes alias: '_creac_stirredreactor_' :: creac_StirredReactor
|
||||
!DEC$ attributes dllimport :: creac_StirredReactor
|
||||
end function
|
||||
|
||||
type(Reactor) function creac_Reservoir()
|
||||
!DEC$ attributes c, reference :: creac_Reservoir
|
||||
!DEC$ attributes alias: '_creac_reservoir_' :: creac_Reservoir
|
||||
!DEC$ attributes dllimport :: creac_Reservoir
|
||||
end function
|
||||
|
||||
subroutine creac_setivol(reac, vol)
|
||||
!DEC$ attributes c, reference :: creac_setivol
|
||||
!DEC$ attributes alias: '_creac_setivol_' :: creac_setivol
|
||||
!DEC$ attributes dllimport :: creac_setivol
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: vol
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setitm(reac, time)
|
||||
!DEC$ attributes c, reference :: creac_setitm
|
||||
!DEC$ attributes alias: '_creac_setitm_' :: creac_setitm
|
||||
!DEC$ attributes dllimport :: creac_setitm
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: time
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setMaxStep(reac, maxstep)
|
||||
!DEC$ attributes c, reference :: creac_setMaxStep
|
||||
!DEC$ attributes alias: '_creac_setmaxstep_' :: creac_setMaxStep
|
||||
!DEC$ attributes dllimport :: creac_setMaxStep
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: maxstep
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setArea(reac, area)
|
||||
!DEC$ attributes c, reference :: creac_setArea
|
||||
!DEC$ attributes alias: '_creac_setarea_' :: creac_setArea
|
||||
!DEC$ attributes dllimport :: creac_setArea
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: area
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setExtTemp(reac, ts)
|
||||
!DEC$ attributes c, reference :: creac_setExtTemp
|
||||
!DEC$ attributes alias: '_creac_setexttemp_' :: creac_setExtTemp
|
||||
!DEC$ attributes dllimport :: creac_setExtTemp
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: ts
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setExtRadTemp(reac, trad)
|
||||
!DEC$ attributes c, reference :: creac_setExtRadTemp
|
||||
!DEC$ attributes alias: '_creac_setextradtemp_' :: creac_setExtRadTemp
|
||||
!DEC$ attributes dllimport :: creac_setExtRadTemp
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: trad
|
||||
end subroutine
|
||||
|
||||
subroutine creac_seth(reac, h)
|
||||
!DEC$ attributes c, reference :: creac_seth
|
||||
!DEC$ attributes alias: '_creac_seth_' :: creac_seth
|
||||
!DEC$ attributes dllimport :: creac_seth
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: h
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setVDotCoeff(reac, k)
|
||||
!DEC$ attributes c, reference :: creac_setVDotCoeff
|
||||
!DEC$ attributes alias: '_creac_setvdotcoeff_' :: creac_setVDotCoeff
|
||||
!DEC$ attributes dllimport :: creac_setVDotCoeff
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: k
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setEmissivity(reac, emis)
|
||||
!DEC$ attributes c, reference :: creac_setEmissivity
|
||||
!DEC$ attributes alias: '_creac_setemissivity_' :: creac_setEmissivity
|
||||
!DEC$ attributes dllimport :: creac_setEmissivity
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: emis
|
||||
end subroutine
|
||||
|
||||
subroutine creac_setepr(reac, p0)
|
||||
!DEC$ attributes c, reference :: creac_setepr
|
||||
!DEC$ attributes alias: '_creac_setepr_' :: creac_setepr
|
||||
!DEC$ attributes dllimport :: creac_setepr
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: p0
|
||||
end subroutine
|
||||
|
||||
subroutine creac_insmix(reac, mix)
|
||||
!DEC$ attributes c, reference :: creac_insmix
|
||||
!DEC$ attributes alias: '_creac_insmix_' :: creac_insmix
|
||||
!DEC$ attributes dllimport :: creac_insmix
|
||||
type(Reactor), intent(inout) :: reac
|
||||
type(Mixture), intent(inout) :: mix
|
||||
end subroutine
|
||||
|
||||
type(Mixture) function creac_contents(reac)
|
||||
!DEC$ attributes c, reference :: creac_contents
|
||||
!DEC$ attributes alias: '_creac_contents_' :: creac_contents
|
||||
!DEC$ attributes dllimport :: creac_contents
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
subroutine creac_advance(reac, time)
|
||||
!DEC$ attributes c, reference :: creac_advance
|
||||
!DEC$ attributes alias: '_creac_advance_' :: creac_advance
|
||||
!DEC$ attributes dllimport :: creac_advance
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: time
|
||||
end subroutine
|
||||
|
||||
double precision function creac_residenceTime(reac)
|
||||
!DEC$ attributes c, reference :: creac_residenceTime
|
||||
!DEC$ attributes alias: '_creac_residencetime_' :: creac_residenceTime
|
||||
!DEC$ attributes dllimport :: creac_residenceTime
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_time(reac)
|
||||
!DEC$ attributes c, reference :: creac_time
|
||||
!DEC$ attributes alias: '_creac_time_' :: creac_time
|
||||
!DEC$ attributes dllimport :: creac_time
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_volume(reac)
|
||||
!DEC$ attributes c, reference :: creac_volume
|
||||
!DEC$ attributes alias: '_creac_volume_' :: creac_volume
|
||||
!DEC$ attributes dllimport :: creac_volume
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_density(reac)
|
||||
!DEC$ attributes c, reference :: creac_density
|
||||
!DEC$ attributes alias: '_creac_density_' :: creac_density
|
||||
!DEC$ attributes dllimport :: creac_density
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_temperature(reac)
|
||||
!DEC$ attributes c, reference :: creac_temperature
|
||||
!DEC$ attributes alias: '_creac_temperature_' :: creac_temperature
|
||||
!DEC$ attributes dllimport :: creac_temperature
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_enthalpy_mass(reac)
|
||||
!DEC$ attributes c, reference :: creac_enthalpy_mass
|
||||
!DEC$ attributes alias: '_creac_enthalpy_mass_' :: creac_enthalpy_mass
|
||||
!DEC$ attributes dllimport :: creac_enthalpy_mass
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_umass(reac)
|
||||
!DEC$ attributes c, reference :: creac_umass
|
||||
!DEC$ attributes alias: '_creac_umass_' :: creac_umass
|
||||
!DEC$ attributes dllimport :: creac_umass
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_pressure(reac)
|
||||
!DEC$ attributes c, reference :: creac_pressure
|
||||
!DEC$ attributes alias: '_creac_pressure_' :: creac_pressure
|
||||
!DEC$ attributes dllimport :: creac_pressure
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
double precision function creac_mass(reac)
|
||||
!DEC$ attributes c, reference :: creac_mass
|
||||
!DEC$ attributes alias: '_creac_mass_' :: creac_mass
|
||||
!DEC$ attributes dllimport :: creac_mass
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end function
|
||||
|
||||
subroutine creac_chemon(reac)
|
||||
!DEC$ attributes c, reference :: creac_chemon
|
||||
!DEC$ attributes alias: '_creac_chemon_' :: creac_chemon
|
||||
!DEC$ attributes dllimport :: creac_chemon
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end subroutine
|
||||
|
||||
subroutine creac_chemoff(reac)
|
||||
!DEC$ attributes c, reference :: creac_chemoff
|
||||
!DEC$ attributes alias: '_creac_chemoff_' :: creac_chemoff
|
||||
!DEC$ attributes dllimport :: creac_chemoff
|
||||
type(Reactor), intent(inout) :: reac
|
||||
end subroutine
|
||||
|
||||
end interface
|
||||
contains
|
||||
|
||||
type(Reactor) function StirredReactor()
|
||||
type(Reactor) :: reac
|
||||
reac%hndl = creac_newreactor()
|
||||
StirredReactor = reac
|
||||
return
|
||||
end function
|
||||
|
||||
type(Reactor) function Reservoir()
|
||||
type(Reactor) :: r
|
||||
r%hndl = creac_newreservoir()
|
||||
Reservoir = r
|
||||
return
|
||||
end function
|
||||
|
||||
subroutine reac_copy(dest, src)
|
||||
type (Reactor), intent(out) :: dest
|
||||
type (Reactor), intent(in) :: src
|
||||
call mix_copy(dest%mix, src%mix)
|
||||
dest%hndl = src%hndl
|
||||
end subroutine
|
||||
!
|
||||
! setInitialVolume
|
||||
!
|
||||
subroutine reac_setivol(self, reac, vol)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: vol
|
||||
call creac_setivol(self%hndl, reac%hndl, vol)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setInitialTime
|
||||
!
|
||||
subroutine reac_setitm(self, reac, time)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: time
|
||||
call creac_setitm(self%hndl, reac%hndl, time)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setMaxStep
|
||||
!
|
||||
subroutine reac_setMaxStep(self, reac, maxstep)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: maxstep
|
||||
call creac_setMaxStep(self%hndl, reac%hndl, maxstep)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setArea
|
||||
!
|
||||
subroutine reac_setArea(self, reac, area)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: area
|
||||
call creac_setArea(self%hndl, reac%hndl, area)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setExtTemp
|
||||
!
|
||||
subroutine reac_setExtTemp(self, reac, ts)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: ts
|
||||
call creac_setExtTemp(self%hndl, reac%hndl, ts)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setExtRadTemp
|
||||
!
|
||||
subroutine reac_setExtRadTemp(self, reac, trad)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: trad
|
||||
call creac_setExtRadTemp(self%hndl, reac%hndl, trad)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setHeatTransferCoeff
|
||||
!
|
||||
subroutine reac_seth(self, reac, h)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: h
|
||||
call creac_seth(self%hndl, reac%hndl, h)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setVDotCoeff
|
||||
!
|
||||
subroutine reac_setVDotCoeff(self, reac, k)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: k
|
||||
call creac_setVDotCoeff(self%hndl, reac%hndl, k)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setEmissivity
|
||||
!
|
||||
subroutine reac_setEmissivity(self, reac, emis)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: emis
|
||||
call creac_setEmissivity(self%hndl, reac%hndl, emis)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! setExtPressure
|
||||
!
|
||||
subroutine reac_setepr(self, reac, p0)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: p0
|
||||
call creac_setepr(self%hndl, reac%hndl, p0)
|
||||
return
|
||||
end subroutine
|
||||
|
||||
subroutine reac_insmix(reac, mix)
|
||||
type(Reactor), intent(inout) :: reac
|
||||
type(Mixture), intent(inout) :: mix
|
||||
call creac_insmix(reac%hndl, mix%hndl)
|
||||
reac%mix = mix
|
||||
return
|
||||
end subroutine
|
||||
|
||||
!
|
||||
! contents
|
||||
!
|
||||
type(Mixture) function reac_contents(reac)
|
||||
type(Reactor), intent(inout) :: reac
|
||||
type(Mixture) mix
|
||||
mix%hndl = creac_contents(reac%hndl)
|
||||
reac_contents = mix
|
||||
return
|
||||
end function
|
||||
!
|
||||
! advance
|
||||
!
|
||||
subroutine reac_advance(self, reac, time)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
double precision, intent(in) :: time
|
||||
call creac_advance(self%hndl, reac%hndl, time)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! residenceTime
|
||||
!
|
||||
double precision function reac_residenceTime(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_residenceTime=creac_residenceTime(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! time
|
||||
!
|
||||
double precision function reac_time(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_time=creac_time(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! volume
|
||||
!
|
||||
double precision function reac_volume(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_volume=creac_volume(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! density
|
||||
!
|
||||
double precision function reac_density(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_density=creac_density(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! temperature
|
||||
!
|
||||
double precision function reac_temperature(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_temperature=creac_temperature(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! enthalpy_mass
|
||||
!
|
||||
double precision function reac_enthalpy_mass(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_enthalpy_mass=creac_enthalpy_mass(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! intEnergy_mass
|
||||
!
|
||||
double precision function reac_umass(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_umass=creac_umass(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! pressure
|
||||
!
|
||||
double precision function reac_pressure(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_pressure=creac_pressure(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! mass
|
||||
!
|
||||
double precision function reac_mass(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
reac_mass=creac_mass(self%hndl, reac%hndl)
|
||||
return
|
||||
end function
|
||||
!
|
||||
! enableChemistry
|
||||
!
|
||||
subroutine reac_chemon(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
call creac_chemon(self%hndl, reac%hndl)
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! disableChemistry
|
||||
!
|
||||
subroutine reac_chemoff(self, reac)
|
||||
type(Reactor), intent(inout) :: self
|
||||
type(Reactor), intent(inout) :: reac
|
||||
call creac_chemoff(self%hndl, reac%hndl)
|
||||
return
|
||||
end subroutine
|
||||
end module
|
||||
@@ -1,12 +0,0 @@
|
||||
! ------------------------------------------------------------------------
|
||||
!
|
||||
! Copyright 2002 California Institute of Technology
|
||||
!
|
||||
! Version 1.2.0.1
|
||||
! Mon Jan 7 07:13:18 2002
|
||||
! This file generated automatically.
|
||||
! Fortran 90 module implementing Cantera class EOS
|
||||
! ------------------------------------------------------------------------
|
||||
module ctthermo
|
||||
use cttypes
|
||||
end module
|
||||
@@ -1,108 +0,0 @@
|
||||
! ------------------------------------------------------------------------
|
||||
!
|
||||
! Copyright 2002 California Institute of Technology
|
||||
!
|
||||
! Version 1.2.0.1
|
||||
! Mon Jan 7 07:13:18 2002
|
||||
! This file generated automatically.
|
||||
! Fortran 90 module implementing Cantera class Transport
|
||||
! ------------------------------------------------------------------------
|
||||
module cttransport
|
||||
use cttypes
|
||||
interface
|
||||
|
||||
integer function ctrans_Transport(mix_hndl,
|
||||
& type, trans_db, logLevel)
|
||||
!DEC$ attributes c, reference :: ctrans_Transport
|
||||
!DEC$ attributes alias: '_ctrans_transport_' :: ctrans_Transport
|
||||
!DEC$ attributes dllimport :: ctrans_Transport
|
||||
integer, intent(inout) :: mix_hndl
|
||||
integer, intent(in) :: type
|
||||
character*(*), intent(in) :: trans_db
|
||||
integer, intent(in) :: logLevel
|
||||
end function
|
||||
subroutine ctrans_delete(transportMgr)
|
||||
!DEC$ attributes c, reference :: ctrans_delete
|
||||
!DEC$ attributes alias: '_ctrans_delete_' :: ctrans_delete
|
||||
!DEC$ attributes dllimport :: ctrans_delete
|
||||
type(Transport), intent(inout) :: transportMgr
|
||||
end subroutine
|
||||
|
||||
|
||||
subroutine ctrans_setopt(itr, ijob,
|
||||
& iopt, dopt)
|
||||
!DEC$ attributes c, reference :: ctrans_setopt
|
||||
!DEC$ attributes alias: '_ctrans_setopt_' :: ctrans_setopt
|
||||
!DEC$ attributes dllimport :: ctrans_setopt
|
||||
integer, intent(inout) :: itr
|
||||
integer, intent(in) :: ijob
|
||||
integer, intent(in) :: iopt
|
||||
double precision, intent(in) :: dopt
|
||||
end subroutine
|
||||
end interface
|
||||
contains
|
||||
|
||||
type(Transport) function MultiTransport(mix,
|
||||
& trans_db, logLevel)
|
||||
type(Mixture), intent(inout) :: mix
|
||||
character*(*), intent(in) :: trans_db
|
||||
integer, intent(in) :: logLevel
|
||||
type(Transport) tr
|
||||
tr%hndl=ctrans_transport(mix%hndl,
|
||||
& Multicomponent, trans_db, logLevel)
|
||||
tr%ierr = 0
|
||||
MultiTransport = tr
|
||||
return
|
||||
end function
|
||||
|
||||
|
||||
type(Transport) function MixTransport(mix,
|
||||
& trans_db, logLevel)
|
||||
type(Mixture), intent(inout) :: mix
|
||||
character*(*), intent(in) :: trans_db
|
||||
integer, intent(in) :: logLevel
|
||||
type(Transport) tr
|
||||
tr%hndl=ctrans_transport(mix%hndl,
|
||||
& MixtureAveraged, trans_db, logLevel)
|
||||
tr%ierr = 0
|
||||
MixTransport = tr
|
||||
return
|
||||
end function
|
||||
|
||||
|
||||
subroutine trans_delete(transportMgr)
|
||||
type(Transport), intent(inout) :: transportMgr
|
||||
call ctrans_delete(transportMgr%hndl)
|
||||
transportMgr%hndl = 0
|
||||
transportMgr%ierr = 0
|
||||
return
|
||||
end subroutine
|
||||
|
||||
subroutine trans_setopt(tr, linearSolver, GMRES_m, GMRES_eps)
|
||||
implicit double precision (a-h,o-z)
|
||||
type(Transport), intent(inout) :: tr
|
||||
character*(*), intent(in), optional :: linearSolver
|
||||
integer, intent(in), optional :: GMRES_m
|
||||
double precision, intent(in), optional :: GMRES_eps
|
||||
itr = tr%hndl
|
||||
dummy = -1.d0
|
||||
idummy = -1
|
||||
if (present(linearSolver)) then
|
||||
meth = 2
|
||||
if (linearSolver .eq. 'GMRES') meth = 1
|
||||
ijob = 0
|
||||
write(*,*) 'setting lin solver'
|
||||
call ctrans_setopt(itr,ijob, meth, dummy)
|
||||
write(*,*) 'ret from setting lin solver'
|
||||
end if
|
||||
if (present(GMRES_m)) then
|
||||
ijob = 1
|
||||
call ctrans_setopt(itr,ijob, GMRES_m, dummy)
|
||||
end if
|
||||
if (present(GMRES_eps)) then
|
||||
ijob = 2
|
||||
call ctrans_setopt(itr,ijob, idummy, GMRES_eps)
|
||||
end if
|
||||
return
|
||||
end subroutine
|
||||
end module
|
||||
@@ -1,57 +0,0 @@
|
||||
! ------------------------------------------------------------------------
|
||||
!
|
||||
! Copyright 2002 California Institute of Technology
|
||||
!
|
||||
! Version 1.2.0.1
|
||||
! Mon Jan 7 07:13:18 2002
|
||||
! This file generated automatically.
|
||||
! Fortran 90 module implementing Cantera class Utils
|
||||
! ------------------------------------------------------------------------
|
||||
module ctutils
|
||||
use cttypes
|
||||
interface
|
||||
|
||||
subroutine cutil_report(mix_hndl, n, txt)
|
||||
!DEC$ attributes c, reference :: cutil_report
|
||||
!DEC$ attributes alias: '_cutil_report_' :: cutil_report
|
||||
!DEC$ attributes dllimport :: cutil_report
|
||||
integer, intent(in) :: mix_hndl
|
||||
integer, intent(in) :: n
|
||||
character*(*), intent(out) :: txt
|
||||
end subroutine
|
||||
subroutine cutil_addDirectory(dirname)
|
||||
!DEC$ attributes c, reference :: cutil_addDirectory
|
||||
!DEC$ attributes alias: '_cutil_adddirectory_' :: cutil_addDirectory
|
||||
!DEC$ attributes dllimport :: cutil_addDirectory
|
||||
character*(*), intent(in) :: dirname
|
||||
end subroutine
|
||||
|
||||
end interface
|
||||
contains
|
||||
|
||||
subroutine util_printSummary(mix, lu)
|
||||
type(Mixture), intent(in) :: mix
|
||||
integer, intent(in) :: lu
|
||||
character*4000 txt
|
||||
n = 4000
|
||||
call cutil_report(mix%hndl, n, txt)
|
||||
istrt = 1
|
||||
ifin = 100
|
||||
do i = 1,40
|
||||
write(lu,'(a$)') txt(istrt:ifin)
|
||||
istrt = i*100 + 1
|
||||
ifin = istrt + 99
|
||||
if (ifin .gt. n) ifin = n
|
||||
if (istrt .ge. n) return
|
||||
end do
|
||||
return
|
||||
end subroutine
|
||||
!
|
||||
! addDirectory
|
||||
!
|
||||
subroutine util_addDirectory(dirname)
|
||||
character*(*), intent(in) :: dirname
|
||||
call cutil_addDirectory(dirname)
|
||||
return
|
||||
end subroutine
|
||||
end module
|
||||
@@ -1 +0,0 @@
|
||||
|
||||
Reference in New Issue
Block a user