Il Linguaggio Fortran 90/95

6.5 Array allocabili 321
IF(ABS(zero(i))>eps) THEN
correct = .FALSE.
END IF
i = i+1
END DO
IF(correct) THEN
PRINT*, " lamda = ", lamda
PRINT*, " u = ", u
PRINT*, " sono un autovalore ed il relativo autovettore di A"
ELSE
PRINT*, " lamda = ", lamda
PRINT*, " u = " , u
PRINT*, " non sono un autovalore ed il relativo autovettore di A"
END IF
END PROGRAM eigen
Può essere utile presentare un esempio di impiego del programma al fine di testarne la correttezza:
Dimensione di A:
3
Introdurre A per righe:
1.0 2.0 3.0
4.0 5.0 6.0
7.0 8.0 9.0
Introdurre un autovalore di A:
16.1168
Introdurre il corrispondente autovettore:
0.23197 .525320 .81867
A:
1.000000 2.000000 3.000000
4.000000 5.000000 6.000000
7.000000 8.000000 9.000000
lamda = 16.11680
u = 0.2319700 0.5253200 0.8186700
sono un autovalore ed il relativo autovettore di A
Il programma seguente mostra, invce, un esempio di definizione e di utilizzo di un array
allocabile di un tipo di dati derivato:
! Demo strutture
PROGRAM strutture
IMPLICIT NONE
INTEGER, PARAMETER :: several=40, length=5
TYPE :: station ! Definizione di tipo di dati derivato