test_midr Subroutine

subroutine test_midr()

Arguments

None

Variables

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

Source Code

subroutine test_midr()
   integer :: i
   real :: xmidr
   call unit_check_start('midr',msg='')

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

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

   call unit_check_done('midr',msg='')
end subroutine test_midr