test_min Subroutine

subroutine test_min()
real :: xmin
real(kind=real64) :: dmin

   call unit_check_start('min',msg='')

   call min([-100.0, 200.0, 0.0, 400.0, -200.0],5,1,xmin)
   call unit_check('min', xmin.eq.-200.0, 'checking',xmin,-200.0)

   call min([-100.0d0, 200.0d0, 0.0d0, 400.0d0, -200.0d0],5,1,dmin)
   call unit_check('min', dmin.eq.-200.0d0, 'checking',dmin,-200.0d0)

   call unit_check_done('min',msg='')

end subroutine test_min