Fortran - Fonctions de remodelage
Le tableau suivant décrit la fonction de remodelage:
| Fonction | La description |
|---|---|
| remodeler (source, forme, remplissage, ordre) | Il construit un tableau avec une forme de forme spécifiée à partir des éléments d'une source de tableau donnée. Si le tampon n'est pas inclus, la taille de la source doit être au moins un produit (forme). Si le pad est inclus, il doit avoir le même type que la source. Si l'ordre est inclus, il doit s'agir d'un tableau d'entiers avec la même forme que shape et les valeurs doivent être une permutation de (1,2,3, ..., n), où n est le nombre d'éléments en forme, il doit être inférieur ou égal à 7. |
Example
L'exemple suivant illustre le concept:
program arrayReshape
implicit none
interface
subroutine write_matrix(a)
real, dimension(:,:) :: a
end subroutine write_matrix
end interface
real, dimension (1:9) :: b = (/ 21, 22, 23, 24, 25, 26, 27, 28, 29 /)
real, dimension (1:3, 1:3) :: c, d, e
real, dimension (1:4, 1:4) :: f, g, h
integer, dimension (1:2) :: order1 = (/ 1, 2 /)
integer, dimension (1:2) :: order2 = (/ 2, 1 /)
real, dimension (1:16) :: pad1 = (/ -1, -2, -3, -4, -5, -6, -7, -8, &
& -9, -10, -11, -12, -13, -14, -15, -16 /)
c = reshape( b, (/ 3, 3 /) )
call write_matrix(c)
d = reshape( b, (/ 3, 3 /), order = order1)
call write_matrix(d)
e = reshape( b, (/ 3, 3 /), order = order2)
call write_matrix(e)
f = reshape( b, (/ 4, 4 /), pad = pad1)
call write_matrix(f)
g = reshape( b, (/ 4, 4 /), pad = pad1, order = order1)
call write_matrix(g)
h = reshape( b, (/ 4, 4 /), pad = pad1, order = order2)
call write_matrix(h)
end program arrayReshape
subroutine write_matrix(a)
real, dimension(:,:) :: a
write(*,*)
do i = lbound(a,1), ubound(a,1)
write(*,*) (a(i,j), j = lbound(a,2), ubound(a,2))
end do
end subroutine write_matrixLorsque le code ci-dessus est compilé et exécuté, il produit le résultat suivant:
21.0000000 24.0000000 27.0000000
22.0000000 25.0000000 28.0000000
23.0000000 26.0000000 29.0000000
21.0000000 24.0000000 27.0000000
22.0000000 25.0000000 28.0000000
23.0000000 26.0000000 29.0000000
21.0000000 22.0000000 23.0000000
24.0000000 25.0000000 26.0000000
27.0000000 28.0000000 29.0000000
21.0000000 25.0000000 29.0000000 -4.00000000
22.0000000 26.0000000 -1.00000000 -5.00000000
23.0000000 27.0000000 -2.00000000 -6.00000000
24.0000000 28.0000000 -3.00000000 -7.00000000
21.0000000 25.0000000 29.0000000 -4.00000000
22.0000000 26.0000000 -1.00000000 -5.00000000
23.0000000 27.0000000 -2.00000000 -6.00000000
24.0000000 28.0000000 -3.00000000 -7.00000000
21.0000000 22.0000000 23.0000000 24.0000000
25.0000000 26.0000000 27.0000000 28.0000000
29.0000000 -1.00000000 -2.00000000 -3.00000000
-4.00000000 -5.00000000 -6.00000000 -7.00000000