Skip to content

Commit

Permalink
First API version
Browse files Browse the repository at this point in the history
  • Loading branch information
@srebughini
srebughini committed Jan 18, 2020
1 parent 507968f commit 3c5d8e6
Show file tree
Hide file tree
Showing 120 changed files with 17,360 additions and 7 deletions.
1 change: 1 addition & 0 deletions .gitignore
View file
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
obj/*
obj
Asali
__*
2 changes: 1 addition & 1 deletion .travis.yml
View file
Original file line number Diff line number Diff line change
Expand Up @@ -44,5 +44,5 @@ script: |
scons build system_sundials=n
sudo scons install
cd ..
cd Ubuntu
cd GUI/Ubuntu
./compile.sh
923 changes: 923 additions & 0 deletions API/Fortran/Asali.f90
View file

Large diffs are not rendered by default.

3 changes: 3 additions & 0 deletions API/Fortran/compile.sh
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
f95 database-generator.f90 -o database-generator
f77 example.f90 -llapack -o example

626 changes: 626 additions & 0 deletions API/Fortran/database-generator.f90
View file

Large diffs are not rendered by default.

66 changes: 66 additions & 0 deletions API/Fortran/definitions.f90
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,66 @@
!################################################################################################
!# #
!# ############# ############# ############# #### #### #
!# # # # # # # # # # # #
!# # ##### # # ######### # ##### # # # # # #
!# # # # # # # # # # # # # # # #
!# # ##### # # # # ##### # # # # # #
!# # # # ######### # # # # # # #
!# # # # # # # # # # # #
!# # ##### # ######### # # ##### # # # # # #
!# # # # # # # # # # # # # # # #
!# # # # # ######### # # # # # # ######### # # #
!# # # # # # # # # # # # # # # #
!# #### #### ############# #### #### ############# #### #
!# #
!# Author: Stefano Rebughini <ste.rebu@outlook.it> #
!# #
!################################################################################################
!# #
!# License #
!# #
!# This file is part of ASALI. #
!# #
!# ASALI is free software: you can redistribute it and/or modify #
!# it under the terms of the GNU General Public License as published by #
!# the Free Software Foundation, either version 3 of the License, or #
!# (at your option) any later version. #
!# #
!# ASALI is distributed in the hope that it will be useful, #
!# but WITHOUT ANY WARRANTY; without even the implied warranty of #
!# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
!# GNU General Public License for more details. #
!# #
!# You should have received a copy of the GNU General Public License #
!# along with ASALI. If not, see <http://www.gnu.org/licenses/>. #
!# #
!################################################################################################

type :: transport
character(len=200) :: nome
real :: geometry
real :: LJpotential
real :: LJdiameter
real :: dipole
real :: polar
real :: collision
real :: MW
end type

type(transport) :: transport_(483)

type :: thermo
character(len=200) :: nome
real :: high(7)
real :: low(7)
end type

type(thermo) :: thermo_(483)

real :: dsigma22_(8)
real :: Tsigma22_(37)
real :: sigmaMatrix22_(37,8)

real :: dsigma11_(8)
real :: Tsigma11_(37)
real :: sigmaMatrix11_(37,8)
159 changes: 159 additions & 0 deletions API/Fortran/example.f90
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,159 @@
!################################################################################################
!# #
!# ############# ############# ############# #### #### #
!# # # # # # # # # # # #
!# # ##### # # ######### # ##### # # # # # #
!# # # # # # # # # # # # # # # #
!# # ##### # # # # ##### # # # # # #
!# # # # ######### # # # # # # #
!# # # # # # # # # # # #
!# # ##### # ######### # # ##### # # # # # #
!# # # # # # # # # # # # # # # #
!# # # # # ######### # # # # # # ######### # # #
!# # # # # # # # # # # # # # # #
!# #### #### ############# #### #### ############# #### #
!# #
!# Author: Stefano Rebughini <ste.rebu@outlook.it> #
!# #
!################################################################################################
!# #
!# License #
!# #
!# This file is part of ASALI. #
!# #
!# ASALI is free software: you can redistribute it and/or modify #
!# it under the terms of the GNU General Public License as published by #
!# the Free Software Foundation, either version 3 of the License, or #
!# (at your option) any later version. #
!# #
!# ASALI is distributed in the hope that it will be useful, #
!# but WITHOUT ANY WARRANTY; without even the implied warranty of #
!# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
!# GNU General Public License for more details. #
!# #
!# You should have received a copy of the GNU General Public License #
!# along with ASALI. If not, see <http://www.gnu.org/licenses/>. #
!# #
!################################################################################################

include "Asali.f90"

program example
use asali
implicit none

character(len=200), dimension(3) :: names

real, dimension(3) :: x, mu, cp, h, s, cond, diffmix, v, l

real, dimension(3,3) :: diff

real :: rho, MWmix, condmix, mumix, cpmolemix, cpmassmix, &
hmolemix, hmassmix, smolemix, smassmix

integer :: i

names(1) = 'H2'
names(2) = 'O2'
names(3) = 'N2'

x(1) = 0.1
x(2) = 0.2
x(3) = 1 - x(1) - x(2)

call set_temperature(393.15)

call set_pressure(4e05)

call set_number_of_species(3)

call set_species_names(names)

call set_mole_fraction(x)

mu = get_species_viscosity()
rho = get_density()
MWmix = get_mixture_molecular_weight()
condmix = get_mixture_thermal_conductivity()
mumix = get_mixture_viscosity()
diffmix = get_mixture_diffusion()
cpmolemix = get_mixture_molar_specific_heat()
cpmassmix = get_mixture_mass_specific_heat()
hmolemix = get_mixture_molar_enthalpy()
hmassmix = get_mixture_mass_enthalpy()
smolemix = get_mixture_molar_entropy()
smassmix = get_mixture_mass_entropy()
diff = get_binary_diffusion()
cp = get_species_mass_specific_heat()
h = get_species_mass_enthalpy()
s = get_species_mass_entropy()
cond = get_species_thermal_conductivity()
v = get_aritmetic_mean_gas_velocity()
l = get_mean_free_path()

print '(A30,ES9.3,A10)' ,'Mixture molecular weight: ', MWmix, ' [kg/kmol]'
print '(A30,ES9.3,A8)' ,'Density: ', rho, ' [kg/m3]'
print '(A30,ES9.3,A6)' ,'Mixture viscosity: ', mumix, ' [Pas]'
print '(A30,ES9.3,A9)' ,'Mixture specific heat: ', cpmassmix, ' [J/kg/K]'
print '(A30,ES9.3,A11)' ,'Mixture specific heat: ', cpmolemix, ' [J/kmol/K]'
print '(A30,ES9.3,A8)' ,'Mixture thermal conductivity: ', condmix, ' [W/m/K]'
print '(A30,ES9.3,A7)' ,'Mixture enthalpy: ', hmassmix, ' [J/kg]'
print '(A30,ES9.3,A9)' ,'Mixture enthalpy: ', hmolemix, ' [J/kmol]'
print '(A30,ES9.3,A9)' ,'Mixture entropy: ', smassmix, ' [J/kg/K]'
print '(A30,ES9.3,A11)' ,'Mixture entropy: ', smolemix, ' [J/kmol/K]'

print *,' '
print *,'Species viscosity [Pas]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',mu(i)
end do

print *,' '
print *,'Species binary diffusion coefficient [m2/s]'
do i=1,3
print '(A2,A2,ES9.3,A1,ES9.3,A1,ES9.3)', names(i),': ', diff(i,1),',',diff(i,2),',',diff(i,3)
end do

print *,' '
print *,'Species specific heat [J/kg/K]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',cp(i)
end do

print *,' '
print *,'Species enthalpy [J/kg]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',h(i)
end do

print *,' '
print *,'Species entropy [J/kg/K]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',s(i)
end do

print *,' '
print *,'Species thermal conductiviy [W/m/K]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',cond(i)
end do

print *,' '
print *,'Mixture diffusion coefficient [m2/s]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',diffmix(i)
end do

print *,' '
print *,'Mean gas velocity [m/s]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',v(i)
end do

print *,' '
print *,'Mean free path [m]'
do i=1,3
print '(A2,A2,ES9.3)', names(i),': ',l(i)
end do

end program example
Loading

0 comments on commit 3c5d8e6

Please sign in to comment.