The correct code is :
integer, dimension(2) :: disposition = (/2,1/)
integer, dimension(4,3) ::gparm
integer, dimension(12) :: gpar =(/ (i,i=1,12,1) /)
gparm = reshape (SOURCE=gpar, SHAPE= shape(gparm) , ORDER=disposition)
do k=1,4
write(*,110)gparm(k,:)
110 format(3i4)
enddo
stop
end
See disposition and the index gparm(k,:) instead of gparm(i,:)
--
Daniel CHARPIN - Silicon Graphics France -
21, rue Albert Calmette - F - 78350 - JOUY-en-JOSAS
Email : [log in to unmask]
Phone : 33 (0)1 34 88 82 28
Fax : 33 (0)1 34 65 96 19
WWW : http://anne.paris (SGI intranet)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|