test_maths_mod Module Reference

Functions/Subroutines
subroutine	test_random
subroutine	test_randomness

Function/Subroutine Documentation

test_random()

subroutine test_maths_mod::test_random

Definition at line 12 of file test_maths.F90.

    
    integer :: idum 
    real :: res
 
    res = 0.0 
    idum = 0
    res = random(idum)
    
    call assert_not_equals(res, 0.0, "Result is not 0")
    

Here is the call graph for this function:

Here is the caller graph for this function:

test_randomness()

subroutine test_maths_mod::test_randomness

Definition at line 26 of file test_maths.F90.

    
    integer :: idum 
    real :: res1, res2
    
    res1 = 0.0 
    res2 = 0.0
    idum = -4
    res1 = random(idum)
    res2 = random(idum)
    call assert_not_equals(res1, res2, &
         "Result are not equal")
      

Here is the call graph for this function:

Here is the caller graph for this function: