program reshapeArray

    implicit none
    
    integer, parameter :: ntens = 3
    integer, parameter :: ndim = 7
    integer i,j
    integer, dimension(ndim) :: inArray
    
    integer, dimension(2,ntens) :: newarray
    
    inArray(1) = 1
    inArray(2) = 2
    inArray(3) = 3
    inArray(4) = 4
    inArray(5) = 5
    inArray(6) = 6
    inArray(7) = 7

    
	do i = 1, ndim
		write(*,*) 'InArray', inArray(i)
	end do

 !   reshape(inArray(1:6),[2,ntens], order[2,1])
    reshape(inArray(1:6),[2,ntens])

    do i = 1,ntens
        write(*,*) inArray(i,1:2)
    end do
  
end program reshapeArray