INTEGER, DIMENSION(0:50) :: stuff
INTEGER, DIMENSION(-25:25) :: things
stuff = 0
things = stuff
! ...things and stuff must be conformable, that is, have the same
! shape (i.e., rank and extent on each rank)
|
INTEGER, DIMENSION(1:100) :: arr_1
INTEGER, DIMENSION(1:50) :: arr_2
INTEGER, DIMENSION(1:100) :: arr_3, arr_4
arr_1(1:50) = 5
arr_1(51:100) = 25
! -- lhs and rhs must be conformable :
arr_2 = arr_1(1:50)
arr_3(1:50) = arr_1(51:100)
! -- stride of 2, i.e., start at element 1 and increment by 2 until
! 100 is reached :
arr_4(1:100:2) = arr2
|
| ...previous | up (conts) | next... |