fUnit 0.0.3 → 0.1.0

data/examples/CFD/GasModelMT.f90

@@ -1,173 +0,0 @@
-! GasModelMT.f90 - a Fortran mobility test suite for GasModel.f90
-!
-! [dynamically generated from GasModelMT.ftk
-!  by funit Ruby script Sun Apr 09 01:10:35 EDT 2006]
-
-module GasModelMT
-
- use GasModel
-
- implicit none
-
- private
-
- public :: MTGasModel
-
- logical :: noAssertFailed
-
- integer :: numTests          = 0
- integer :: numAsserts        = 0
- integer :: numAssertsTested  = 0
- integer :: numFailures       = 0
-
-! $Id: GasModelTS.ftk 91 2001-11-13 20:46:28Z cvs4bk $
-
- real            :: Pressure, Density, Energy
-
- contains
-
- subroutine TestPerfectPZeroed
-
-  real, parameter :: zero = 0
-  call PerfectP (zero, zero, Pressure)
-
-  ! IsRealEqual assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(Pressure+2*spacing(real(Pressure)).ge. 0  &
-             .and.Pressure-2*spacing(real(Pressure)).le. 0 )) then
-      print *, " *IsRealEqual failed* in test PerfectPZeroed &
-                         &[GasModelMT.ftk:8]"
-      print *, "  ", " 0  (", 0 ,") is not",Pressure,"within",2*spacing(real(Pressure))
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  ! IsEqualWithin assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.( 0+ 0.0000000001 .ge. Pressure &
-             .and. 0- 0.0000000001 .le. Pressure)) then
-      print *, " *IsEqualWithin failed* in test PerfectPZeroed &
-                         &[GasModelMT.ftk:9]"
-      print *, "  ", " Pressure (", Pressure,") is not", 0,"within", 0.0000000001 
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestPerfectPZeroed
-
-
- subroutine TestWarbler
-
-
-  numTests = numTests + 1
-
- end subroutine TestWarbler
-
-
- subroutine TestPerfectPKnown
-
-  real :: Density = 1
-  Energy  = 1
-  call PerfectP( Density, Energy, Pressure )
-
-  ! IsRealEqual assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.( Pressure+2*spacing(real( Pressure)).ge. 0.4  &
-             .and. Pressure-2*spacing(real( Pressure)).le. 0.4 )) then
-      print *, " *IsRealEqual failed* in test PerfectPKnown &
-                         &[GasModelMT.ftk:19]"
-      print *, "  ", " 0.4  (", 0.4 ,") is not", Pressure,"within",2*spacing(real( Pressure))
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  ! IsTrue assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(    Pressure .gt. 0 )) then
-      print *, " *IsTrue failed* in test PerfectPKnown &
-                         &[GasModelMT.ftk:20]"
-      print *, "  ", "    Pressure .gt. 0  is not true"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  ! IsFalse assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if ( Pressure .lt. 0 ) then
-      print *, " *IsFalse failed* in test PerfectPKnown &
-                         &[GasModelMT.ftk:21]"
-      print *, "  ", " Pressure .lt. 0  is not false"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestPerfectPKnown
-
-
- subroutine Setup
-  noAssertFailed = .true.
- end subroutine Setup
-
-
- subroutine Teardown
- end subroutine Teardown
-
-
- subroutine MTGasModel( nTests, nAsserts, nAssertsTested, nFailures )
-
-  integer :: nTests
-  integer :: nAsserts
-  integer :: nAssertsTested
-  integer :: nFailures
-
-  continue
-
-  call Setup
-  call TestPerfectPZeroed
-  call Teardown
-
-  call Setup
-  call TestWarbler
-  call Teardown
-
-  call Setup
-  call TestPerfectPKnown
-  call Teardown
-
-  nTests          = numTests
-  nAsserts        = numAsserts
-  nAssertsTested  = numAssertsTested
-  nFailures       = numFailures
-
- end subroutine MTGasModel
-
-end module GasModelMT

data/examples/CFD/TestRunner.f90

@@ -1,23 +0,0 @@
-! TestRunner.f90 - runs Fortran mobility test suites
-!
-! [Dynamically generated by funit Ruby script Sun Apr 09 01:22:59 EDT 2006.]
-
-program TestRunner
-
- use FluxFunctionsMT
-
- implicit none
-
- integer :: numTests, numAsserts, numAssertsTested, numFailures
-
- print *, ""
- print *, "FluxFunctions test suite:"
- call MTFluxFunctions( numTests, &
-        numAsserts, numAssertsTested, numFailures )
- print *, "Passed", numAssertsTested, "of", numAsserts, &
-          "possible asserts comprising", &
-           numTests-numFailures, "of", numTests, "tests." 
-
- print *, ""
-
-end program TestRunner

data/examples/CFD/fluxfunctions.mod

@@ -1,45 +0,0 @@
-G95 module created on Sun Apr  9 01:07:49 2006 from ./FluxFunctions.f90
-If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'centralflux' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
-SUBROUTINE) (PROCEDURE 0 ()) 0 0 (3 NONE 4 NONE 5 NONE) () '' () ())
-6 'roeavg' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
-FUNCTION) (REAL 4 ()) 0 0 (7 NONE 8 NONE) () '' () ())
-9 'fluxfunctions' 'fluxfunctions' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (
-UNKNOWN 0 ()) 0 0 () () '' () ())
-10 'roeflux' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
-SUBROUTINE) (PROCEDURE 0 ()) 0 0 (11 NONE 12 NONE 13 NONE) () '' () ())
-14 'flux' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
-FUNCTION) (REAL 4 ()) 0 0 (15 NONE) () '' () ())
-4 'rightstate' '' 16 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
-0 () () '' () ())
-11 'leftstate' '' 17 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
-0 () () '' () ())
-12 'rightstate' '' 17 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
-0 () () '' () ())
-5 'interfaceflux' '' 16 ((VARIABLE OUT UNKNOWN UNKNOWN DUMMY) (REAL 4 ())
-0 0 () () '' () ())
-13 'interfaceflux' '' 17 ((VARIABLE OUT UNKNOWN UNKNOWN DUMMY) (REAL 4 ())
-0 0 () () '' () ())
-15 'state' '' 18 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 ()
-() '' () ())
-7 'leftstate' '' 19 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0
-() () '' () ())
-8 'rightstate' '' 19 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
-0 () () '' () ())
-3 'leftstate' '' 16 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0
-() () '' () ())
-)
-
-('flux' 0 14 'centralflux' 0 2 'roeflux' 0 10 'fluxfunctions' 0 9 'roeavg'
-0 6)

data/examples/CFD/gammas.mod

@@ -1,20 +0,0 @@
-G95 module created on Sun Apr  9 01:07:49 2006 from ./Gammas.f90
-If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'gamma' 'gammas' 1 ((PARAMETER UNKNOWN UNKNOWN UNKNOWN) (REAL 4 ()) 0
-0 () (CONSTANT (REAL 4 ()) 0 '11744051' 0 127) () '' () ())
-3 'gammas' 'gammas' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ()) 0
-0 () () '' () ())
-)
-
-('gammas' 0 3 'gamma' 0 2)

data/examples/CFD/gasmodel.mod

@@ -1,30 +0,0 @@
-G95 module created on Sun Apr  9 01:07:49 2006 from ./GasModel.f90
-If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'gamma' 'gammas' 1 ((PARAMETER UNKNOWN UNKNOWN UNKNOWN) (REAL 4 ()) 0
-0 () (CONSTANT (REAL 4 ()) 0 '11744051' 0 127) () '' () ())
-3 'gammas' 'gammas' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ()) 0
-0 () () '' () ())
-4 'perfectp' 'gasmodel' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
-SUBROUTINE) (PROCEDURE 0 ()) 0 0 (5 NONE 6 NONE 7 NONE) () '' () ())
-8 'gasmodel' 'gasmodel' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ())
-0 0 () () '' () ())
-5 'density' '' 9 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 ()
-() '' () ())
-7 'pressure' '' 9 ((VARIABLE OUT UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0
-() () '' () ())
-6 'energy' '' 9 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 ()
-() '' () ())
-)
-
-('gasmodel' 0 8 'gammas' 0 3 'gamma' 0 2 'perfectp' 0 4)

data/examples/CFD/gasmodelmt.mod

@@ -1,27 +0,0 @@
-G95 module created on Sun Apr  9 01:07:49 2006 from ./GasModelMT.f90
-If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'mtgasmodel' 'gasmodelmt' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
-SUBROUTINE) (PROCEDURE 0 ()) 0 0 (3 NONE 4 NONE 5 NONE 6 NONE) () '' ()
-())
-3 'ntests' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4 ())
-0 0 () () '' () ())
-4 'nasserts' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4 ())
-0 0 () () '' () ())
-6 'nfailures' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4
-()) 0 0 () () '' () ())
-5 'nassertstested' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (
-INTEGER 4 ()) 0 0 () () '' () ())
-)
-
-('mtgasmodel' 0 2)

data/examples/StopWatch/StopWatchMT.f90

@@ -1,343 +0,0 @@
-! StopWatchMT.f90 - a Fortran mobility test suite for StopWatch.f90
-!
-! [dynamically generated from StopWatchMT.ftk
-!  by funit Ruby script Thu Apr 13 17:37:19 EDT 2006]
-
-module StopWatchMT
-
- use StopWatch
-
- implicit none
-
- private
-
- public :: MTStopWatch
-
- logical :: noAssertFailed
-
- integer :: numTests          = 0
- integer :: numAsserts        = 0
- integer :: numAssertsTested  = 0
- integer :: numFailures       = 0
-
-integer, dimension(8) :: dateAndTime1, dateAndTime2
-real :: seconds
-
- contains
-
-
- subroutine TestSystemDateAndTimeWorks
-
- call date_and_time(values=dateAndTime1)
-
-  ! IsTrue assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.( dateAndTime1(1) /= -huge(0) )) then
-      print *, " *IsTrue failed* in test SystemDateAndTimeWorks &
-                         &[StopWatchMT.ftk:12]"
-      print *, "  ", " dateAndTime1(1) /= -huge(0)  is not true"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  ! IsTrue assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.( size(dateAndTime1,1) == 8 )) then
-      print *, " *IsTrue failed* in test SystemDateAndTimeWorks &
-                         &[StopWatchMT.ftk:13]"
-      print *, "  ", " size(dateAndTime1,1) == 8  is not true"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestSystemDateAndTimeWorks
-
-
-! test secBetween
- subroutine TestOneMSecDifference
-
-  dateAndTime1 = (/ 2000, 1, 1, 0, 0, 0, 0, 0 /)
-  dateAndTime2 = (/ 2000, 1, 1, 0, 0, 0, 0, 1 /)
-  seconds = SecBetween(dateAndTime1, dateAndTime2)
-
-  ! IsRealEqual assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(seconds+2*spacing(real(seconds)).ge. 0.001 &
-             .and.seconds-2*spacing(real(seconds)).le. 0.001)) then
-      print *, " *IsRealEqual failed* in test OneMSecDifference &
-                         &[StopWatchMT.ftk:21]"
-      print *, "  ", " 0.001 (", 0.001,") is not",seconds,"within",2*spacing(real(seconds))
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestOneMSecDifference
-
-
- subroutine TestMinuteRollover
-
-  dateAndTime1 = (/ 2000, 1, 1, 0, 0, 0,59, 0 /)
-  dateAndTime2 = (/ 2000, 1, 1, 0, 0, 1, 0, 0 /)
-  seconds = SecBetween(dateAndTime1, dateAndTime2)
-
-  ! IsRealEqual assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(seconds+2*spacing(real(seconds)).ge. 1.0 &
-             .and.seconds-2*spacing(real(seconds)).le. 1.0)) then
-      print *, " *IsRealEqual failed* in test MinuteRollover &
-                         &[StopWatchMT.ftk:28]"
-      print *, "  ", " 1.0 (", 1.0,") is not",seconds,"within",2*spacing(real(seconds))
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestMinuteRollover
-
-
-! test secSinceLast
- subroutine TestInitializationState
-
-
-  ! IsTrue assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(notInitialized)) then
-      print *, " *IsTrue failed* in test InitializationState &
-                         &[StopWatchMT.ftk:33]"
-      print *, "  ", "notInitialized is not true"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-  seconds = secSinceLast()
-
-  ! IsFalse assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (notInitialized) then
-      print *, " *IsFalse failed* in test InitializationState &
-                         &[StopWatchMT.ftk:35]"
-      print *, "  ", "notInitialized is not false"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-  seconds = secSinceLast()
-
-  ! IsFalse assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (notInitialized) then
-      print *, " *IsFalse failed* in test InitializationState &
-                         &[StopWatchMT.ftk:37]"
-      print *, "  ", "notInitialized is not false"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestInitializationState
-
-
- subroutine TestInitiallyReturnsZero
-
-  seconds = secSinceLast()
-
-  ! IsRealEqual assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(seconds+2*spacing(real(seconds)).ge. 0.0 &
-             .and.seconds-2*spacing(real(seconds)).le. 0.0)) then
-      print *, " *IsRealEqual failed* in test InitiallyReturnsZero &
-                         &[StopWatchMT.ftk:42]"
-      print *, "  ", " 0.0 (", 0.0,") is not",seconds,"within",2*spacing(real(seconds))
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-  call timeDelay(seconds)
-  seconds = secSinceLast()
-
-  ! IsTrue assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.( seconds /= 0.0 )) then
-      print *, " *IsTrue failed* in test InitiallyReturnsZero &
-                         &[StopWatchMT.ftk:45]"
-      print *, "  ", " seconds /= 0.0  is not true"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestInitiallyReturnsZero
-
-
-subroutine timeDelay (sum)
-  integer :: i
-  real    :: sum
-  do i = 1, 1000000
-   sum = sum + i
-  enddo
-end subroutine timeDelay
-
- subroutine TestComputesSeconds
-
-  seconds = secSinceLast()
-  call timeDelay (seconds)
-  seconds = secSinceLast()
-
-  ! IsTrue assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.( seconds > 0.0 )) then
-      print *, " *IsTrue failed* in test ComputesSeconds &
-                         &[StopWatchMT.ftk:60]"
-      print *, "  ", " seconds > 0.0  is not true"
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestComputesSeconds
-
-
- subroutine TestComputesSecondsSpecial
-
-  real :: expectedSeconds
-
-  seconds = secSinceLast()
-  dateAndTime1 = last
-  call timeDelay (seconds)
-  seconds = secSinceLast()
-  dateAndTime2 = last
-  expectedSeconds = secBetween(dateAndTime1,dateAndTime2)
-
-  ! IsRealEqual assertion
-  numAsserts = numAsserts + 1
-  if (noAssertFailed) then
-    if (.not.(seconds+2*spacing(real(seconds)).ge. expectedSeconds &
-             .and.seconds-2*spacing(real(seconds)).le. expectedSeconds)) then
-      print *, " *IsRealEqual failed* in test ComputesSecondsSpecial &
-                         &[StopWatchMT.ftk:72]"
-      print *, "  ", " expectedSeconds (", expectedSeconds,") is not",seconds,"within",2*spacing(real(seconds))
-      print *, ""
-      noAssertFailed = .false.
-      numFailures    = numFailures + 1
-    else
-      numAssertsTested = numAssertsTested + 1
-    endif
-  endif
-
-  numTests = numTests + 1
-
- end subroutine TestComputesSecondsSpecial
-
-
- subroutine Setup
-  NotInitialized = .TRUE.
-  last    = 0
-  seconds = HUGE(0.0)
-  noAssertFailed = .true.
- end subroutine Setup
-
-
- subroutine Teardown
- end subroutine Teardown
-
-
- subroutine MTStopWatch( nTests, nAsserts, nAssertsTested, nFailures )
-
-  integer :: nTests
-  integer :: nAsserts
-  integer :: nAssertsTested
-  integer :: nFailures
-
-  continue
-
-  call Setup
-  call TestSystemDateAndTimeWorks
-  call Teardown
-
-  call Setup
-  call TestOneMSecDifference
-  call Teardown
-
-  call Setup
-  call TestMinuteRollover
-  call Teardown
-
-  call Setup
-  call TestInitializationState
-  call Teardown
-
-  call Setup
-  call TestInitiallyReturnsZero
-  call Teardown
-
-  call Setup
-  call TestComputesSeconds
-  call Teardown
-
-  call Setup
-  call TestComputesSecondsSpecial
-  call Teardown
-
-  nTests          = numTests
-  nAsserts        = numAsserts
-  nAssertsTested  = numAssertsTested
-  nFailures       = numFailures
-
- end subroutine MTStopWatch
-
-end module StopWatchMT