Il Linguaggio Fortran 90/95

302 Unità di Programma
matrix al fine di poter lavorare, all’esterno del modulo, con comuni array reali ma di passarli
poi come array di tipo matrix alle procedure di modulo definenti nuovi operatori. Ciò può
essere fatto aggiungendo al modulo operatori l’interfaccia seguente:
INTERFACE ASSIGNMENT(=)
MODULE PROCEDURE matrix_from_real, matrix_from_matrix, &
vector_from_real, vector_from_vector
END INTERFACE
e le seguenti procedure:
!
! Operatori di assegnazione: X = Y
!
SUBROUTINE matrix_from_real(X,Y)
! Copia un array 2D di tipo REAL in un array 2D di tipo matrix
REAL, INTENT(IN), DIMENSION(:,:) :: Y
TYPE(matrix), INTENT(OUT), DIMENSION(SIZE(Y,1),SIZE(Y,2)) :: X
X(:,:)%elem = Y(:,:)
END SUBROUTINE matrix_from_real
SUBROUTINE matrix_from_matrix(X, Y)
! Copia un array 2D di tipo matrix
TYPE(matrix), INTENT(IN), DIMENSION(:,:) :: Y
TYPE(matrix), INTENT(OUT), DIMENSION(SIZE(Y,1),SIZE(Y,2)) :: X
X(:,:)%elem = Y(:,:)%elem
END SUBROUTINE matrix_from_matrix
SUBROUTINE vector_from_real(X, Y)
! Copia un array 1D di tipo REAL in un array 1D di tipo matrix
REAL, INTENT(IN), DIMENSION(:) :: Y
TYPE(matrix), INTENT(OUT), DIMENSION(SIZE(Y,1)) :: X
X(:)%elem = Y(:)
END SUBROUTINE vector_from_real
SUBROUTINE vector_from_vector(X, Y)
! Copia un array 1D di tipo matrix
TYPE(matrix), INTENT(IN), DIMENSION(:) :: Y
TYPE(matrix), INTENT(OUT), DIMENSION(SIZE(Y,1)) :: X
X(:)%elem = Y(:)%elem
END SUBROUTINE vector_from_vector