integer :: i