test_midm Subroutine

subroutine test_midm()

Arguments

None

Variables

Type Visibility Attributes Name Initial
integer, public :: i
real, public :: xmidm

Source Code

subroutine test_midm()
   integer :: i
   real :: xmidm
   call unit_check_start('midm',msg='')

   call midm([real :: (i,i=0,100) ],101,1,xmidm)
   call unit_check('midm', xmidm==50.0, 'expecting',50.0,'got',xmidm)

   call midm([real :: (i,i=0,101) ],102,1,xmidm)
   call unit_check('midm', xmidm==50.5, 'expecting',50.5,'got',xmidm)

   call unit_check_done('midm',msg='')
end subroutine test_midm