*** empty log message ***

This commit is contained in:
Dave Goodwin 2004-08-06 14:43:08 +00:00
parent 8a622ee2a3
commit f0533e0f5b
2 changed files with 8 additions and 12 deletions

View file

@ -1,16 +1,16 @@
import sys
bindir = '/home/goodwin/ct154g/bin'
libdir = '/home/goodwin/dv/sf/cantera/build/lib/i686-pc-linux-gnu'
incdir = '/home/goodwin/dv/sf/cantera/build/include'
bindir = '/Applications/Cantera/bin'
libdir = '/Users/dgg/dv/sf/cantera/build/lib/powerpc-apple-darwin7.4.0'
incdir = '/Users/dgg/dv/sf/cantera/build/include'
dflibdir = ''
bllibstr = "-lctlapack -lctblas"
bllibs = bllibstr.replace('-l',' ')
bllist = bllibs.split()
bldir = "/home/goodwin/dv/sf/cantera/build/lib/i686-pc-linux-gnu"
bldir = "/Users/dgg/dv/sf/cantera/build/lib/powerpc-apple-darwin7.4.0"
libs = ['clib', 'oneD', 'zeroD', 'transport', 'cantera', 'recipes',
'cvode', 'ctmath', 'tpx']

View file

@ -1,10 +1,5 @@
!
! Replace this sample main program with your program
!
! This program uses functions defined in demo_ftnlib.cpp to create
! an ideal gas mixture and print some its properties.
!
! For a C++ version of this program, type 'ctnew -cxx'.
! This program illustrates using Cantera in Fortran 90 to compute
! thermodynamic, kinetic, and transport properties of a gas mixture.
!
program main
@ -12,6 +7,7 @@ program main
use cantera
implicit none
! objects representing phases of matter have type 'phase_t'
type(phase_t) gas
integer nsp, nrxns
@ -62,7 +58,7 @@ subroutine demo(gas, MAXSP, MAXRXNS)
character*80 eq
character*20 name
double precision :: t, p, dnu, dlam
double precision :: dnu, dlam
integer :: i, irxns, nsp, k
write(*,*) 'Initial state properties:'