Programming

program loopJump
implicit none
 !
 integer :: i,j,k   
do k = 1, 6  
do i =  1, 5      
j=(i+k)     
print*, i,"   ",j   
enddo  
enddo   

stop  
end

perl -e'
$n = 100;
$k = 2000;
$i = 0;
$j = 0;
$step = 1;
while ($i < $n) {
  $j = 1;
  while ($j <= $k - $step) {
    printf "%d,%d ", $j, $j+$step;
    $j = $j + $step;
  }
  print "\n";
  $step = $step + 1;
  $i = $i + 1;
}
'

program jumploop
implicit none
!!!!!!!!!!!!!!!!!

  integer :: i,j,k,n


do k = 1, 5
	do i = 1, 10, k
		j = (i+k)

		print*, i, j

	end do
		print*," "
end do


end program jumploop