نمونه کد برای #تغییر_شکل یک ماتریس 5 بعدی به سه بعدی
program reshape_matrix
implicit none
! Define the dimensions of the original matrix C
integer, parameter :: dim1 = 100
integer, parameter :: dim2 = 200
integer, parameter :: dim3 = 300
integer, parameter :: dim4 = 400
integer, parameter :: dim5 = 500
! Define the dimensions of the reshaped matrix
integer, parameter :: new_dim1 = dim1 * dim2
integer, parameter :: new_dim2 = dim3
integer, parameter :: new_dim3 = dim4 * dim5
! Declare the original matrix C and the reshaped matrix
real, allocatable :: C(:,:,:,:,:)
real, pointer :: reshaped_matrix(:,:,:) => null()
! Allocate memory for the original matrix C
allocate(C(dim1, dim2, dim3, dim4, dim5))
! Initialize the original matrix C with some sample values
C = reshape([(i + j + k + l + m, i = 1, dim1, j = 1, dim2, k = 1, dim3, l = 1, dim4, m = 1, dim5)], [dim1, dim2, dim3, dim4, dim5])
! Reshape the matrix C to the new dimensions using array pointer assignment
reshape_matrix(1:new_dim1, 1:new_dim2, 1:new_dim3) => C
! Print the reshaped matrix for verification
print *, "Reshaped Matrix:"
print *, reshape_matrix
! Deallocate memory for the original matrix C
deallocate(C)
end program reshape_matrix
