test_unicdf Subroutine

subroutine test_unicdf()

Arguments

None

Variables

Type Visibility Attributes Name Initial
integer, public :: i
integer, public, parameter :: n = 40
real, public :: x(0:n)
real, public :: y(0:n)

Source Code

subroutine test_unicdf()
integer,parameter :: n=40
real              :: x(0:n), y(0:n)
integer           :: i
   call unit_check_start('unicdf',msg='')
   x=[(real(i)/real(n),i=0,n)]
   do i=0,n
         call unicdf(x(i),y(i))
   enddo
   call unit_check('unicdf', all(x.eq.y), 'checking in equals out')
   call unit_check_done('unicdf',msg='')
end subroutine test_unicdf