Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement