57 lines
1.7 KiB
Fortran
Executable file
57 lines
1.7 KiB
Fortran
Executable file
! ------------------------------------------------------------------------
|
|
!
|
|
! 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
|